1694 |
V361= (*(LnkLI239))(VV[61],(V358)); |
V361= (*(LnkLI239))(VV[61],(V358)); |
1695 |
V362= (*(LnkLI239))(VV[62],(V358)); |
V362= (*(LnkLI239))(VV[62],(V358)); |
1696 |
(void)((VFUN_NARGS=3,(*(LnkLI246))(V358,Cnil,(V355)))); |
(void)((VFUN_NARGS=3,(*(LnkLI246))(V358,Cnil,(V355)))); |
1697 |
{object V365 = (*(LnkLI247))((V360),V355,VV[63]); |
base[3]= ({object _tmp=get(VV[247],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[247])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[247])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
1698 |
VMR25(V365)}} |
base[4]= V360; |
1699 |
|
base[5]= V355; |
1700 |
|
base[6]= VV[63]; |
1701 |
|
vs_top=(vs_base=base+4)+3; |
1702 |
|
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1703 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1704 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1705 |
|
else super_funcall_no_event(_funobj);} |
1706 |
|
vs_top=sup; |
1707 |
|
{object V366 = vs_base[0]; |
1708 |
|
VMR25(V366)}} |
1709 |
base[0]=base[0]; |
base[0]=base[0]; |
1710 |
return Cnil; |
return Cnil; |
1711 |
} |
} |
1715 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1716 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1717 |
vs_check; |
vs_check; |
1718 |
{object V366; |
{object V367; |
1719 |
object V367; |
object V368; |
1720 |
register object V368; |
register object V369; |
|
object V369; |
|
1721 |
object V370; |
object V370; |
1722 |
|
object V371; |
1723 |
check_arg(5); |
check_arg(5); |
1724 |
V366=(base[0]); |
V367=(base[0]); |
1725 |
V367=(base[1]); |
V368=(base[1]); |
1726 |
V368=(base[2]); |
V369=(base[2]); |
1727 |
V369=(base[3]); |
V370=(base[3]); |
1728 |
V370=(base[4]); |
V371=(base[4]); |
1729 |
vs_top=sup; |
vs_top=sup; |
1730 |
goto TTL; |
goto TTL; |
1731 |
TTL:; |
TTL:; |
1732 |
{register object V372; |
{register object V373; |
1733 |
object V373; |
object V374; |
1734 |
V372= CMPcar((V366)); |
V373= CMPcar((V367)); |
1735 |
V373= CMPcdr((V366)); |
V374= CMPcdr((V367)); |
1736 |
{register object V374; |
{register object V375; |
1737 |
if(type_of(V368)==t_structure){ |
if(type_of(V369)==t_structure){ |
1738 |
goto T687;} |
goto T691;} |
1739 |
goto T685; |
goto T689; |
1740 |
|
goto T691; |
1741 |
|
T691:; |
1742 |
|
if(!(((V369)->str.str_def)==(VV[64]))){ |
1743 |
|
goto T689;} |
1744 |
|
V375= STREF(object,(V369),4); |
1745 |
goto T687; |
goto T687; |
1746 |
T687:; |
goto T689; |
1747 |
if(!(((V368)->str.str_def)==(VV[64]))){ |
T689:;{object V377; |
1748 |
goto T685;} |
V377= (VV[13]->s.s_dbind); |
|
V374= STREF(object,(V368),4); |
|
|
goto T683; |
|
|
goto T685; |
|
|
T685:;{object V376; |
|
|
V376= (VV[13]->s.s_dbind); |
|
1749 |
base[5]= small_fixnum(14); |
base[5]= small_fixnum(14); |
1750 |
base[6]= (V368); |
base[6]= (V369); |
1751 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1752 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
1753 |
vs_top=sup; |
vs_top=sup; |
1754 |
V377= vs_base[0]; |
V378= vs_base[0]; |
1755 |
if(!((V376)==(CMPcar(V377)))){ |
if(!((V377)==(CMPcar(V378)))){ |
1756 |
goto T690;}} |
goto T694;}} |
1757 |
V374= CMPcar(((V368))->cc.cc_turbo[12]); |
V375= CMPcar(((V369))->cc.cc_turbo[12]); |
1758 |
goto T683; |
goto T687; |
1759 |
goto T690; |
goto T694; |
1760 |
T690:; |
T694:; |
1761 |
V374= Cnil; |
V375= Cnil; |
1762 |
goto T683; |
goto T687; |
1763 |
T683:; |
T687:; |
1764 |
{register object V379; |
{register object V380; |
1765 |
V379= ((V372))->v.v_self[1]; |
V380= ((V373))->v.v_self[1]; |
1766 |
if(!(type_of(V379)==t_fixnum)){ |
if(!(type_of(V380)==t_fixnum)){ |
1767 |
goto T704;} |
goto T708;} |
1768 |
V379= ((V374))->v.v_self[fix((V379))]; |
V380= ((V375))->v.v_self[fix((V380))]; |
1769 |
goto T702; |
goto T706; |
1770 |
goto T704; |
goto T708; |
1771 |
T704:; |
T708:; |
1772 |
V379= VV[14]; |
V380= VV[14]; |
1773 |
goto T702; |
goto T706; |
1774 |
T702:; |
T706:; |
1775 |
if(!(((V379))==(VV[14]))){ |
if(!(((V380))==(VV[14]))){ |
1776 |
goto T707;} |
goto T711;} |
1777 |
base[5]= (V368); |
base[5]= (V369); |
1778 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1779 |
(void) (*Lnk248)(Lclptr248); |
(void) (*Lnk248)(Lclptr248); |
1780 |
vs_top=sup; |
vs_top=sup; |
1781 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1782 |
goto T697;} |
goto T701;} |
1783 |
goto T699; |
goto T703; |
1784 |
goto T707; |
goto T711; |
1785 |
T707:; |
T711:; |
1786 |
if(((V379))!=Cnil){ |
if(((V380))!=Cnil){ |
1787 |
goto T697;}} |
goto T701;}} |
1788 |
goto T699; |
goto T703; |
1789 |
T699:; |
T703:; |
1790 |
{object V381; |
{object V382; |
1791 |
base[5]= (V368); |
base[5]= (V369); |
1792 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1793 |
(void) (*Lnk249)(Lclptr249); |
(void) (*Lnk249)(Lclptr249); |
1794 |
vs_top=sup; |
vs_top=sup; |
1795 |
V381= vs_base[0]; |
V382= vs_base[0]; |
1796 |
base[5]= (V381); |
base[5]= (V382); |
1797 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1798 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk250)(Lclptr250); |
1799 |
vs_top=sup; |
vs_top=sup; |
1800 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1801 |
goto T697;} |
goto T701;} |
1802 |
{object V382; |
{object V383; |
1803 |
{register object V383; |
{register object V384; |
1804 |
V383= ((V372))->v.v_self[2]; |
V384= ((V373))->v.v_self[2]; |
1805 |
if(!(type_of(V383)==t_fixnum)){ |
if(!(type_of(V384)==t_fixnum)){ |
1806 |
goto T721;} |
goto T725;} |
1807 |
V383= ((V374))->v.v_self[fix((V383))]; |
V384= ((V375))->v.v_self[fix((V384))]; |
1808 |
goto T719; |
goto T723; |
1809 |
goto T721; |
goto T725; |
1810 |
T721:; |
T725:; |
1811 |
V383= VV[14]; |
V384= VV[14]; |
1812 |
goto T719; |
goto T723; |
1813 |
T719:; |
T723:; |
1814 |
if(!(((V383))==(VV[14]))){ |
if(!(((V384))==(VV[14]))){ |
1815 |
goto T724;} |
goto T728;} |
1816 |
base[6]= (V368); |
base[6]= (V369); |
1817 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1818 |
(void) (*Lnk251)(Lclptr251); |
(void) (*Lnk251)(Lclptr251); |
1819 |
vs_top=sup; |
vs_top=sup; |
1820 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1821 |
goto T716; |
goto T720; |
1822 |
goto T724; |
goto T728; |
1823 |
T724:; |
T728:; |
1824 |
base[5]= (V383);} |
base[5]= (V384);} |
1825 |
goto T716; |
goto T720; |
1826 |
T716:; |
T720:; |
1827 |
base[7]= (V381); |
base[7]= (V382); |
1828 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1829 |
(void) (*Lnk252)(Lclptr252); |
(void) (*Lnk252)(Lclptr252); |
1830 |
vs_top=sup; |
vs_top=sup; |
1834 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1835 |
(void) (*Lnk254)(); |
(void) (*Lnk254)(); |
1836 |
vs_top=sup; |
vs_top=sup; |
1837 |
V382= vs_base[0]; |
V383= vs_base[0]; |
1838 |
{object V385; |
{object V386; |
1839 |
V385= ((V372))->v.v_self[1]; |
V386= ((V373))->v.v_self[1]; |
1840 |
if(!(type_of(V385)==t_fixnum)){ |
if(!(type_of(V386)==t_fixnum)){ |
1841 |
goto T733;} |
goto T737;} |
1842 |
(void)(((V374))->v.v_self[fix((V385))]= ((V382))); |
(void)(((V375))->v.v_self[fix((V386))]= ((V383))); |
1843 |
goto T697; |
goto T701; |
1844 |
goto T733; |
goto T737; |
1845 |
T733:; |
T737:; |
1846 |
base[5]= (V382); |
base[5]= (V383); |
1847 |
base[6]= (V368); |
base[6]= (V369); |
1848 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1849 |
(void) (*Lnk255)(Lclptr255); |
(void) (*Lnk255)(Lclptr255); |
1850 |
vs_top=sup;}}} |
vs_top=sup;}}} |
1851 |
goto T697; |
goto T701; |
1852 |
T697:; |
T701:; |
1853 |
{register object V387; |
{register object V388; |
1854 |
V387= ((V372))->v.v_self[1]; |
V388= ((V373))->v.v_self[1]; |
1855 |
if(!(type_of(V387)==t_fixnum)){ |
if(!(type_of(V388)==t_fixnum)){ |
1856 |
goto T747;} |
goto T751;} |
1857 |
V387= ((V374))->v.v_self[fix((V387))]; |
V388= ((V375))->v.v_self[fix((V388))]; |
1858 |
goto T745; |
goto T749; |
1859 |
goto T747; |
goto T751; |
1860 |
T747:; |
T751:; |
1861 |
V387= VV[14]; |
V388= VV[14]; |
1862 |
goto T745; |
goto T749; |
1863 |
T745:; |
T749:; |
1864 |
if(!(((V387))==(VV[14]))){ |
if(!(((V388))==(VV[14]))){ |
1865 |
goto T750;} |
goto T754;} |
1866 |
base[5]= (V368); |
base[5]= (V369); |
1867 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1868 |
(void) (*Lnk248)(Lclptr248); |
(void) (*Lnk248)(Lclptr248); |
1869 |
vs_top=sup; |
vs_top=sup; |
1870 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1871 |
goto T741;} |
goto T745;} |
1872 |
goto T742; |
goto T746; |
1873 |
goto T750; |
goto T754; |
1874 |
T750:; |
T754:; |
1875 |
if(((V387))==Cnil){ |
if(((V388))==Cnil){ |
1876 |
goto T741;}} |
goto T745;}} |
1877 |
goto T742; |
goto T746; |
1878 |
T742:; |
T746:; |
1879 |
{register object V390; |
{register object V391; |
1880 |
V390= ((V372))->v.v_self[2]; |
V391= ((V373))->v.v_self[2]; |
1881 |
if(!(type_of(V390)==t_fixnum)){ |
if(!(type_of(V391)==t_fixnum)){ |
1882 |
goto T758;} |
goto T762;} |
1883 |
V390= ((V374))->v.v_self[fix((V390))]; |
V391= ((V375))->v.v_self[fix((V391))]; |
1884 |
goto T756; |
goto T760; |
1885 |
goto T758; |
goto T762; |
1886 |
T758:; |
T762:; |
1887 |
V390= VV[14]; |
V391= VV[14]; |
1888 |
goto T756; |
goto T760; |
1889 |
T756:; |
T760:; |
1890 |
if(!(((V390))==(VV[14]))){ |
if(!(((V391))==(VV[14]))){ |
1891 |
goto T761;} |
goto T765;} |
1892 |
base[5]= (V368); |
base[5]= (V369); |
1893 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1894 |
(void) (*Lnk251)(Lclptr251); |
(void) (*Lnk251)(Lclptr251); |
1895 |
vs_top=sup; |
vs_top=sup; |
1896 |
V389= vs_base[0]; |
V390= vs_base[0]; |
1897 |
goto T753; |
goto T757; |
1898 |
goto T761; |
goto T765; |
1899 |
T761:; |
T765:; |
1900 |
V389= (V390);} |
V390= (V391);} |
1901 |
goto T753; |
goto T757; |
1902 |
T753:; |
T757:; |
1903 |
if(!((V389)==Cnil)){ |
if(!((V390)==Cnil)){ |
1904 |
goto T738;} |
goto T742;} |
1905 |
goto T739; |
goto T743; |
1906 |
goto T741; |
goto T745; |
1907 |
T741:; |
T745:; |
1908 |
goto T738; |
goto T742; |
1909 |
goto T739; |
goto T743; |
1910 |
T739:; |
T743:; |
1911 |
{object V392; |
{object V393; |
1912 |
{register object V393; |
{register object V394; |
1913 |
V393= ((V372))->v.v_self[1]; |
V394= ((V373))->v.v_self[1]; |
1914 |
if(!(type_of(V393)==t_fixnum)){ |
if(!(type_of(V394)==t_fixnum)){ |
1915 |
goto T770;} |
goto T774;} |
1916 |
V393= ((V374))->v.v_self[fix((V393))]; |
V394= ((V375))->v.v_self[fix((V394))]; |
1917 |
goto T768; |
goto T772; |
1918 |
goto T770; |
goto T774; |
1919 |
T770:; |
T774:; |
1920 |
V393= VV[14]; |
V394= VV[14]; |
1921 |
goto T768; |
goto T772; |
1922 |
T768:; |
T772:; |
1923 |
if(!(((V393))==(VV[14]))){ |
if(!(((V394))==(VV[14]))){ |
1924 |
goto T773;} |
goto T777;} |
1925 |
base[6]= (V368); |
base[6]= (V369); |
1926 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1927 |
(void) (*Lnk248)(Lclptr248); |
(void) (*Lnk248)(Lclptr248); |
1928 |
vs_top=sup; |
vs_top=sup; |
1929 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1930 |
goto T765; |
goto T769; |
1931 |
goto T773; |
goto T777; |
1932 |
T773:; |
T777:; |
1933 |
base[5]= (V393);} |
base[5]= (V394);} |
1934 |
goto T765; |
goto T769; |
1935 |
T765:; |
T769:; |
1936 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1937 |
(void) (*Lnk253)(Lclptr253); |
(void) (*Lnk253)(Lclptr253); |
1938 |
vs_top=sup; |
vs_top=sup; |
1939 |
V392= vs_base[0]; |
V393= vs_base[0]; |
1940 |
{object V395; |
{object V396; |
1941 |
V395= ((V372))->v.v_self[2]; |
V396= ((V373))->v.v_self[2]; |
1942 |
if(!(type_of(V395)==t_fixnum)){ |
if(!(type_of(V396)==t_fixnum)){ |
1943 |
goto T778;} |
goto T782;} |
1944 |
base[5]= ((V374))->v.v_self[fix((V395))]= ((V392)); |
base[5]= ((V375))->v.v_self[fix((V396))]= ((V393)); |
1945 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1946 |
return; |
return; |
1947 |
goto T778; |
goto T782; |
1948 |
T778:; |
T782:; |
1949 |
base[5]= (V392); |
base[5]= (V393); |
1950 |
base[6]= (V368); |
base[6]= (V369); |
1951 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1952 |
(void) (*Lnk256)(Lclptr256); |
(void) (*Lnk256)(Lclptr256); |
1953 |
return;}} |
return;}} |
1954 |
goto T738; |
goto T742; |
1955 |
T738:; |
T742:; |
1956 |
base[5]= Cnil; |
base[5]= Cnil; |
1957 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1958 |
return;}} |
return;}} |
1960 |
} |
} |
1961 |
/* local entry for function (FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD)) */ |
/* local entry for function (FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD)) */ |
1962 |
|
|
1963 |
static object LI30(V400,V401,V402) |
static object LI30(V401,V402,V403) |
1964 |
|
|
1965 |
object V400;object V401;object V402; |
object V401;object V402;object V403; |
1966 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1967 |
goto TTL; |
goto TTL; |
1968 |
TTL:; |
TTL:; |
1969 |
{object V404 = (*(LnkLI257))((V402),VV[63]); |
{object V405 = (*(LnkLI247))((V403),VV[63]); |
1970 |
VMR27(V404)} |
VMR27(V405)} |
1971 |
return Cnil; |
return Cnil; |
1972 |
} |
} |
1973 |
/* local entry for function (FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T)) */ |
/* local entry for function (FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T)) */ |
1974 |
|
|
1975 |
static object LI31(V409,V410,V411,V412) |
static object LI31(V410,V411,V412,V413) |
1976 |
|
|
1977 |
object V409;object V410;register object V411;object V412; |
object V410;object V411;register object V412;object V413; |
1978 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1979 |
goto TTL; |
goto TTL; |
1980 |
TTL:; |
TTL:; |
1981 |
{object V414; |
{object V415; |
1982 |
object V415; |
object V416; |
1983 |
V414= CMPcar((V409)); |
V415= CMPcar((V410)); |
1984 |
V415= CMPcdr((V409)); |
V416= CMPcdr((V410)); |
1985 |
{object V416; |
{object V417; |
1986 |
if(type_of(V411)==t_structure){ |
if(type_of(V412)==t_structure){ |
1987 |
goto T795;} |
goto T799;} |
1988 |
goto T793; |
goto T797; |
1989 |
|
goto T799; |
1990 |
|
T799:; |
1991 |
|
if(!(((V412)->str.str_def)==(VV[66]))){ |
1992 |
|
goto T797;} |
1993 |
|
V417= STREF(object,(V412),4); |
1994 |
goto T795; |
goto T795; |
1995 |
T795:; |
goto T797; |
1996 |
if(!(((V411)->str.str_def)==(VV[66]))){ |
T797:;{object V419; |
1997 |
goto T793;} |
V419= (VV[13]->s.s_dbind); |
|
V416= STREF(object,(V411),4); |
|
|
goto T791; |
|
|
goto T793; |
|
|
T793:;{object V418; |
|
|
V418= (VV[13]->s.s_dbind); |
|
1998 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
1999 |
base[1]= (V411); |
base[1]= (V412); |
2000 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2001 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
2002 |
vs_top=sup; |
vs_top=sup; |
2003 |
V419= vs_base[0]; |
V420= vs_base[0]; |
2004 |
if(!((V418)==(CMPcar(V419)))){ |
if(!((V419)==(CMPcar(V420)))){ |
2005 |
goto T798;}} |
goto T802;}} |
2006 |
V416= CMPcar(((V411))->cc.cc_turbo[12]); |
V417= CMPcar(((V412))->cc.cc_turbo[12]); |
2007 |
goto T791; |
goto T795; |
2008 |
goto T798; |
goto T802; |
2009 |
T798:; |
T802:; |
2010 |
V416= Cnil; |
V417= Cnil; |
2011 |
goto T791; |
goto T795; |
2012 |
T791:; |
T795:; |
|
V420 = (V411); |
|
2013 |
V421 = (V412); |
V421 = (V412); |
2014 |
{object V423; |
V422 = (V413); |
2015 |
V423= ((V414))->v.v_self[1]; |
{object V424; |
2016 |
if(!(type_of(V423)==t_fixnum)){ |
V424= ((V415))->v.v_self[1]; |
2017 |
|
if(!(type_of(V424)==t_fixnum)){ |
2018 |
|
goto T814;} |
2019 |
|
if(!((((((V417))->v.v_self[fix((V424))])==(VV[14])?Ct:Cnil))==Cnil)){ |
2020 |
goto T810;} |
goto T810;} |
2021 |
if(!((((((V416))->v.v_self[fix((V423))])==(VV[14])?Ct:Cnil))==Cnil)){ |
goto T811; |
2022 |
goto T806;} |
goto T814; |
2023 |
goto T807; |
T814:; |
2024 |
goto T810; |
base[0]= (V412); |
|
T810:; |
|
|
base[0]= (V411); |
|
2025 |
base[1]= VV[67]; |
base[1]= VV[67]; |
2026 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2027 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
2028 |
vs_top=sup; |
vs_top=sup; |
2029 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2030 |
goto T806;}} |
goto T810;}} |
2031 |
goto T807; |
goto T811; |
2032 |
T807:; |
T811:; |
2033 |
base[0]= (V411); |
base[0]= (V412); |
2034 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2035 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
2036 |
vs_top=sup; |
vs_top=sup; |
2037 |
V425= vs_base[0]; |
V426= vs_base[0]; |
2038 |
V426 = CMPmake_fixnum((long)length(V425)); |
V427 = CMPmake_fixnum((long)length(V426)); |
2039 |
V422= make_cons(V426,Cnil); |
V423= make_cons(V427,Cnil); |
2040 |
goto T804; |
goto T808; |
2041 |
goto T806; |
goto T810; |
2042 |
T806:; |
T810:; |
2043 |
V422= VV[68]; |
V423= VV[68]; |
2044 |
goto T804; |
goto T808; |
2045 |
T804:; |
T808:; |
2046 |
{object V427 = (VFUN_NARGS=3,(*(LnkLI212))(V420,V421,V422)); |
{object V428 = (VFUN_NARGS=3,(*(LnkLI212))(V421,V422,V423)); |
2047 |
VMR28(V427)}}} |
VMR28(V428)}}} |
2048 |
base[0]=base[0]; |
base[0]=base[0]; |
2049 |
return Cnil; |
return Cnil; |
2050 |
} |
} |
2054 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2055 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
2056 |
vs_check; |
vs_check; |
2057 |
{object V428; |
{object V429; |
|
object V429; |
|
2058 |
object V430; |
object V430; |
2059 |
object V431; |
object V431; |
2060 |
|
object V432; |
2061 |
check_arg(5); |
check_arg(5); |
2062 |
V428=(base[0]); |
V429=(base[0]); |
2063 |
V429=(base[1]); |
V430=(base[1]); |
2064 |
V430=(base[3]); |
V431=(base[3]); |
2065 |
V431=(base[4]); |
V432=(base[4]); |
2066 |
vs_top=sup; |
vs_top=sup; |
2067 |
goto TTL; |
goto TTL; |
2068 |
TTL:; |
TTL:; |
2069 |
{register object V432; |
{register object V433; |
2070 |
object V433; |
object V434; |
|
object V435; |
|
2071 |
object V436; |
object V436; |
2072 |
object V438; |
object V437; |
2073 |
object V439; |
object V439; |
2074 |
object V440; |
object V440; |
2075 |
object V441; |
object V441; |
2076 |
object V442; |
object V442; |
2077 |
register object V444; |
object V443; |
2078 |
object V445; |
register object V445; |
2079 |
object V447; |
object V446; |
2080 |
V432= (V431); |
object V448; |
2081 |
V433= (*(LnkLI220))(VV[69],(V432)); |
V433= (V432); |
2082 |
if(!(type_of((V433))==t_cons)){ |
V434= (*(LnkLI220))(VV[69],(V433)); |
2083 |
goto T822;} |
if(!(type_of((V434))==t_cons)){ |
2084 |
V435= CMPcar((V433)); |
goto T826;} |
2085 |
goto T820; |
V436= CMPcar((V434)); |
2086 |
goto T822; |
goto T824; |
2087 |
T822:; |
goto T826; |
2088 |
V435= Cnil; |
T826:; |
2089 |
goto T820; |
V436= Cnil; |
2090 |
T820:; |
goto T824; |
2091 |
V436= (*(LnkLI220))(VV[52],(V432)); |
T824:; |
2092 |
if(!(type_of((V436))==t_cons)){ |
V437= (*(LnkLI220))(VV[52],(V433)); |
2093 |
goto T827;} |
if(!(type_of((V437))==t_cons)){ |
2094 |
V438= CMPcar((V436)); |
goto T831;} |
2095 |
goto T825; |
V439= CMPcar((V437)); |
2096 |
goto T827; |
goto T829; |
2097 |
T827:; |
goto T831; |
2098 |
V438= Cnil; |
T831:; |
2099 |
goto T825; |
V439= Cnil; |
2100 |
T825:; |
goto T829; |
2101 |
V439= (*(LnkLI239))(VV[70],(V432)); |
T829:; |
2102 |
V440= (*(LnkLI239))(VV[71],(V432)); |
V440= (*(LnkLI239))(VV[70],(V433)); |
2103 |
V441= (*(LnkLI239))(VV[56],(V432)); |
V441= (*(LnkLI239))(VV[71],(V433)); |
2104 |
V442= (*(LnkLI220))(VV[72],(V432)); |
V442= (*(LnkLI239))(VV[56],(V433)); |
2105 |
if(!(type_of((V442))==t_cons)){ |
V443= (*(LnkLI220))(VV[72],(V433)); |
2106 |
goto T835;} |
if(!(type_of((V443))==t_cons)){ |
2107 |
V444= CMPcar((V442)); |
goto T839;} |
2108 |
goto T833; |
V445= CMPcar((V443)); |
2109 |
goto T835; |
goto T837; |
2110 |
T835:; |
goto T839; |
2111 |
V444= Cnil; |
T839:; |
2112 |
goto T833; |
V445= Cnil; |
2113 |
T833:; |
goto T837; |
2114 |
V445= (*(LnkLI220))(VV[73],(V432)); |
T837:; |
2115 |
if(!(type_of((V445))==t_cons)){ |
V446= (*(LnkLI220))(VV[73],(V433)); |
2116 |
goto T840;} |
if(!(type_of((V446))==t_cons)){ |
2117 |
V447= CMPcar((V445)); |
goto T844;} |
2118 |
goto T838; |
V448= CMPcar((V446)); |
2119 |
goto T840; |
goto T842; |
2120 |
T840:; |
goto T844; |
2121 |
V447= Cnil; |
T844:; |
2122 |
goto T838; |
V448= Cnil; |
2123 |
T838:; |
goto T842; |
2124 |
{register object V448; |
T842:; |
2125 |
object V449; |
{register object V449; |
2126 |
V448= CMPcar((V428)); |
object V450; |
2127 |
V449= CMPcdr((V428)); |
V449= CMPcar((V429)); |
2128 |
{object V450; |
V450= CMPcdr((V429)); |
2129 |
|
{object V451; |
2130 |
if(type_of(base[2])==t_structure){ |
if(type_of(base[2])==t_structure){ |
2131 |
goto T850;} |
goto T854;} |
2132 |
goto T848; |
goto T852; |
2133 |
goto T850; |
goto T854; |
2134 |
T850:; |
T854:; |
2135 |
if(!(((base[2])->str.str_def)==(VV[74]))){ |
if(!(((base[2])->str.str_def)==(VV[74]))){ |
2136 |
goto T848;} |
goto T852;} |
2137 |
V450= STREF(object,base[2],4); |
V451= STREF(object,base[2],4); |
2138 |
goto T846; |
goto T850; |
2139 |
goto T848; |
goto T852; |
2140 |
T848:;{object V452; |
T852:;{object V453; |
2141 |
V452= (VV[13]->s.s_dbind); |
V453= (VV[13]->s.s_dbind); |
2142 |
base[16]= small_fixnum(14); |
base[16]= small_fixnum(14); |
2143 |
base[17]= base[2]; |
base[17]= base[2]; |
2144 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2145 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
2146 |
vs_top=sup; |
vs_top=sup; |
2147 |
V453= vs_base[0]; |
V454= vs_base[0]; |
2148 |
if(!((V452)==(CMPcar(V453)))){ |
if(!((V453)==(CMPcar(V454)))){ |
2149 |
goto T853;}} |
goto T857;}} |
2150 |
V450= CMPcar((base[2])->cc.cc_turbo[12]); |
V451= CMPcar((base[2])->cc.cc_turbo[12]); |
2151 |
goto T846; |
goto T850; |
2152 |
goto T853; |
goto T857; |
2153 |
T853:; |
T857:; |
2154 |
V450= Cnil; |
V451= Cnil; |
2155 |
goto T846; |
goto T850; |
2156 |
T846:; |
T850:; |
2157 |
if((V433)==Cnil){ |
if((V434)==Cnil){ |
2158 |
goto T859;} |
goto T863;} |
2159 |
base[16]= base[2]; |
base[16]= base[2]; |
2160 |
base[17]= (V435); |
base[17]= (V436); |
2161 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2162 |
(void) (*Lnk259)(); |
(void) (*Lnk258)(); |
2163 |
vs_top=sup; |
vs_top=sup; |
2164 |
goto T859; |
goto T863; |
2165 |
T859:; |
T863:; |
2166 |
if((V442)==Cnil){ |
if((V443)==Cnil){ |
2167 |
goto T866;} |
goto T870;} |
2168 |
if(!(type_of((V444))==t_symbol)){ |
if(!(type_of((V445))==t_symbol)){ |
2169 |
goto T868;} |
goto T872;} |
2170 |
V444= (VFUN_NARGS=1,(*(LnkLI260))((V444))); |
V445= (VFUN_NARGS=1,(*(LnkLI259))((V445))); |
2171 |
goto T868; |
goto T872; |
2172 |
T868:; |
T872:; |
2173 |
base[16]= (V444); |
base[16]= (V445); |
2174 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2175 |
(void) (*Lnk237)(Lclptr237); |
(void) (*Lnk237)(Lclptr237); |
2176 |
vs_top=sup; |
vs_top=sup; |
2177 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2178 |
goto T873;} |
goto T877;} |
2179 |
base[17]= (V444); |
base[17]= (V445); |
2180 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
2181 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk260)(Lclptr260); |
2182 |
vs_top=sup; |
vs_top=sup; |
2183 |
base[16]= vs_base[0]; |
base[16]= vs_base[0]; |
2184 |
base[17]= (VV[75]->s.s_dbind); |
base[17]= (VV[75]->s.s_dbind); |
2185 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2186 |
(void) (*Lnk262)(); |
(void) (*Lnk261)(); |
2187 |
vs_top=sup; |
vs_top=sup; |
2188 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2189 |
goto T872;} |
goto T876;} |
2190 |
goto T873; |
goto T877; |
2191 |
T873:; |
T877:; |
2192 |
base[16]= VV[72]; |
base[16]= VV[72]; |
2193 |
base[17]= (V444); |
base[17]= (V445); |
2194 |
base[18]= VV[76]; |
base[18]= VV[76]; |
2195 |
vs_top=(vs_base=base+16)+3; |
vs_top=(vs_base=base+16)+3; |
2196 |
L33(base); |
L33(base); |
2197 |
vs_top=sup; |
vs_top=sup; |
2198 |
goto T872; |
goto T876; |
2199 |
T872:; |
T876:; |
2200 |
{object V455; |
{object V456; |
2201 |
V455= ((V448))->v.v_self[2]; |
V456= ((V449))->v.v_self[2]; |
2202 |
if(!(type_of(V455)==t_fixnum)){ |
if(!(type_of(V456)==t_fixnum)){ |
2203 |
goto T886;} |
goto T890;} |
2204 |
(void)(((V450))->v.v_self[fix((V455))]= (V444)); |
(void)(((V451))->v.v_self[fix((V456))]= (V445)); |
2205 |
goto T864; |
goto T868; |
2206 |
goto T886; |
goto T890; |
2207 |
T886:; |
T890:; |
2208 |
base[16]= V444; |
base[16]= V445; |
2209 |
base[17]= base[2]; |
base[17]= base[2]; |
2210 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2211 |
(void) (*Lnk263)(Lclptr263); |
(void) (*Lnk262)(Lclptr262); |
2212 |
vs_top=sup; |
vs_top=sup; |
2213 |
goto T864;} |
goto T868;} |
2214 |
goto T866; |
goto T870; |
2215 |
T866:; |
T870:; |
|
{object V457; |
|
2216 |
{object V458; |
{object V458; |
2217 |
V458= ((V448))->v.v_self[2]; |
{object V459; |
2218 |
if(!(type_of(V458)==t_fixnum)){ |
V459= ((V449))->v.v_self[2]; |
2219 |
goto T893;} |
if(!(type_of(V459)==t_fixnum)){ |
2220 |
V457= ((((((V450))->v.v_self[fix((V458))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
goto T897;} |
2221 |
goto T890; |
V458= ((((((V451))->v.v_self[fix((V459))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
2222 |
goto T893; |
goto T894; |
2223 |
T893:; |
goto T897; |
2224 |
|
T897:; |
2225 |
base[16]= base[2]; |
base[16]= base[2]; |
2226 |
base[17]= VV[77]; |
base[17]= VV[77]; |
2227 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2228 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
2229 |
vs_top=sup; |
vs_top=sup; |
2230 |
V457= vs_base[0];} |
V458= vs_base[0];} |
2231 |
goto T890; |
goto T894; |
2232 |
T890:; |
T894:; |
2233 |
if(((V457))==Cnil){ |
if(((V458))==Cnil){ |
2234 |
goto T898;} |
goto T902;} |
2235 |
goto T864; |
goto T868; |
2236 |
goto T898; |
goto T902; |
2237 |
T898:; |
T902:; |
2238 |
base[16]= VV[72]; |
base[16]= VV[72]; |
2239 |
base[17]= VV[78]; |
base[17]= VV[78]; |
2240 |
base[18]= VV[79]; |
base[18]= VV[79]; |
2241 |
vs_top=(vs_base=base+16)+3; |
vs_top=(vs_base=base+16)+3; |
2242 |
L33(base); |
L33(base); |
2243 |
vs_top=sup;} |
vs_top=sup;} |
2244 |
goto T864; |
goto T868; |
2245 |
T864:; |
T868:; |
2246 |
if((V445)==Cnil){ |
if((V446)==Cnil){ |
2247 |
goto T904;} |
goto T908;} |
2248 |
base[16]= (V447); |
base[16]= (V448); |
2249 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2250 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk263)(Lclptr263); |
2251 |
vs_top=sup; |
vs_top=sup; |
2252 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2253 |
goto T907;} |
goto T911;} |
2254 |
base[16]= VV[73]; |
base[16]= VV[73]; |
2255 |
base[17]= (V447); |
base[17]= (V448); |
2256 |
base[18]= VV[80]; |
base[18]= VV[80]; |
2257 |
vs_top=(vs_base=base+16)+3; |
vs_top=(vs_base=base+16)+3; |
2258 |
L33(base); |
L33(base); |
2259 |
return; |
return; |
2260 |
goto T907; |
goto T911; |
2261 |
T907:; |
T911:; |
2262 |
base[16]= Cnil; |
base[16]= Cnil; |
2263 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2264 |
return; |
return; |
2265 |
goto T904; |
goto T908; |
2266 |
T904:; |
T908:; |
|
{object V460; |
|
2267 |
{object V461; |
{object V461; |
2268 |
V461= ((V448))->v.v_self[1]; |
{object V462; |
2269 |
if(!(type_of(V461)==t_fixnum)){ |
V462= ((V449))->v.v_self[1]; |
2270 |
goto T916;} |
if(!(type_of(V462)==t_fixnum)){ |
2271 |
V460= ((((((V450))->v.v_self[fix((V461))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
goto T920;} |
2272 |
goto T913; |
V461= ((((((V451))->v.v_self[fix((V462))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
2273 |
goto T916; |
goto T917; |
2274 |
T916:; |
goto T920; |
2275 |
|
T920:; |
2276 |
base[16]= base[2]; |
base[16]= base[2]; |
2277 |
base[17]= VV[81]; |
base[17]= VV[81]; |
2278 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2279 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
2280 |
vs_top=sup; |
vs_top=sup; |
2281 |
V460= vs_base[0];} |
V461= vs_base[0];} |
2282 |
goto T913; |
goto T917; |
2283 |
T913:; |
T917:; |
2284 |
if(((V460))==Cnil){ |
if(((V461))==Cnil){ |
2285 |
goto T921;} |
goto T925;} |
2286 |
base[16]= (V460); |
base[16]= (V461); |
2287 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2288 |
return; |
return; |
2289 |
goto T921; |
goto T925; |
2290 |
T921:; |
T925:; |
2291 |
base[16]= VV[73]; |
base[16]= VV[73]; |
2292 |
base[17]= VV[82]; |
base[17]= VV[82]; |
2293 |
base[18]= VV[83]; |
base[18]= VV[83]; |
2298 |
} |
} |
2299 |
/* local entry for function (FAST-METHOD REMOVE-NAMED-METHOD (T T)) */ |
/* local entry for function (FAST-METHOD REMOVE-NAMED-METHOD (T T)) */ |
2300 |
|
|
2301 |
static object LI34(V468,V469,V470,V471,V472) |
static object LI34(V469,V470,V471,V472,V473) |
2302 |
|
|
2303 |
object V468;object V469;object V470;object V471;object V472; |
object V469;object V470;object V471;object V472;object V473; |
2304 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
2305 |
goto TTL; |
goto TTL; |
2306 |
TTL:; |
TTL:; |
2307 |
{register object V473; |
{register object V474; |
2308 |
object V474; |
object V475; |
2309 |
V473= (V472); |
V474= (V473); |
2310 |
if(((V473))==Cnil){ |
if(((V474))==Cnil){ |
2311 |
goto T931;} |
goto T935;} |
2312 |
{object V475; |
{object V476; |
2313 |
V475= CMPcar((V473)); |
V476= CMPcar((V474)); |
2314 |
V473= CMPcdr((V473)); |
V474= CMPcdr((V474)); |
2315 |
V474= (V475); |
V475= (V476); |
2316 |
goto T929;} |
goto T933;} |
2317 |
goto T931; |
goto T935; |
2318 |
T931:; |
T935:; |
2319 |
V474= Cnil; |
V475= Cnil; |
2320 |
goto T929; |
goto T933; |
2321 |
T929:; |
T933:; |
2322 |
{register object V476; |
{register object V477; |
2323 |
object V477; |
object V478; |
|
V476= Cnil; |
|
2324 |
V477= Cnil; |
V477= Cnil; |
2325 |
base[1]= (V470); |
V478= Cnil; |
2326 |
|
base[1]= (V471); |
2327 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2328 |
Lfboundp(); |
Lfboundp(); |
2329 |
vs_top=sup; |
vs_top=sup; |
2330 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2331 |
goto T937;} |
goto T941;} |
2332 |
base[2]= (V470); |
base[2]= (V471); |
2333 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2334 |
Lsymbol_function(); |
Lsymbol_function(); |
2335 |
vs_top=sup; |
vs_top=sup; |
2336 |
V476= vs_base[0]; |
V477= vs_base[0]; |
2337 |
base[1]= (V476); |
base[1]= (V477); |
2338 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2339 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk264)(Lclptr264); |
2340 |
vs_top=sup; |
vs_top=sup; |
2341 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2342 |
goto T938;} |
goto T942;} |
2343 |
goto T937; |
goto T941; |
2344 |
T937:; |
T941:; |
2345 |
base[1]= VV[85]; |
base[1]= VV[85]; |
2346 |
base[2]= (V470); |
base[2]= (V471); |
2347 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2348 |
Lerror(); |
Lerror(); |
2349 |
vs_top=sup; |
vs_top=sup; |
2350 |
{object V478 = vs_base[0]; |
{object V479 = vs_base[0]; |
2351 |
VMR30(V478)} |
VMR30(V479)} |
2352 |
goto T938; |
goto T942; |
2353 |
T938:; |
T942:; |
2354 |
V479 = (V476); |
V480 = (V477); |
2355 |
V480 = (V474); |
V481 = (V475); |
2356 |
V481= (*(LnkLI267))((V471)); |
V482= (*(LnkLI266))((V472)); |
2357 |
V477= (VFUN_NARGS=4,(*(LnkLI266))(V479,V480,/* INLINE-ARGS */V481,Cnil)); |
V478= (VFUN_NARGS=4,(*(LnkLI265))(V480,V481,/* INLINE-ARGS */V482,Cnil)); |
2358 |
if(((V477))!=Cnil){ |
if(((V478))!=Cnil){ |
2359 |
goto T949;} |
goto T953;} |
2360 |
base[1]= VV[86]; |
base[1]= VV[86]; |
2361 |
base[2]= (V476); |
base[2]= (V477); |
2362 |
base[3]= (V471); |
base[3]= (V472); |
2363 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2364 |
Lerror(); |
Lerror(); |
2365 |
vs_top=sup; |
vs_top=sup; |
2366 |
{object V482 = vs_base[0]; |
{object V483 = vs_base[0]; |
2367 |
VMR30(V482)} |
VMR30(V483)} |
2368 |
goto T949; |
goto T953; |
2369 |
T949:; |
T953:; |
2370 |
base[1]= (V476); |
base[1]= (V477); |
2371 |
base[2]= (V477); |
base[2]= (V478); |
2372 |
{object V483 = simple_symlispcall(VV[268],base+1,2); |
{object V484 = simple_symlispcall(VV[267],base+1,2); |
2373 |
VMR30(V483)}}} |
VMR30(V484)}}} |
2374 |
base[0]=base[0]; |
base[0]=base[0]; |
2375 |
return Cnil; |
return Cnil; |
2376 |
} |
} |
2377 |
/* local entry for function REAL-ADD-NAMED-METHOD */ |
/* local entry for function REAL-ADD-NAMED-METHOD */ |
2378 |
|
|
2379 |
static object LI35(object V487,object V486,object V485,object V484,object first,...) |
static object LI35(object V488,object V487,object V486,object V485,object first,...) |
2380 |
{ |
{ |
2381 |
va_list ap; |
va_list ap; |
2382 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
2383 |
{object V488; |
{object V489; |
|
object V489; |
|
2384 |
object V490; |
object V490; |
2385 |
object V491; |
object V491; |
2386 |
object V492; |
object V492; |
2387 |
|
object V493; |
2388 |
va_start(ap,first); |
va_start(ap,first); |
2389 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
2390 |
V488= V487; |
V489= V488; |
2391 |
V489= V486; |
V490= V487; |
2392 |
V490= V485; |
V491= V486; |
2393 |
V491= V484; |
V492= V485; |
2394 |
narg= narg - 4; |
narg= narg - 4; |
2395 |
V493 = list_vector_new(narg,first,ap); |
V494 = list_vector_new(narg,first,ap); |
2396 |
V492= V493; |
V493= V494; |
2397 |
{object V494; |
{object V495; |
|
object V495; |
|
2398 |
object V496; |
object V496; |
2399 |
object V497; |
object V497; |
2400 |
base[4]= (V488); |
object V498; |
2401 |
|
base[4]= (V489); |
2402 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2403 |
(void) (*Lnk269)(); |
(void) (*Lnk268)(); |
2404 |
vs_top=sup; |
vs_top=sup; |
2405 |
V494= vs_base[0]; |
V495= vs_base[0]; |
2406 |
V495= (*(LnkLI267))((V490)); |
V496= (*(LnkLI266))((V491)); |
2407 |
base[4]= (V488); |
base[4]= (V489); |
2408 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2409 |
(void) (*Lnk270)(); |
(void) (*Lnk269)(); |
2410 |
vs_top=sup; |
vs_top=sup; |
2411 |
V496= vs_base[0]; |
V497= vs_base[0]; |
2412 |
base[4]=VV[271]->s.s_gfdef; |
base[4]=VV[270]->s.s_gfdef; |
2413 |
base[5]= (*(LnkLI149))((V496)); |
base[5]= (*(LnkLI149))((V497)); |
2414 |
base[6]= VV[51]; |
base[6]= VV[51]; |
2415 |
base[7]= (V489); |
base[7]= (V490); |
2416 |
base[8]= VV[53]; |
base[8]= VV[53]; |
2417 |
base[9]= (V495); |
base[9]= (V496); |
2418 |
base[10]= VV[52]; |
base[10]= VV[52]; |
2419 |
base[11]= (V491); |
base[11]= (V492); |
2420 |
{object V498; |
{object V499; |
2421 |
V498= (V492); |
V499= (V493); |
2422 |
vs_top=base+12; |
vs_top=base+12; |
2423 |
while(V498!=Cnil) |
while(V499!=Cnil) |
2424 |
{vs_push((V498)->c.c_car);V498=(V498)->c.c_cdr;} |
{vs_push((V499)->c.c_car);V499=(V499)->c.c_cdr;} |
2425 |
vs_base=base+5;} |
vs_base=base+5;} |
2426 |
(void) (*Lnk271)(Lclptr271); |
(void) (*Lnk270)(Lclptr270); |
2427 |
vs_top=sup; |
vs_top=sup; |
2428 |
V497= vs_base[0]; |
V498= vs_base[0]; |
2429 |
base[4]= (V494); |
base[4]= (V495); |
2430 |
base[5]= (V497); |
base[5]= (V498); |
2431 |
{object V499 = simple_symlispcall(VV[272],base+4,2); |
{object V500 = simple_symlispcall(VV[271],base+4,2); |
2432 |
VMR31(V499)}} |
VMR31(V500)}} |
2433 |
va_end(ap); |
va_end(ap); |
2434 |
base[0]=base[0]; |
base[0]=base[0]; |
2435 |
return Cnil;} |
return Cnil;} |
2436 |
} |
} |
2437 |
/* local entry for function MAKE-SPECIALIZABLE */ |
/* local entry for function MAKE-SPECIALIZABLE */ |
2438 |
|
|
2439 |
static object LI36(object V500,object first,...) |
static object LI36(object V501,object first,...) |
2440 |
{ |
{ |
2441 |
va_list ap; |
va_list ap; |
2442 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
2443 |
{register object V501; |
{register object V502; |
2444 |
register object V502; |
register object V503; |
2445 |
object V503; |
object V504; |
2446 |
va_start(ap,first); |
va_start(ap,first); |
2447 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2448 |
V501= V500; |
V502= V501; |
2449 |
narg= narg - 1; |
narg= narg - 1; |
2450 |
{ |
{ |
2451 |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap); |
2452 |
if(Vcs[1]==0){ |
if(Vcs[1]==0){ |
|
V502= Cnil; |
|
2453 |
V503= Cnil; |
V503= Cnil; |
2454 |
|
V504= Cnil; |
2455 |
}else{ |
}else{ |
2456 |
V502=(Vcs[1]); |
V503=(Vcs[1]); |
2457 |
V503= Ct;} |
V504= Ct;} |
|
{object V504; |
|
|
V504= (((((V503))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
|
|
if(((V504))==Cnil){ |
|
|
goto T977;} |
|
|
goto T974; |
|
|
goto T977; |
|
|
T977:; |
|
2458 |
{object V505; |
{object V505; |
2459 |
base[0]= (V501); |
V505= (((((V504))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
2460 |
|
if(((V505))==Cnil){ |
2461 |
|
goto T981;} |
2462 |
|
goto T978; |
2463 |
|
goto T981; |
2464 |
|
T981:; |
2465 |
|
{object V506; |
2466 |
|
base[0]= (V502); |
2467 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2468 |
Lfboundp(); |
Lfboundp(); |
2469 |
vs_top=sup; |
vs_top=sup; |
2470 |
V506= vs_base[0]; |
V507= vs_base[0]; |
2471 |
V505= ((V506)==Cnil?Ct:Cnil); |
V506= ((V507)==Cnil?Ct:Cnil); |
2472 |
if(((V505))==Cnil){ |
if(((V506))==Cnil){ |
2473 |
goto T983;} |
goto T987;} |
2474 |
goto T974; |
goto T978; |
2475 |
goto T983; |
goto T987; |
2476 |
T983:; |
T987:; |
2477 |
base[0]= VV[87]; |
base[0]= VV[87]; |
2478 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2479 |
Lfboundp(); |
Lfboundp(); |
2480 |
vs_top=sup; |
vs_top=sup; |
2481 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2482 |
goto T986;} |
goto T990;} |
2483 |
base[0]= (V501); |
base[0]= (V502); |
2484 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2485 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
2486 |
vs_top=sup; |
vs_top=sup; |
2487 |
V502= vs_base[0]; |
V503= vs_base[0]; |
2488 |
goto T974; |
goto T978; |
2489 |
goto T986; |
goto T990; |
2490 |
T986:; |
T990:; |
2491 |
base[0]= VV[88]; |
base[0]= VV[88]; |
2492 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2493 |
Lerror(); |
Lerror(); |
2494 |
vs_top=sup;}} |
vs_top=sup;}} |
2495 |
goto T974; |
goto T978; |
2496 |
T974:; |
T978:; |
2497 |
{register object V507; |
{register object V508; |
2498 |
register object V508; |
register object V509; |
2499 |
base[1]= (V501); |
base[1]= (V502); |
2500 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2501 |
Lfboundp(); |
Lfboundp(); |
2502 |
vs_top=sup; |
vs_top=sup; |
2503 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2504 |
goto T993;} |
goto T997;} |
2505 |
base[0]= Cnil; |
base[0]= Cnil; |
2506 |
goto T992; |
goto T996; |
2507 |
goto T993; |
goto T997; |
2508 |
T993:; |
T997:; |
2509 |
base[1]= (V501); |
base[1]= (V502); |
2510 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2511 |
Lsymbol_function(); |
Lsymbol_function(); |
2512 |
vs_top=sup; |
vs_top=sup; |
2513 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2514 |
goto T992; |
goto T996; |
2515 |
T992:; |
T996:; |
2516 |
base[1]= VV[89]; |
base[1]= VV[89]; |
2517 |
base[2]= VV[69]; |
base[2]= VV[69]; |
2518 |
base[3]= (V501); |
base[3]= (V502); |
2519 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2520 |
(void) (*Lnk271)(Lclptr271); |
(void) (*Lnk270)(Lclptr270); |
2521 |
vs_top=sup; |
vs_top=sup; |
2522 |
V507= vs_base[0]; |
V508= vs_base[0]; |
2523 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2524 |
V508= small_fixnum(0); |
V509= small_fixnum(0); |
2525 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
2526 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2527 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk264)(Lclptr264); |
2528 |
vs_top=sup; |
vs_top=sup; |
2529 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2530 |
goto T1002;} |
goto T1006;} |
2531 |
{object V509 = (base[0]->c.c_car); |
{object V510 = (base[0]->c.c_car); |
2532 |
VMR32(V509)} |
VMR32(V510)} |
2533 |
goto T1002; |
goto T1006; |
2534 |
T1002:; |
T1006:; |
2535 |
{register object V510; |
{register object V511; |
2536 |
register object V511; |
register object V512; |
2537 |
V510= (V502); |
V511= (V503); |
2538 |
V511= CMPcar((V510)); |
V512= CMPcar((V511)); |
2539 |
|
goto T1013; |
2540 |
|
T1013:; |
2541 |
|
if(!(((V511))==Cnil)){ |
2542 |
|
goto T1014;} |
2543 |
|
goto T1009; |
2544 |
|
goto T1014; |
2545 |
|
T1014:; |
2546 |
|
{register object x= (V512),V513= VV[90]; |
2547 |
|
while(V513!=Cnil) |
2548 |
|
if(x==(V513->c.c_car)){ |
2549 |
|
goto T1021; |
2550 |
|
}else V513=V513->c.c_cdr; |
2551 |
|
goto T1020;} |
2552 |
|
goto T1021; |
2553 |
|
T1021:; |
2554 |
|
goto T1009; |
2555 |
|
goto T1020; |
2556 |
|
T1020:; |
2557 |
|
V509= number_plus((V509),small_fixnum(1)); |
2558 |
|
V511= CMPcdr((V511)); |
2559 |
|
V512= CMPcar((V511)); |
2560 |
|
goto T1013;} |
2561 |
goto T1009; |
goto T1009; |
2562 |
T1009:; |
T1009:; |
2563 |
if(!(((V510))==Cnil)){ |
V516= ({object _tmp=get(VV[273],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[273])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[273])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
2564 |
goto T1010;} |
V517 = V508; |
2565 |
goto T1005; |
V518 = V502; |
2566 |
goto T1010; |
(void)(( |
2567 |
T1010:; |
V519 = V516, |
2568 |
{register object x= (V511),V512= VV[90]; |
(type_of(V519) == t_sfun ?(*((V519)->sfn.sfn_self)): |
2569 |
while(V512!=Cnil) |
(fcall.argd=2,type_of(V519)==t_vfun) ? |
2570 |
if(x==(V512->c.c_car)){ |
(*((V519)->sfn.sfn_self)): |
2571 |
goto T1017; |
(fcall.fun=(V519),fcalln))(V517,V518))); |
2572 |
}else V512=V512->c.c_cdr; |
base[1]= (V508); |
2573 |
goto T1016;} |
base[2]= (V502); |
|
goto T1017; |
|
|
T1017:; |
|
|
goto T1005; |
|
|
goto T1016; |
|
|
T1016:; |
|
|
V508= number_plus((V508),small_fixnum(1)); |
|
|
V510= CMPcdr((V510)); |
|
|
V511= CMPcar((V510)); |
|
|
goto T1009;} |
|
|
goto T1005; |
|
|
T1005:; |
|
|
(void)((*(LnkLI274))((V507),V501)); |
|
|
base[1]= (V507); |
|
|
base[2]= (V501); |
|
2574 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2575 |
(void) (*Lnk259)(); |
(void) (*Lnk258)(); |
2576 |
vs_top=sup; |
vs_top=sup; |
2577 |
if(((V503))==Cnil){ |
if(((V504))==Cnil){ |
|
goto T1028;} |
|
|
base[1]= (V502); |
|
|
base[2]= V507; |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk275)(Lclptr275); |
|
|
vs_top=sup; |
|
|
goto T1028; |
|
|
T1028:; |
|
|
if(((base[0]->c.c_car))==Cnil){ |
|
2578 |
goto T1033;} |
goto T1033;} |
2579 |
base[1]=(VV[276]->s.s_gfdef); |
V522= ({object _tmp=get(VV[274],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[274])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[274])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
2580 |
base[2]= (V501); |
V523 = V503; |
2581 |
|
V524 = V508; |
2582 |
|
(void)(( |
2583 |
|
V525 = V522, |
2584 |
|
(type_of(V525) == t_sfun ?(*((V525)->sfn.sfn_self)): |
2585 |
|
(fcall.argd=2,type_of(V525)==t_vfun) ? |
2586 |
|
(*((V525)->sfn.sfn_self)): |
2587 |
|
(fcall.fun=(V525),fcalln))(V523,V524))); |
2588 |
|
goto T1033; |
2589 |
|
T1033:; |
2590 |
|
if(((base[0]->c.c_car))==Cnil){ |
2591 |
|
goto T1037;} |
2592 |
|
base[1]=(VV[275]->s.s_gfdef); |
2593 |
|
base[2]= (V502); |
2594 |
base[3]= Cnil; |
base[3]= Cnil; |
2595 |
base[5]= (V508); |
base[5]= (V509); |
2596 |
base[6]= VV[91]; |
base[6]= VV[91]; |
2597 |
base[7]= Ct; |
base[7]= Ct; |
2598 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2599 |
Lmake_list(); |
Lmake_list(); |
2600 |
vs_top=sup; |
vs_top=sup; |
2601 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2602 |
base[5]= (V502); |
base[5]= (V503); |
2603 |
V515= |
V526= |
2604 |
make_cclosure_new(LC123,Cnil,base[0],Cdata); |
make_cclosure_new(LC123,Cnil,base[0],Cdata); |
2605 |
base[6]= list(2,VV[54],V515); |
base[6]= list(2,VV[54],V526); |
2606 |
(void)simple_lispcall(base+1,5); |
(void)simple_lispcall(base+1,5); |
2607 |
goto T1033; |
goto T1037; |
2608 |
T1033:; |
T1037:; |
2609 |
{object V516 = (V507); |
{object V527 = (V508); |
2610 |
VMR32(V516)}} |
VMR32(V527)}} |
2611 |
va_end(ap); |
va_end(ap); |
2612 |
base[0]=base[0]; |
base[0]=base[0]; |
2613 |
return Cnil;} |
return Cnil;} |
2614 |
}} |
}} |
2615 |
/* local entry for function REAL-GET-METHOD */ |
/* local entry for function REAL-GET-METHOD */ |
2616 |
|
|
2617 |
static object LI37(object V519,object V518,object V517,object first,...) |
static object LI37(object V530,object V529,object V528,object first,...) |
2618 |
{ |
{ |
2619 |
va_list ap; |
va_list ap; |
2620 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
2621 |
{object V520; |
{object V531; |
2622 |
register object V521; |
register object V532; |
2623 |
register object V522; |
register object V533; |
2624 |
object V523; |
object V534; |
2625 |
va_start(ap,first); |
va_start(ap,first); |
2626 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2627 |
V520= V519; |
V531= V530; |
2628 |
V521= V518; |
V532= V529; |
2629 |
V522= V517; |
V533= V528; |
2630 |
narg = narg - 3; |
narg = narg - 3; |
2631 |
if (narg <= 0) goto T1045; |
if (narg <= 0) goto T1049; |
2632 |
else { |
else { |
2633 |
V523= first;} |
V534= first;} |
2634 |
--narg; goto T1046; |
--narg; goto T1050; |
2635 |
goto T1045; |
goto T1049; |
2636 |
T1045:; |
T1049:; |
2637 |
V523= Ct; |
V534= Ct; |
2638 |
goto T1046; |
goto T1050; |
2639 |
T1046:; |
T1050:; |
2640 |
{object V524; |
{object V535; |
2641 |
{register object V525; |
{register object V536; |
2642 |
register object V526; |
register object V537; |
2643 |
base[2]= (V520); |
base[2]= (V531); |
2644 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2645 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
2646 |
vs_top=sup; |
vs_top=sup; |
2647 |
V525= vs_base[0]; |
V536= vs_base[0]; |
2648 |
V526= CMPcar((V525)); |
V537= CMPcar((V536)); |
2649 |
goto T1053; |
goto T1057; |
2650 |
T1053:; |
T1057:; |
2651 |
if(!(((V525))==Cnil)){ |
if(!(((V536))==Cnil)){ |
2652 |
goto T1054;} |
goto T1058;} |
2653 |
V524= Cnil; |
V535= Cnil; |
2654 |
goto T1048; |
goto T1052; |
2655 |
goto T1054; |
goto T1058; |
2656 |
T1054:; |
T1058:; |
2657 |
V527 = (V521); |
V538 = (V532); |
2658 |
base[2]= (V526); |
base[2]= (V537); |
2659 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2660 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2661 |
vs_top=sup; |
vs_top=sup; |
2662 |
V528= vs_base[0]; |
V539= vs_base[0]; |
2663 |
if(!(equal(V527,V528))){ |
if(!(equal(V538,V539))){ |
2664 |
goto T1058;} |
goto T1062;} |
2665 |
base[2]= (VV[277]->s.s_gfdef); |
base[2]= (VV[276]->s.s_gfdef); |
2666 |
base[3]= (V522); |
base[3]= (V533); |
2667 |
base[5]= (V526); |
base[5]= (V537); |
2668 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2669 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
2670 |
vs_top=sup; |
vs_top=sup; |
2671 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2672 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2673 |
(void) (*Lnk279)(); |
(void) (*Lnk278)(); |
2674 |
vs_top=sup; |
vs_top=sup; |
2675 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2676 |
goto T1058;} |
goto T1062;} |
2677 |
V524= (V526); |
V535= (V537); |
2678 |
goto T1048; |
goto T1052; |
2679 |
goto T1058; |
goto T1062; |
2680 |
T1058:; |
T1062:; |
2681 |
V525= CMPcdr((V525)); |
V536= CMPcdr((V536)); |
2682 |
V526= CMPcar((V525)); |
V537= CMPcar((V536)); |
2683 |
goto T1053;} |
goto T1057;} |
2684 |
goto T1048; |
goto T1052; |
2685 |
T1048:; |
T1052:; |
2686 |
if(((V524))==Cnil){ |
if(((V535))==Cnil){ |
2687 |
goto T1075;} |
goto T1079;} |
2688 |
{object V529 = (V524); |
{object V540 = (V535); |
2689 |
VMR33(V529)} |
VMR33(V540)} |
2690 |
goto T1075; |
goto T1079; |
2691 |
T1075:; |
T1079:; |
2692 |
if(((V523))!=Cnil){ |
if(((V534))!=Cnil){ |
2693 |
goto T1078;} |
goto T1082;} |
2694 |
{object V530 = Cnil; |
{object V541 = Cnil; |
2695 |
VMR33(V530)} |
VMR33(V541)} |
2696 |
goto T1078; |
goto T1082; |
2697 |
T1078:; |
T1082:; |
2698 |
base[0]= VV[92]; |
base[0]= VV[92]; |
2699 |
base[1]= (V520); |
base[1]= (V531); |
2700 |
base[2]= (V521); |
base[2]= (V532); |
2701 |
base[3]= (V522); |
base[3]= (V533); |
2702 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
2703 |
Lerror(); |
Lerror(); |
2704 |
vs_top=sup; |
vs_top=sup; |
2705 |
{object V531 = vs_base[0]; |
{object V542 = vs_base[0]; |
2706 |
VMR33(V531)}} |
VMR33(V542)}} |
2707 |
va_end(ap); |
va_end(ap); |
2708 |
base[0]=base[0]; |
base[0]=base[0]; |
2709 |
return Cnil;} |
return Cnil;} |
2714 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2715 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2716 |
vs_check; |
vs_check; |
2717 |
{object V532; |
{object V543; |
2718 |
object V533; |
object V544; |
2719 |
register object V534; |
register object V545; |
2720 |
check_arg(3); |
check_arg(3); |
2721 |
V532=(base[0]); |
V543=(base[0]); |
2722 |
V533=(base[1]); |
V544=(base[1]); |
2723 |
V534=(base[2]); |
V545=(base[2]); |
2724 |
vs_top=sup; |
vs_top=sup; |
2725 |
goto TTL; |
goto TTL; |
2726 |
TTL:; |
TTL:; |
2727 |
{register object V536; |
{register object V547; |
2728 |
register object V537; |
register object V548; |
2729 |
register object V538; |
register object V549; |
2730 |
object V539; |
object V550; |
2731 |
base[3]= (V534); |
base[3]= (V545); |
2732 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2733 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
2734 |
vs_top=sup; |
vs_top=sup; |
2735 |
V539= vs_base[0]; |
V550= vs_base[0]; |
2736 |
V536= Cnil; |
V547= Cnil; |
2737 |
V537= Cnil; |
V548= Cnil; |
2738 |
V538= Cnil; |
V549= Cnil; |
2739 |
{register object V540; |
{register object V551; |
2740 |
register object V541; |
register object V552; |
2741 |
V540= (V539); |
V551= (V550); |
2742 |
V541= CMPcar((V540)); |
V552= CMPcar((V551)); |
2743 |
|
goto T1097; |
2744 |
|
T1097:; |
2745 |
|
if(!(((V551))==Cnil)){ |
2746 |
|
goto T1098;} |
2747 |
goto T1093; |
goto T1093; |
2748 |
T1093:; |
goto T1098; |
2749 |
if(!(((V540))==Cnil)){ |
T1098:; |
2750 |
goto T1094;} |
base[4]= (V545); |
2751 |
goto T1089; |
base[5]= (V552); |
2752 |
goto T1094; |
base[6]= (V547); |
2753 |
T1094:; |
base[7]= (V548); |
2754 |
base[4]= (V534); |
base[8]= (V549); |
|
base[5]= (V541); |
|
|
base[6]= (V536); |
|
|
base[7]= (V537); |
|
|
base[8]= (V538); |
|
2755 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
2756 |
(void) (*Lnk280)(); |
(void) (*Lnk279)(); |
2757 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2758 |
V536= vs_base[0]; |
V547= vs_base[0]; |
2759 |
vs_base++; |
vs_base++; |
2760 |
}else{ |
}else{ |
2761 |
V536= Cnil;} |
V547= Cnil;} |
2762 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2763 |
V537= vs_base[0]; |
V548= vs_base[0]; |
2764 |
vs_base++; |
vs_base++; |
2765 |
}else{ |
}else{ |
2766 |
V537= Cnil;} |
V548= Cnil;} |
2767 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2768 |
V538= vs_base[0]; |
V549= vs_base[0]; |
2769 |
}else{ |
}else{ |
2770 |
V538= Cnil;} |
V549= Cnil;} |
2771 |
vs_top=sup; |
vs_top=sup; |
2772 |
V540= CMPcdr((V540)); |
V551= CMPcdr((V551)); |
2773 |
V541= CMPcar((V540)); |
V552= CMPcar((V551)); |
2774 |
goto T1093;} |
goto T1097;} |
2775 |
goto T1089; |
goto T1093; |
2776 |
T1089:; |
T1093:; |
2777 |
base[3]= (V536); |
base[3]= (V547); |
2778 |
base[4]= (V537); |
base[4]= (V548); |
2779 |
base[6]= (V538); |
base[6]= (V549); |
2780 |
base[7]= (VV[281]->s.s_gfdef); |
base[7]= (VV[280]->s.s_gfdef); |
2781 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2782 |
(void) (*Lnk282)(); |
(void) (*Lnk281)(); |
2783 |
vs_top=sup; |
vs_top=sup; |
2784 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2785 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2792 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2793 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2794 |
vs_check; |
vs_check; |
2795 |
{object V542; |
{object V553; |
2796 |
object V543; |
object V554; |
2797 |
object V544; |
object V555; |
2798 |
object V545; |
object V556; |
2799 |
object V546; |
object V557; |
2800 |
check_arg(5); |
check_arg(5); |
2801 |
V542=(base[0]); |
V553=(base[0]); |
2802 |
V543=(base[1]); |
V554=(base[1]); |
2803 |
V544=(base[2]); |
V555=(base[2]); |
2804 |
V545=(base[3]); |
V556=(base[3]); |
2805 |
V546=(base[4]); |
V557=(base[4]); |
2806 |
vs_top=sup; |
vs_top=sup; |
2807 |
goto TTL; |
goto TTL; |
2808 |
TTL:; |
TTL:; |
2809 |
{long V547; |
{long V558; |
2810 |
V547= 0; |
V558= 0; |
2811 |
{register object V548; |
{register object V559; |
2812 |
register object V549; |
register object V560; |
2813 |
base[7]= (V543); |
base[7]= (V554); |
2814 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2815 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk282)(Lclptr282); |
2816 |
vs_top=sup; |
vs_top=sup; |
2817 |
V548= vs_base[0]; |
V559= vs_base[0]; |
2818 |
V549= CMPcar((V548)); |
V560= CMPcar((V559)); |
2819 |
goto T1121; |
goto T1125; |
2820 |
T1121:; |
T1125:; |
2821 |
if(!(((V548))==Cnil)){ |
if(!(((V559))==Cnil)){ |
2822 |
goto T1122;} |
goto T1126;} |
2823 |
goto T1116; |
goto T1120; |
2824 |
goto T1122; |
goto T1126; |
2825 |
T1122:; |
T1126:; |
2826 |
if(!(((V549))==(VV[93]))){ |
if(!(((V560))==(VV[93]))){ |
2827 |
goto T1128;} |
goto T1132;} |
2828 |
goto T1116; |
goto T1120; |
|
goto T1128; |
|
|
T1128:; |
|
|
{register object x= (V549),V550= VV[94]; |
|
|
while(V550!=Cnil) |
|
|
if(x==(V550->c.c_car)){ |
|
|
goto T1132; |
|
|
}else V550=V550->c.c_cdr; |
|
|
goto T1131;} |
|
2829 |
goto T1132; |
goto T1132; |
2830 |
T1132:; |
T1132:; |
2831 |
V545= Ct; |
{register object x= (V560),V561= VV[94]; |
2832 |
goto T1116; |
while(V561!=Cnil) |
2833 |
goto T1131; |
if(x==(V561->c.c_car)){ |
2834 |
T1131:; |
goto T1136; |
2835 |
{register object V551; |
}else V561=V561->c.c_cdr; |
2836 |
{register object x= (V549),V552= VV[90]; |
goto T1135;} |
|
while(V552!=Cnil) |
|
|
if(x==(V552->c.c_car)){ |
|
|
V551= V552; |
|
|
goto T1134; |
|
|
}else V552=V552->c.c_cdr; |
|
|
V551= Cnil;} |
|
|
goto T1134; |
|
|
T1134:; |
|
|
if(((V551))==Cnil){ |
|
|
goto T1136;} |
|
|
goto T1126; |
|
2837 |
goto T1136; |
goto T1136; |
2838 |
T1136:; |
T1136:; |
2839 |
V547= (long)(V547)+(1);} |
V556= Ct; |
2840 |
goto T1126; |
goto T1120; |
2841 |
T1126:; |
goto T1135; |
2842 |
V548= CMPcdr((V548)); |
T1135:; |
2843 |
V549= CMPcar((V548)); |
{register object V562; |
2844 |
goto T1121;} |
{register object x= (V560),V563= VV[90]; |
2845 |
goto T1116; |
while(V563!=Cnil) |
2846 |
T1116:; |
if(x==(V563->c.c_car)){ |
2847 |
{register object V553; |
V562= V563; |
2848 |
object V554; |
goto T1138; |
2849 |
register object V555; |
}else V563=V563->c.c_cdr; |
2850 |
object V556; |
V562= Cnil;} |
2851 |
base[6]= (V543); |
goto T1138; |
2852 |
|
T1138:; |
2853 |
|
if(((V562))==Cnil){ |
2854 |
|
goto T1140;} |
2855 |
|
goto T1130; |
2856 |
|
goto T1140; |
2857 |
|
T1140:; |
2858 |
|
V558= (long)(V558)+(1);} |
2859 |
|
goto T1130; |
2860 |
|
T1130:; |
2861 |
|
V559= CMPcdr((V559)); |
2862 |
|
V560= CMPcar((V559)); |
2863 |
|
goto T1125;} |
2864 |
|
goto T1120; |
2865 |
|
T1120:; |
2866 |
|
{register object V564; |
2867 |
|
object V565; |
2868 |
|
register object V566; |
2869 |
|
object V567; |
2870 |
|
base[6]= (V554); |
2871 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2872 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
2873 |
vs_top=sup; |
vs_top=sup; |
2874 |
V553= vs_base[0]; |
V564= vs_base[0]; |
2875 |
V554= Cnil; |
V565= Cnil; |
2876 |
V555= small_fixnum(0); |
V566= small_fixnum(0); |
2877 |
V556= Cnil; |
V567= Cnil; |
2878 |
goto T1151; |
goto T1155; |
2879 |
T1151:; |
T1155:; |
2880 |
{object V557; |
{object V568; |
2881 |
if(!(((V553))==Cnil)){ |
if(!(((V564))==Cnil)){ |
2882 |
goto T1157;} |
goto T1161;} |
2883 |
goto T1144; |
goto T1148; |
2884 |
goto T1157; |
goto T1161; |
2885 |
T1157:; |
T1161:; |
2886 |
V557= CMPcar((V553)); |
V568= CMPcar((V564)); |
2887 |
V553= CMPcdr((V553)); |
V564= CMPcdr((V564)); |
2888 |
V554= (V557);} |
V565= (V568);} |
2889 |
{object V558; |
{object V569; |
2890 |
V558= (V555); |
V569= (V566); |
2891 |
V555= number_plus((V555),small_fixnum(1)); |
V566= number_plus((V566),small_fixnum(1)); |
2892 |
V556= (V558);} |
V567= (V569);} |
2893 |
if(((V554))==((VV[95]->s.s_dbind))){ |
if(((V565))==((VV[95]->s.s_dbind))){ |
2894 |
goto T1152;} |
goto T1156;} |
2895 |
base[6]= V556; |
base[6]= V567; |
2896 |
base[7]= (V546); |
base[7]= (V557); |
2897 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2898 |
Ladjoin(); |
Ladjoin(); |
2899 |
vs_top=sup; |
vs_top=sup; |
2900 |
V546= vs_base[0]; |
V557= vs_base[0]; |
2901 |
goto T1152; |
goto T1156; |
2902 |
T1152:; |
T1156:; |
2903 |
goto T1151;} |
goto T1155;} |
2904 |
goto T1144; |
goto T1148; |
2905 |
T1144:; |
T1148:; |
2906 |
if((V544)!=Cnil){ |
if((V555)!=Cnil){ |
2907 |
V560= (V544); |
V571= (V555); |
2908 |
goto T1172;} |
goto T1176;} |
2909 |
V560= CMPmake_fixnum(V547); |
V571= CMPmake_fixnum(V558); |
2910 |
goto T1172; |
goto T1176; |
2911 |
T1172:; |
T1176:; |
2912 |
V561 = CMPmake_fixnum(V547); |
V572 = CMPmake_fixnum(V558); |
2913 |
base[5]= (number_compare(V560,V561)<=0?(V560):V561); |
base[5]= (number_compare(V571,V572)<=0?(V571):V572); |
2914 |
if((V545)!=Cnil){ |
if((V556)!=Cnil){ |
2915 |
base[6]= (V545); |
base[6]= (V556); |
2916 |
goto T1173;} |
goto T1177;} |
2917 |
if((V544)==Cnil){ |
if((V555)==Cnil){ |
2918 |
base[6]= Cnil; |
base[6]= Cnil; |
2919 |
goto T1173;} |
goto T1177;} |
2920 |
V562 = CMPmake_fixnum(V547); |
V573 = CMPmake_fixnum(V558); |
2921 |
base[6]= (number_compare((V544),V562)!=0?Ct:Cnil); |
base[6]= (number_compare((V555),V573)!=0?Ct:Cnil); |
2922 |
goto T1173; |
goto T1177; |
2923 |
T1173:; |
T1177:; |
2924 |
base[7]= (V546); |
base[7]= (V557); |
2925 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2926 |
return;} |
return;} |
2927 |
} |
} |
2928 |
} |
} |
2929 |
/* local entry for function MAKE-DISCRIMINATING-FUNCTION-ARGLIST */ |
/* local entry for function MAKE-DISCRIMINATING-FUNCTION-ARGLIST */ |
2930 |
|
|
2931 |
static object LI40(V565,V566) |
static object LI40(V576,V577) |
2932 |
|
|
2933 |
object V565;object V566; |
object V576;object V577; |
2934 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
2935 |
goto TTL; |
goto TTL; |
2936 |
TTL:; |
TTL:; |
2937 |
{register object V568; |
{register object V579; |
2938 |
register object V569; |
register object V580; |
2939 |
V568= Cnil; |
V579= Cnil; |
2940 |
V569= Cnil; |
V580= Cnil; |
2941 |
{register object V570; |
{register object V581; |
2942 |
register object V572; |
register object V583; |
2943 |
V570= small_fixnum(0); |
V581= small_fixnum(0); |
2944 |
V572= Cnil; |
V583= Cnil; |
|
goto T1182; |
|
|
T1182:; |
|
|
{register object V573; |
|
|
if(!(number_compare((V570),V565)<0)){ |
|
|
goto T1188;} |
|
|
V573= (V570); |
|
|
goto T1186; |
|
|
goto T1188; |
|
|
T1188:; |
|
|
goto T1178; |
|
2945 |
goto T1186; |
goto T1186; |
2946 |
T1186:; |
T1186:; |
2947 |
V570= number_plus((V570),small_fixnum(1)); |
{register object V584; |
2948 |
V572= (V573);} |
if(!(number_compare((V581),V576)<0)){ |
2949 |
{register object V574; |
goto T1192;} |
2950 |
|
V584= (V581); |
2951 |
|
goto T1190; |
2952 |
|
goto T1192; |
2953 |
|
T1192:; |
2954 |
|
goto T1182; |
2955 |
|
goto T1190; |
2956 |
|
T1190:; |
2957 |
|
V581= number_plus((V581),small_fixnum(1)); |
2958 |
|
V583= (V584);} |
2959 |
|
{register object V585; |
2960 |
base[1]= Cnil; |
base[1]= Cnil; |
2961 |
base[2]= VV[96]; |
base[2]= VV[96]; |
2962 |
base[3]= (V572); |
base[3]= (V583); |
2963 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2964 |
Lformat(); |
Lformat(); |
2965 |
vs_top=sup; |
vs_top=sup; |
2967 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2968 |
Lintern(); |
Lintern(); |
2969 |
vs_top=sup; |
vs_top=sup; |
2970 |
V574= vs_base[0]; |
V585= vs_base[0]; |
2971 |
if(((V568))!=Cnil){ |
if(((V579))!=Cnil){ |
2972 |
goto T1198;} |
goto T1202;} |
2973 |
V569= make_cons((V574),Cnil); |
V580= make_cons((V585),Cnil); |
2974 |
V568= (V569); |
V579= (V580); |
2975 |
goto T1183; |
goto T1187; |
2976 |
goto T1198; |
goto T1202; |
2977 |
T1198:; |
T1202:; |
2978 |
V576= make_cons((V574),Cnil); |
V587= make_cons((V585),Cnil); |
2979 |
((V569))->c.c_cdr = /* INLINE-ARGS */V576; |
((V580))->c.c_cdr = /* INLINE-ARGS */V587; |
2980 |
V575= (V569); |
V586= (V580); |
2981 |
V569= CMPcdr(V575);} |
V580= CMPcdr(V586);} |
2982 |
goto T1183; |
goto T1187; |
2983 |
T1183:; |
T1187:; |
2984 |
goto T1182;} |
goto T1186;} |
2985 |
goto T1178; |
goto T1182; |
2986 |
T1178:; |
T1182:; |
2987 |
V567= (V568);} |
V578= (V579);} |
2988 |
if(((V566))==Cnil){ |
if(((V577))==Cnil){ |
2989 |
goto T1207;} |
goto T1211;} |
2990 |
base[0]= VV[98]; |
base[0]= VV[98]; |
2991 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2992 |
Lintern(); |
Lintern(); |
2993 |
vs_top=sup; |
vs_top=sup; |
2994 |
V578= vs_base[0]; |
V589= vs_base[0]; |
2995 |
V577= list(2,VV[97],V578); |
V588= list(2,VV[97],V589); |
2996 |
goto T1205; |
goto T1209; |
2997 |
goto T1207; |
goto T1211; |
2998 |
T1207:; |
T1211:; |
2999 |
V577= Cnil; |
V588= Cnil; |
3000 |
goto T1205; |
goto T1209; |
3001 |
T1205:; |
T1209:; |
3002 |
{object V579 = nconc(V567,V577); |
{object V590 = nconc(V578,V588); |
3003 |
VMR36(V579)} |
VMR36(V590)} |
3004 |
base[0]=base[0]; |
base[0]=base[0]; |
3005 |
return Cnil; |
return Cnil; |
3006 |
} |
} |
3007 |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) */ |
3008 |
|
|
3009 |
static object LI41(V583,V584,V585) |
static object LI41(V594,V595,V596) |
3010 |
|
|
3011 |
object V583;object V584;object V585; |
object V594;object V595;object V596; |
3012 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
3013 |
goto TTL; |
goto TTL; |
3014 |
TTL:; |
TTL:; |
3015 |
{object V587 = (*(LnkLI284))((V585)); |
{object V598 = (*(LnkLI283))((V596)); |
3016 |
VMR37(V587)} |
VMR37(V598)} |
3017 |
return Cnil; |
return Cnil; |
3018 |
} |
} |
3019 |
/* local entry for function (FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) */ |
3020 |
|
|
3021 |
static object LI42(V591,V592,V593) |
static object LI42(V602,V603,V604) |
3022 |
|
|
3023 |
object V591;object V592;register object V593; |
object V602;object V603;register object V604; |
3024 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
3025 |
goto TTL; |
goto TTL; |
3026 |
TTL:; |
TTL:; |
3027 |
{object V595; |
{object V606; |
3028 |
object V596; |
object V607; |
3029 |
V595= CMPcar((V591)); |
V606= CMPcar((V602)); |
3030 |
V596= CMPcdr((V591)); |
V607= CMPcdr((V602)); |
3031 |
{object V597; |
{object V608; |
3032 |
if(type_of(V593)==t_structure){ |
if(type_of(V604)==t_structure){ |
3033 |
goto T1224;} |
goto T1228;} |
3034 |
goto T1222; |
goto T1226; |
3035 |
|
goto T1228; |
3036 |
|
T1228:; |
3037 |
|
if(!(((V604)->str.str_def)==(VV[99]))){ |
3038 |
|
goto T1226;} |
3039 |
|
V608= STREF(object,(V604),4); |
3040 |
goto T1224; |
goto T1224; |
3041 |
T1224:; |
goto T1226; |
3042 |
if(!(((V593)->str.str_def)==(VV[99]))){ |
T1226:;{object V610; |
3043 |
goto T1222;} |
V610= (VV[13]->s.s_dbind); |
|
V597= STREF(object,(V593),4); |
|
|
goto T1220; |
|
|
goto T1222; |
|
|
T1222:;{object V599; |
|
|
V599= (VV[13]->s.s_dbind); |
|
3044 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3045 |
base[1]= (V593); |
base[1]= (V604); |
3046 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3047 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3048 |
vs_top=sup; |
vs_top=sup; |
3049 |
V600= vs_base[0]; |
V611= vs_base[0]; |
3050 |
if(!((V599)==(CMPcar(V600)))){ |
if(!((V610)==(CMPcar(V611)))){ |
3051 |
goto T1227;}} |
goto T1231;}} |
3052 |
V597= CMPcar(((V593))->cc.cc_turbo[12]); |
V608= CMPcar(((V604))->cc.cc_turbo[12]); |
3053 |
goto T1220; |
goto T1224; |
3054 |
goto T1227; |
goto T1231; |
3055 |
T1227:; |
T1231:; |
3056 |
V597= Cnil; |
V608= Cnil; |
3057 |
goto T1220; |
goto T1224; |
3058 |
T1220:; |
T1224:; |
3059 |
{register object V602; |
{register object V613; |
3060 |
V602= ((V595))->v.v_self[1]; |
V613= ((V606))->v.v_self[1]; |
3061 |
if(!(type_of(V602)==t_fixnum)){ |
if(!(type_of(V613)==t_fixnum)){ |
3062 |
goto T1238;} |
goto T1242;} |
3063 |
V602= ((V597))->v.v_self[fix((V602))]; |
V613= ((V608))->v.v_self[fix((V613))]; |
3064 |
goto T1236; |
goto T1240; |
3065 |
goto T1238; |
goto T1242; |
3066 |
T1238:; |
T1242:; |
3067 |
V602= VV[14]; |
V613= VV[14]; |
3068 |
goto T1236; |
goto T1240; |
3069 |
T1236:; |
T1240:; |
3070 |
if(!(((V602))==(VV[14]))){ |
if(!(((V613))==(VV[14]))){ |
3071 |
goto T1241;} |
goto T1245;} |
3072 |
base[0]= (V593); |
base[0]= (V604); |
3073 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3074 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk284)(Lclptr284); |
3075 |
vs_top=sup; |
vs_top=sup; |
3076 |
V601= vs_base[0]; |
V612= vs_base[0]; |
3077 |
goto T1233; |
goto T1237; |
3078 |
goto T1241; |
goto T1245; |
3079 |
T1241:; |
T1245:; |
3080 |
V601= (V602);} |
V612= (V613);} |
3081 |
goto T1233; |
goto T1237; |
3082 |
T1233:; |
T1237:; |
3083 |
{object V604 = STREF(object,V601,40); |
{object V615 = STREF(object,V612,40); |
3084 |
VMR38(V604)}}} |
VMR38(V615)}}} |
3085 |
base[0]=base[0]; |
base[0]=base[0]; |
3086 |
return Cnil; |
return Cnil; |
3087 |
} |
} |
3088 |
/* local entry for function (FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
3089 |
|
|
3090 |
static object LI43(V609,V610,V611,V612) |
static object LI43(V620,V621,V622,V623) |
3091 |
|
|
3092 |
object V609;object V610;register object V611;object V612; |
object V620;object V621;register object V622;object V623; |
3093 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
3094 |
goto TTL; |
goto TTL; |
3095 |
TTL:; |
TTL:; |
3096 |
{object V614; |
{object V625; |
3097 |
object V616; |
object V627; |
3098 |
object V617; |
object V628; |
3099 |
V614= (*(LnkLI220))(VV[52],V612); |
V625= (*(LnkLI220))(VV[52],V623); |
3100 |
if(!(type_of((V614))==t_cons)){ |
if(!(type_of((V625))==t_cons)){ |
3101 |
goto T1249;} |
goto T1253;} |
3102 |
V616= CMPcar((V614)); |
V627= CMPcar((V625)); |
3103 |
goto T1247; |
goto T1251; |
3104 |
goto T1249; |
goto T1253; |
3105 |
T1249:; |
T1253:; |
3106 |
V616= Cnil; |
V627= Cnil; |
3107 |
goto T1247; |
goto T1251; |
3108 |
T1247:; |
T1251:; |
3109 |
V617= (*(LnkLI239))(VV[70],V612); |
V628= (*(LnkLI239))(VV[70],V623); |
3110 |
{object V618; |
{object V629; |
3111 |
object V619; |
object V630; |
3112 |
V618= CMPcar((V609)); |
V629= CMPcar((V620)); |
3113 |
V619= CMPcdr((V609)); |
V630= CMPcdr((V620)); |
3114 |
{object V620; |
{object V631; |
3115 |
if(type_of(V611)==t_structure){ |
if(type_of(V622)==t_structure){ |
3116 |
goto T1260;} |
goto T1264;} |
3117 |
goto T1258; |
goto T1262; |
3118 |
|
goto T1264; |
3119 |
|
T1264:; |
3120 |
|
if(!(((V622)->str.str_def)==(VV[101]))){ |
3121 |
|
goto T1262;} |
3122 |
|
V631= STREF(object,(V622),4); |
3123 |
goto T1260; |
goto T1260; |
3124 |
T1260:; |
goto T1262; |
3125 |
if(!(((V611)->str.str_def)==(VV[101]))){ |
T1262:;{object V633; |
3126 |
goto T1258;} |
V633= (VV[13]->s.s_dbind); |
|
V620= STREF(object,(V611),4); |
|
|
goto T1256; |
|
|
goto T1258; |
|
|
T1258:;{object V622; |
|
|
V622= (VV[13]->s.s_dbind); |
|
3127 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
3128 |
base[4]= (V611); |
base[4]= (V622); |
3129 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3130 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3131 |
vs_top=sup; |
vs_top=sup; |
3132 |
V623= vs_base[0]; |
V634= vs_base[0]; |
3133 |
if(!((V622)==(CMPcar(V623)))){ |
if(!((V633)==(CMPcar(V634)))){ |
3134 |
goto T1263;}} |
goto T1267;}} |
3135 |
V620= CMPcar(((V611))->cc.cc_turbo[12]); |
V631= CMPcar(((V622))->cc.cc_turbo[12]); |
3136 |
goto T1256; |
goto T1260; |
3137 |
goto T1263; |
goto T1267; |
3138 |
T1263:; |
T1267:; |
3139 |
V620= Cnil; |
V631= Cnil; |
3140 |
goto T1256; |
goto T1260; |
3141 |
T1256:; |
T1260:; |
3142 |
if((V614)==Cnil){ |
if((V625)==Cnil){ |
3143 |
goto T1272;} |
goto T1276;} |
3144 |
(void)((VFUN_NARGS=5,(*(LnkLI286))((V611),VV[52],(V616),VV[70],(V617)))); |
(void)((VFUN_NARGS=5,(*(LnkLI285))((V622),VV[52],(V627),VV[70],(V628)))); |
3145 |
goto T1270; |
goto T1274; |
3146 |
goto T1272; |
goto T1276; |
3147 |
T1272:; |
T1276:; |
3148 |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V611)))); |
(void)((VFUN_NARGS=1,(*(LnkLI285))((V622)))); |
3149 |
goto T1270; |
goto T1274; |
3150 |
T1270:; |
T1274:; |
3151 |
{register object V626; |
{register object V637; |
3152 |
V626= ((V618))->v.v_self[1]; |
V637= ((V629))->v.v_self[1]; |
3153 |
if(!(type_of(V626)==t_fixnum)){ |
if(!(type_of(V637)==t_fixnum)){ |
3154 |
goto T1282;} |
goto T1286;} |
3155 |
V626= ((V620))->v.v_self[fix((V626))]; |
V637= ((V631))->v.v_self[fix((V637))]; |
3156 |
goto T1280; |
goto T1284; |
3157 |
goto T1282; |
goto T1286; |
3158 |
T1282:; |
T1286:; |
3159 |
V626= VV[14]; |
V637= VV[14]; |
3160 |
goto T1280; |
goto T1284; |
3161 |
T1280:; |
T1284:; |
3162 |
if(!(((V626))==(VV[14]))){ |
if(!(((V637))==(VV[14]))){ |
3163 |
goto T1285;} |
goto T1289;} |
3164 |
base[3]= (V611); |
base[3]= (V622); |
3165 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3166 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk284)(Lclptr284); |
3167 |
vs_top=sup; |
vs_top=sup; |
3168 |
V625= vs_base[0]; |
V636= vs_base[0]; |
3169 |
goto T1277; |
goto T1281; |
3170 |
goto T1285; |
goto T1289; |
3171 |
T1285:; |
T1289:; |
3172 |
V625= (V626);} |
V636= (V637);} |
3173 |
goto T1277; |
goto T1281; |
3174 |
T1277:; |
T1281:; |
3175 |
if(((*(LnkLI287))(V625))==Cnil){ |
if(((*(LnkLI286))(V636))==Cnil){ |
3176 |
goto T1275;} |
goto T1279;} |
3177 |
{object V628 = (VFUN_NARGS=1,(*(LnkLI288))((V611))); |
{object V639 = (VFUN_NARGS=1,(*(LnkLI287))((V622))); |
3178 |
VMR39(V628)} |
VMR39(V639)} |
3179 |
goto T1275; |
goto T1279; |
3180 |
T1275:; |
T1279:; |
3181 |
{object V629 = Cnil; |
{object V640 = Cnil; |
3182 |
VMR39(V629)}}}} |
VMR39(V640)}}}} |
3183 |
base[0]=base[0]; |
base[0]=base[0]; |
3184 |
return Cnil; |
return Cnil; |
3185 |
} |
} |
3186 |
/* local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
3187 |
|
|
3188 |
static object LI44(V634,V635,V636,V637) |
static object LI44(V645,V646,V647,V648) |
3189 |
|
|
3190 |
object V634;object V635;register object V636;object V637; |
object V645;object V646;register object V647;object V648; |
3191 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
3192 |
goto TTL; |
goto TTL; |
3193 |
TTL:; |
TTL:; |
3194 |
{object V640; |
{object V651; |
3195 |
object V642; |
object V653; |
3196 |
object V643; |
object V654; |
3197 |
object V645; |
object V656; |
3198 |
V640= (*(LnkLI220))(VV[52],V637); |
V651= (*(LnkLI220))(VV[52],V648); |
3199 |
if(!(type_of((V640))==t_cons)){ |
if(!(type_of((V651))==t_cons)){ |
3200 |
goto T1293;} |
goto T1297;} |
3201 |
V642= CMPcar((V640)); |
V653= CMPcar((V651)); |
3202 |
goto T1291; |
goto T1295; |
3203 |
goto T1293; |
goto T1297; |
3204 |
T1293:; |
T1297:; |
3205 |
V642= Cnil; |
V653= Cnil; |
3206 |
goto T1291; |
goto T1295; |
3207 |
T1291:; |
T1295:; |
3208 |
V643= (*(LnkLI220))(VV[70],V637); |
V654= (*(LnkLI220))(VV[70],V648); |
3209 |
if(!(type_of((V643))==t_cons)){ |
if(!(type_of((V654))==t_cons)){ |
3210 |
goto T1298;} |
goto T1302;} |
3211 |
V645= CMPcar((V643)); |
V656= CMPcar((V654)); |
3212 |
goto T1296; |
goto T1300; |
3213 |
goto T1298; |
goto T1302; |
3214 |
T1298:; |
T1302:; |
3215 |
V645= Cnil; |
V656= Cnil; |
3216 |
goto T1296; |
goto T1300; |
3217 |
T1296:; |
T1300:; |
3218 |
{object V646; |
{object V657; |
3219 |
object V647; |
object V658; |
3220 |
V646= CMPcar((V634)); |
V657= CMPcar((V645)); |
3221 |
V647= CMPcdr((V634)); |
V658= CMPcdr((V645)); |
3222 |
{object V648; |
{object V659; |
3223 |
if(type_of(V636)==t_structure){ |
if(type_of(V647)==t_structure){ |
3224 |
goto T1308;} |
goto T1312;} |
3225 |
goto T1306; |
goto T1310; |
3226 |
|
goto T1312; |
3227 |
|
T1312:; |
3228 |
|
if(!(((V647)->str.str_def)==(VV[102]))){ |
3229 |
|
goto T1310;} |
3230 |
|
V659= STREF(object,(V647),4); |
3231 |
goto T1308; |
goto T1308; |
3232 |
T1308:; |
goto T1310; |
3233 |
if(!(((V636)->str.str_def)==(VV[102]))){ |
T1310:;{object V661; |
3234 |
goto T1306;} |
V661= (VV[13]->s.s_dbind); |
|
V648= STREF(object,(V636),4); |
|
|
goto T1304; |
|
|
goto T1306; |
|
|
T1306:;{object V650; |
|
|
V650= (VV[13]->s.s_dbind); |
|
3235 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3236 |
base[5]= (V636); |
base[5]= (V647); |
3237 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3238 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3239 |
vs_top=sup; |
vs_top=sup; |
3240 |
V651= vs_base[0]; |
V662= vs_base[0]; |
3241 |
if(!((V650)==(CMPcar(V651)))){ |
if(!((V661)==(CMPcar(V662)))){ |
3242 |
goto T1311;}} |
goto T1315;}} |
3243 |
V648= CMPcar(((V636))->cc.cc_turbo[12]); |
V659= CMPcar(((V647))->cc.cc_turbo[12]); |
3244 |
goto T1304; |
goto T1308; |
3245 |
goto T1311; |
goto T1315; |
3246 |
T1311:; |
T1315:; |
3247 |
V648= Cnil; |
V659= Cnil; |
3248 |
goto T1304; |
goto T1308; |
3249 |
T1304:; |
T1308:; |
3250 |
if((V640)==Cnil){ |
if((V651)==Cnil){ |
3251 |
goto T1320;} |
goto T1324;} |
3252 |
if((V643)==Cnil){ |
if((V654)==Cnil){ |
3253 |
goto T1323;} |
goto T1327;} |
3254 |
(void)((VFUN_NARGS=5,(*(LnkLI286))((V636),VV[52],(V642),VV[70],(V645)))); |
(void)((VFUN_NARGS=5,(*(LnkLI285))((V647),VV[52],(V653),VV[70],(V656)))); |
3255 |
goto T1318; |
goto T1322; |
3256 |
goto T1323; |
goto T1327; |
3257 |
T1323:; |
T1327:; |
3258 |
(void)((VFUN_NARGS=3,(*(LnkLI286))((V636),VV[52],(V642)))); |
(void)((VFUN_NARGS=3,(*(LnkLI285))((V647),VV[52],(V653)))); |
3259 |
goto T1318; |
goto T1322; |
3260 |
goto T1320; |
goto T1324; |
3261 |
T1320:; |
T1324:; |
3262 |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V636)))); |
(void)((VFUN_NARGS=1,(*(LnkLI285))((V647)))); |
3263 |
goto T1318; |
goto T1322; |
3264 |
T1318:; |
T1322:; |
3265 |
{register object V654; |
{register object V665; |
3266 |
V654= ((V646))->v.v_self[1]; |
V665= ((V657))->v.v_self[1]; |
3267 |
if(!(type_of(V654)==t_fixnum)){ |
if(!(type_of(V665)==t_fixnum)){ |
3268 |
goto T1336;} |
goto T1340;} |
3269 |
V654= ((V648))->v.v_self[fix((V654))]; |
V665= ((V659))->v.v_self[fix((V665))]; |
3270 |
goto T1334; |
goto T1338; |
3271 |
goto T1336; |
goto T1340; |
3272 |
T1336:; |
T1340:; |
3273 |
V654= VV[14]; |
V665= VV[14]; |
3274 |
goto T1334; |
goto T1338; |
3275 |
T1334:; |
T1338:; |
3276 |
if(!(((V654))==(VV[14]))){ |
if(!(((V665))==(VV[14]))){ |
3277 |
goto T1339;} |
goto T1343;} |
3278 |
base[4]= (V636); |
base[4]= (V647); |
3279 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3280 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk284)(Lclptr284); |
3281 |
vs_top=sup; |
vs_top=sup; |
3282 |
V653= vs_base[0]; |
V664= vs_base[0]; |
3283 |
|
goto T1335; |
3284 |
|
goto T1343; |
3285 |
|
T1343:; |
3286 |
|
V664= (V665);} |
3287 |
|
goto T1335; |
3288 |
|
T1335:; |
3289 |
|
if(((*(LnkLI286))(V664))==Cnil){ |
3290 |
|
goto T1333;} |
3291 |
|
if((V648)==Cnil){ |
3292 |
|
goto T1347;} |
3293 |
|
if(V651!=Cnil){ |
3294 |
|
if((V651)==Cnil){ |
3295 |
|
goto T1330;} |
3296 |
|
goto T1331;} |
3297 |
|
if((CMPcddr(V648))==Cnil){ |
3298 |
|
goto T1330;} |
3299 |
goto T1331; |
goto T1331; |
3300 |
goto T1339; |
goto T1347; |
3301 |
T1339:; |
T1347:; |
3302 |
V653= (V654);} |
goto T1330; |
3303 |
|
goto T1333; |
3304 |
|
T1333:; |
3305 |
|
goto T1330; |
3306 |
goto T1331; |
goto T1331; |
3307 |
T1331:; |
T1331:; |
3308 |
if(((*(LnkLI287))(V653))==Cnil){ |
{object V667 = (VFUN_NARGS=1,(*(LnkLI287))((V647))); |
3309 |
goto T1329;} |
VMR40(V667)} |
3310 |
if((V637)==Cnil){ |
goto T1330; |
3311 |
goto T1343;} |
T1330:; |
3312 |
if(V640!=Cnil){ |
{object V668 = Cnil; |
3313 |
if((V640)==Cnil){ |
VMR40(V668)}}}} |
|
goto T1326;} |
|
|
goto T1327;} |
|
|
if((CMPcddr(V637))==Cnil){ |
|
|
goto T1326;} |
|
|
goto T1327; |
|
|
goto T1343; |
|
|
T1343:; |
|
|
goto T1326; |
|
|
goto T1329; |
|
|
T1329:; |
|
|
goto T1326; |
|
|
goto T1327; |
|
|
T1327:; |
|
|
{object V656 = (VFUN_NARGS=1,(*(LnkLI288))((V636))); |
|
|
VMR40(V656)} |
|
|
goto T1326; |
|
|
T1326:; |
|
|
{object V657 = Cnil; |
|
|
VMR40(V657)}}}} |
|
3314 |
base[0]=base[0]; |
base[0]=base[0]; |
3315 |
return Cnil; |
return Cnil; |
3316 |
} |
} |
3317 |
/* local entry for function SET-METHODS */ |
/* local entry for function SET-METHODS */ |
3318 |
|
|
3319 |
static object LI45(V660,V661) |
static object LI45(V671,V672) |
3320 |
|
|
3321 |
register object V660;register object V661; |
register object V671;register object V672; |
3322 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
3323 |
goto TTL; |
goto TTL; |
3324 |
TTL:; |
TTL:; |
3325 |
base[0]= Cnil; |
V675= ({object _tmp=get(VV[257],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[257])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[257])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3326 |
base[1]= V660; |
V676 = Cnil; |
3327 |
vs_top=(vs_base=base+0)+2; |
V677 = V671; |
3328 |
(void) (*Lnk289)(Lclptr289); |
(void)(( |
3329 |
vs_top=sup; |
V678 = V675, |
3330 |
goto T1349; |
(type_of(V678) == t_sfun ?(*((V678)->sfn.sfn_self)): |
3331 |
T1349:; |
(fcall.argd=2,type_of(V678)==t_vfun) ? |
3332 |
if(((V661))!=Cnil){ |
(*((V678)->sfn.sfn_self)): |
3333 |
goto T1351;} |
(fcall.fun=(V678),fcalln))(V676,V677))); |
3334 |
{object V663 = (V660); |
goto T1352; |
3335 |
VMR41(V663)} |
T1352:; |
3336 |
goto T1351; |
if(((V672))!=Cnil){ |
3337 |
T1351:; |
goto T1354;} |
3338 |
V664 = (V660); |
{object V679 = (V671); |
3339 |
{register object V666; |
VMR41(V679)} |
3340 |
V666= CMPcar((V661)); |
goto T1354; |
3341 |
V661= CMPcdr((V661)); |
T1354:; |
3342 |
V665= (V666);} |
V680 = (V671); |
3343 |
V667 = (V661); |
{register object V682; |
3344 |
(void)((VFUN_NARGS=3,(*(LnkLI290))(V664,V665,V667))); |
V682= CMPcar((V672)); |
3345 |
goto T1349; |
V672= CMPcdr((V672)); |
3346 |
base[0]=base[0]; |
V681= (V682);} |
3347 |
|
V683 = (V672); |
3348 |
|
(void)((VFUN_NARGS=3,(*(LnkLI288))(V680,V681,V683))); |
3349 |
|
goto T1352; |
3350 |
return Cnil; |
return Cnil; |
3351 |
} |
} |
3352 |
/* local entry for function REAL-ADD-METHOD */ |
/* local entry for function REAL-ADD-METHOD */ |
3353 |
|
|
3354 |
static object LI46(object V669,object V668,object first,...) |
static object LI46(object V685,object V684,object first,...) |
3355 |
{ |
{ |
3356 |
va_list ap; |
va_list ap; |
3357 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
3358 |
{register object V670; |
{register object V686; |
3359 |
register object V671; |
register object V687; |
3360 |
object V672; |
object V688; |
3361 |
va_start(ap,first); |
va_start(ap,first); |
3362 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3363 |
V670= V669; |
V686= V685; |
3364 |
V671= V668; |
V687= V684; |
3365 |
narg = narg - 2; |
narg = narg - 2; |
3366 |
if (narg <= 0) goto T1359; |
if (narg <= 0) goto T1362; |
3367 |
else { |
else { |
3368 |
V672= first;} |
V688= first;} |
3369 |
--narg; goto T1360; |
--narg; goto T1363; |
3370 |
goto T1359; |
goto T1362; |
3371 |
T1359:; |
T1362:; |
3372 |
V672= Cnil; |
V688= Cnil; |
3373 |
goto T1360; |
goto T1363; |
3374 |
T1360:; |
T1363:; |
3375 |
base[0]= (V671); |
base[0]= (V687); |
3376 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3377 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3378 |
vs_top=sup; |
vs_top=sup; |
3379 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3380 |
goto T1363;} |
goto T1366;} |
3381 |
base[0]= VV[103]; |
base[0]= VV[103]; |
3382 |
base[1]= (V671); |
base[1]= (V687); |
3383 |
base[3]= (V671); |
base[3]= (V687); |
3384 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3385 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3386 |
vs_top=sup; |
vs_top=sup; |
3388 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3389 |
Lerror(); |
Lerror(); |
3390 |
vs_top=sup; |
vs_top=sup; |
3391 |
{object V673 = vs_base[0]; |
{object V689 = vs_base[0]; |
3392 |
VMR42(V673)} |
VMR42(V689)} |
3393 |
goto T1363; |
goto T1366; |
3394 |
T1363:; |
T1366:; |
3395 |
{object V674; |
{object V690; |
3396 |
object V675; |
object V691; |
3397 |
object V676; |
object V692; |
3398 |
object V677; |
object V693; |
3399 |
base[4]= (V670); |
base[4]= (V686); |
3400 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3401 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
3402 |
vs_top=sup; |
vs_top=sup; |
3403 |
V674= vs_base[0]; |
V690= vs_base[0]; |
3404 |
base[4]= (V671); |
base[4]= (V687); |
3405 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3406 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
3407 |
vs_top=sup; |
vs_top=sup; |
3408 |
V675= vs_base[0]; |
V691= vs_base[0]; |
3409 |
base[4]= (V671); |
base[4]= (V687); |
3410 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3411 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
|
vs_top=sup; |
|
|
V676= vs_base[0]; |
|
|
V677= (VFUN_NARGS=4,(*(LnkLI266))((V670),(V675),(V676),Cnil)); |
|
|
if(((V677))==Cnil){ |
|
|
goto T1377;} |
|
|
base[4]= (V670); |
|
|
base[5]= (V677); |
|
|
(void)simple_symlispcall(VV[268],base+4,2); |
|
|
goto T1377; |
|
|
T1377:; |
|
|
base[4]= (V670); |
|
|
base[5]= V671; |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk291)(Lclptr291); |
|
3412 |
vs_top=sup; |
vs_top=sup; |
3413 |
{object V681; |
V692= vs_base[0]; |
3414 |
base[5]= V671; |
V693= (VFUN_NARGS=4,(*(LnkLI265))((V686),(V691),(V692),Cnil)); |
3415 |
base[7]= V670; |
if(((V693))==Cnil){ |
3416 |
|
goto T1380;} |
3417 |
|
base[4]= (V686); |
3418 |
|
base[5]= (V693); |
3419 |
|
(void)simple_symlispcall(VV[267],base+4,2); |
3420 |
|
goto T1380; |
3421 |
|
T1380:; |
3422 |
|
V696= ({object _tmp=get(VV[227],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[227])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[227])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3423 |
|
V697 = V686; |
3424 |
|
V698 = V687; |
3425 |
|
(void)(( |
3426 |
|
V699 = V696, |
3427 |
|
(type_of(V699) == t_sfun ?(*((V699)->sfn.sfn_self)): |
3428 |
|
(fcall.argd=2,type_of(V699)==t_vfun) ? |
3429 |
|
(*((V699)->sfn.sfn_self)): |
3430 |
|
(fcall.fun=(V699),fcalln))(V697,V698))); |
3431 |
|
{object V702; |
3432 |
|
base[5]= V687; |
3433 |
|
base[7]= V686; |
3434 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3435 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
3436 |
vs_top=sup; |
vs_top=sup; |
3437 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
3438 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3439 |
Ladjoin(); |
Ladjoin(); |
3440 |
vs_top=sup; |
vs_top=sup; |
3441 |
V681= vs_base[0]; |
V702= vs_base[0]; |
3442 |
base[5]= (V681); |
V703= ({object _tmp=get(VV[257],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[257])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[257])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3443 |
base[6]= V670; |
V704 = (V702); |
3444 |
vs_top=(vs_base=base+5)+2; |
V705 = V686; |
3445 |
(void) (*Lnk289)(Lclptr289); |
(void)(( |
3446 |
vs_top=sup;} |
V706 = V703, |
3447 |
{register object V683; |
(type_of(V706) == t_sfun ?(*((V706)->sfn.sfn_self)): |
3448 |
register object V684; |
(fcall.argd=2,type_of(V706)==t_vfun) ? |
3449 |
V683= (V676); |
(*((V706)->sfn.sfn_self)): |
3450 |
V684= CMPcar((V683)); |
(fcall.fun=(V706),fcalln))(V704,V705)));} |
3451 |
goto T1396; |
{register object V707; |
3452 |
T1396:; |
register object V708; |
3453 |
if(!(((V683))==Cnil)){ |
V707= (V692); |
3454 |
goto T1397;} |
V708= CMPcar((V707)); |
|
goto T1392; |
|
3455 |
goto T1397; |
goto T1397; |
3456 |
T1397:; |
T1397:; |
3457 |
base[5]= (V684); |
if(!(((V707))==Cnil)){ |
3458 |
base[6]= (V671); |
goto T1398;} |
3459 |
|
goto T1393; |
3460 |
|
goto T1398; |
3461 |
|
T1398:; |
3462 |
|
base[5]= (V708); |
3463 |
|
base[6]= (V687); |
3464 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3465 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk289)(Lclptr289); |
3466 |
vs_top=sup; |
vs_top=sup; |
3467 |
V683= CMPcdr((V683)); |
V707= CMPcdr((V707)); |
3468 |
V684= CMPcar((V683)); |
V708= CMPcar((V707)); |
3469 |
goto T1396;} |
goto T1397;} |
3470 |
goto T1392; |
goto T1393; |
3471 |
T1392:; |
T1393:; |
3472 |
(void)((VFUN_NARGS=3,(*(LnkLI286))((V670),VV[104],(V671)))); |
(void)((VFUN_NARGS=3,(*(LnkLI285))((V686),VV[104],(V687)))); |
3473 |
if(((V672))!=Cnil){ |
if(((V688))!=Cnil){ |
3474 |
goto T1410;} |
goto T1411;} |
3475 |
{register object x= (V674),V685= VV[105]; |
{register object x= (V690),V709= VV[105]; |
3476 |
while(V685!=Cnil) |
while(V709!=Cnil) |
3477 |
if(eql(x,V685->c.c_car)){ |
if(eql(x,V709->c.c_car)){ |
3478 |
goto T1415; |
goto T1416; |
3479 |
}else V685=V685->c.c_cdr; |
}else V709=V709->c.c_cdr; |
3480 |
goto T1413;} |
goto T1414;} |
3481 |
goto T1415; |
goto T1416; |
3482 |
T1415:; |
T1416:; |
3483 |
base[4]= (*(LnkLI293))(CMPcar((V676))); |
base[4]= (*(LnkLI290))(CMPcar((V692))); |
3484 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3485 |
(void) (*Lnk294)(); |
(void) (*Lnk291)(); |
3486 |
vs_top=sup; |
vs_top=sup; |
3487 |
goto T1413; |
goto T1414; |
3488 |
T1413:; |
T1414:; |
3489 |
(void)((VFUN_NARGS=1,(*(LnkLI288))((V670)))); |
(void)((VFUN_NARGS=1,(*(LnkLI287))((V686)))); |
3490 |
goto T1410; |
goto T1411; |
3491 |
T1410:; |
T1411:; |
3492 |
{object V686 = (V671); |
{object V710 = (V687); |
3493 |
VMR42(V686)}} |
VMR42(V710)}} |
3494 |
va_end(ap); |
va_end(ap); |
3495 |
base[0]=base[0]; |
base[0]=base[0]; |
3496 |
return Cnil;} |
return Cnil;} |
3497 |
} |
} |
3498 |
/* local entry for function REAL-REMOVE-METHOD */ |
/* local entry for function REAL-REMOVE-METHOD */ |
3499 |
|
|
3500 |
static object LI47(V689,V690) |
static object LI47(V713,V714) |
3501 |
|
|
3502 |
register object V689;register object V690; |
register object V713;register object V714; |
3503 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
3504 |
goto TTL; |
goto TTL; |
3505 |
TTL:; |
TTL:; |
3506 |
V691 = (V689); |
V715 = (V713); |
3507 |
base[0]= (V690); |
base[0]= (V714); |
3508 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3509 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3510 |
vs_top=sup; |
vs_top=sup; |
3511 |
V692= vs_base[0]; |
V716= vs_base[0]; |
3512 |
if(!((((V691)==(V692)?Ct:Cnil))==Cnil)){ |
if(!((((V715)==(V716)?Ct:Cnil))==Cnil)){ |
3513 |
goto T1418;} |
goto T1419;} |
3514 |
base[0]= VV[106]; |
base[0]= VV[106]; |
3515 |
base[1]= (V690); |
base[1]= (V714); |
3516 |
base[3]= (V690); |
base[3]= (V714); |
3517 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3518 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3519 |
vs_top=sup; |
vs_top=sup; |
3521 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3522 |
Lerror(); |
Lerror(); |
3523 |
vs_top=sup; |
vs_top=sup; |
3524 |
{object V693 = vs_base[0]; |
{object V717 = vs_base[0]; |
3525 |
VMR43(V693)} |
VMR43(V717)} |
3526 |
goto T1418; |
goto T1419; |
3527 |
T1418:; |
T1419:; |
3528 |
{object V694; |
{object V718; |
3529 |
object V695; |
object V719; |
3530 |
object V696; |
object V720; |
3531 |
object V697; |
object V721; |
3532 |
base[4]= (V689); |
base[4]= (V713); |
3533 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3534 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
3535 |
vs_top=sup; |
vs_top=sup; |
3536 |
V694= vs_base[0]; |
V718= vs_base[0]; |
3537 |
base[4]= (V690); |
base[4]= (V714); |
3538 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3539 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
3540 |
vs_top=sup; |
vs_top=sup; |
3541 |
V695= vs_base[0]; |
V719= vs_base[0]; |
3542 |
base[4]= (V689); |
base[4]= (V713); |
3543 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3544 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
|
vs_top=sup; |
|
|
V696= vs_base[0]; |
|
|
base[4]= (V690); |
|
|
base[5]= (V696); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk295)(); |
|
3545 |
vs_top=sup; |
vs_top=sup; |
3546 |
V697= vs_base[0]; |
V720= vs_base[0]; |
3547 |
base[4]= Cnil; |
base[4]= (V714); |
3548 |
base[5]= V690; |
base[5]= (V720); |
3549 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3550 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk292)(); |
3551 |
vs_top=sup; |
vs_top=sup; |
3552 |
base[4]= (V697); |
V721= vs_base[0]; |
3553 |
base[5]= V689; |
V724= ({object _tmp=get(VV[227],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[227])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[227])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3554 |
vs_top=(vs_base=base+4)+2; |
V725 = Cnil; |
3555 |
(void) (*Lnk289)(Lclptr289); |
V726 = V714; |
3556 |
vs_top=sup; |
(void)(( |
3557 |
{register object V700; |
V727 = V724, |
3558 |
register object V701; |
(type_of(V727) == t_sfun ?(*((V727)->sfn.sfn_self)): |
3559 |
base[6]= (V690); |
(fcall.argd=2,type_of(V727)==t_vfun) ? |
3560 |
|
(*((V727)->sfn.sfn_self)): |
3561 |
|
(fcall.fun=(V727),fcalln))(V725,V726))); |
3562 |
|
V730= ({object _tmp=get(VV[257],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[257])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[257])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3563 |
|
V731 = V721; |
3564 |
|
V732 = V713; |
3565 |
|
(void)(( |
3566 |
|
V733 = V730, |
3567 |
|
(type_of(V733) == t_sfun ?(*((V733)->sfn.sfn_self)): |
3568 |
|
(fcall.argd=2,type_of(V733)==t_vfun) ? |
3569 |
|
(*((V733)->sfn.sfn_self)): |
3570 |
|
(fcall.fun=(V733),fcalln))(V731,V732))); |
3571 |
|
{register object V734; |
3572 |
|
register object V735; |
3573 |
|
base[6]= (V714); |
3574 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3575 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
3576 |
vs_top=sup; |
vs_top=sup; |
3577 |
V700= vs_base[0]; |
V734= vs_base[0]; |
3578 |
V701= CMPcar((V700)); |
V735= CMPcar((V734)); |
3579 |
|
goto T1445; |
3580 |
|
T1445:; |
3581 |
|
if(!(((V734))==Cnil)){ |
3582 |
|
goto T1446;} |
3583 |
|
goto T1440; |
3584 |
goto T1446; |
goto T1446; |
3585 |
T1446:; |
T1446:; |
3586 |
if(!(((V700))==Cnil)){ |
base[6]= (V735); |
3587 |
goto T1447;} |
base[7]= (V714); |
|
goto T1441; |
|
|
goto T1447; |
|
|
T1447:; |
|
|
base[6]= (V701); |
|
|
base[7]= (V690); |
|
3588 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
3589 |
(void) (*Lnk296)(Lclptr296); |
(void) (*Lnk293)(Lclptr293); |
3590 |
vs_top=sup; |
vs_top=sup; |
3591 |
V700= CMPcdr((V700)); |
V734= CMPcdr((V734)); |
3592 |
V701= CMPcar((V700)); |
V735= CMPcar((V734)); |
3593 |
goto T1446;} |
goto T1445;} |
3594 |
goto T1441; |
goto T1440; |
3595 |
T1441:; |
T1440:; |
3596 |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V689)))); |
(void)((VFUN_NARGS=1,(*(LnkLI285))((V713)))); |
3597 |
{register object x= (V694),V702= VV[107]; |
{register object x= (V718),V736= VV[107]; |
3598 |
while(V702!=Cnil) |
while(V736!=Cnil) |
3599 |
if(eql(x,V702->c.c_car)){ |
if(eql(x,V736->c.c_car)){ |
3600 |
goto T1462; |
goto T1461; |
3601 |
}else V702=V702->c.c_cdr; |
}else V736=V736->c.c_cdr; |
3602 |
goto T1460;} |
goto T1459;} |
3603 |
goto T1462; |
goto T1461; |
3604 |
T1462:; |
T1461:; |
3605 |
base[4]= (*(LnkLI293))(CMPcar((V695))); |
base[4]= (*(LnkLI290))(CMPcar((V719))); |
3606 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3607 |
(void) (*Lnk294)(); |
(void) (*Lnk291)(); |
3608 |
vs_top=sup; |
vs_top=sup; |
3609 |
goto T1460; |
goto T1459; |
3610 |
T1460:; |
T1459:; |
3611 |
(void)((VFUN_NARGS=1,(*(LnkLI288))((V689)))); |
(void)((VFUN_NARGS=1,(*(LnkLI287))((V713)))); |
3612 |
{object V703 = (V689); |
{object V737 = (V713); |
3613 |
VMR43(V703)}} |
VMR43(V737)}} |
3614 |
base[0]=base[0]; |
base[0]=base[0]; |
3615 |
return Cnil; |
return Cnil; |
3616 |
} |
} |
3617 |
/* local entry for function COMPUTE-APPLICABLE-METHODS-FUNCTION */ |
/* local entry for function COMPUTE-APPLICABLE-METHODS-FUNCTION */ |
3618 |
|
|
3619 |
static object LI48(V706,V707) |
static object LI48(V740,V741) |
3620 |
|
|
3621 |
object V706;object V707; |
object V740;object V741; |
3622 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
3623 |
goto TTL; |
goto TTL; |
3624 |
TTL:; |
TTL:; |
3625 |
base[1]= (V706); |
base[1]= (V740); |
3626 |
base[3]= (V706); |
base[3]= (V740); |
3627 |
base[4]= (V707); |
base[4]= (V741); |
3628 |
base[5]= VV[108]; |
base[5]= VV[108]; |
3629 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3630 |
(void) (*Lnk297)(); |
(void) (*Lnk294)(); |
3631 |
vs_top=sup; |
vs_top=sup; |
3632 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3633 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3634 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
3635 |
vs_top=sup; |
vs_top=sup; |
3636 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3637 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3638 |
vs_top=sup; |
vs_top=sup; |
3639 |
{object V708 = vs_base[0]; |
{object V742 = vs_base[0]; |
3640 |
VMR44(V708)} |
VMR44(V742)} |
3641 |
base[0]=base[0]; |
base[0]=base[0]; |
3642 |
return Cnil; |
return Cnil; |
3643 |
} |
} |
3644 |
/* local entry for function (FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) */ |
/* local entry for function (FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) */ |
3645 |
|
|
3646 |
static object LI49(V713,V714,V715,V716) |
static object LI49(V747,V748,V749,V750) |
3647 |
|
|
3648 |
object V713;object V714;object V715;object V716; |
object V747;object V748;object V749;object V750; |
3649 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
3650 |
goto TTL; |
goto TTL; |
3651 |
TTL:; |
TTL:; |
3652 |
base[1]= (V715); |
base[1]= (V749); |
3653 |
base[3]= (V715); |
base[3]= (V749); |
3654 |
base[4]= (V716); |
base[4]= (V750); |
3655 |
base[5]= VV[108]; |
base[5]= VV[108]; |
3656 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3657 |
(void) (*Lnk297)(); |
(void) (*Lnk294)(); |
3658 |
vs_top=sup; |
vs_top=sup; |
3659 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3660 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3661 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
3662 |
vs_top=sup; |
vs_top=sup; |
3663 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3664 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3665 |
vs_top=sup; |
vs_top=sup; |
3666 |
{object V718 = vs_base[0]; |
{object V752 = vs_base[0]; |
3667 |
VMR45(V718)} |
VMR45(V752)} |
3668 |
base[0]=base[0]; |
base[0]=base[0]; |
3669 |
return Cnil; |
return Cnil; |
3670 |
} |
} |
3674 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3675 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3676 |
vs_check; |
vs_check; |
3677 |
{object V719; |
{object V753; |
3678 |
object V720; |
object V754; |
3679 |
object V721; |
object V755; |
3680 |
object V722; |
object V756; |
3681 |
check_arg(4); |
check_arg(4); |
3682 |
V719=(base[0]); |
V753=(base[0]); |
3683 |
V720=(base[1]); |
V754=(base[1]); |
3684 |
V721=(base[2]); |
V755=(base[2]); |
3685 |
V722=(base[3]); |
V756=(base[3]); |
3686 |
vs_top=sup; |
vs_top=sup; |
3687 |
goto TTL; |
goto TTL; |
3688 |
TTL:; |
TTL:; |
3689 |
base[4]= (V721); |
base[4]= (V755); |
3690 |
base[6]= (V721); |
base[6]= (V755); |
3691 |
base[7]= (V722); |
base[7]= (V756); |
3692 |
base[8]= VV[109]; |
base[8]= VV[109]; |
3693 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3694 |
(void) (*Lnk297)(); |
(void) (*Lnk294)(); |
3695 |
vs_top=sup; |
vs_top=sup; |
3696 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
3697 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3698 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
3699 |
return; |
return; |
3700 |
} |
} |
3701 |
} |
} |
3702 |
/* local entry for function PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
/* local entry for function PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
3703 |
|
|
3704 |
static object LI51(V725) |
static object LI51(V759) |
3705 |
|
|
3706 |
object V725; |
object V759; |
3707 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
3708 |
goto TTL; |
goto TTL; |
3709 |
TTL:; |
TTL:; |
3710 |
{object V726; |
{object V760; |
3711 |
object V727= (V725); |
object V761= (V759); |
3712 |
if(V727==Cnil){ |
if(V761==Cnil){ |
3713 |
V725= Cnil; |
V759= Cnil; |
3714 |
goto T1489;} |
goto T1488;} |
3715 |
base[0]=V726=MMcons(Cnil,Cnil); |
base[0]=V760=MMcons(Cnil,Cnil); |
3716 |
|
goto T1489; |
3717 |
|
T1489:; |
3718 |
|
if(!(type_of((V761->c.c_car))==t_symbol)){ |
3719 |
|
goto T1492;} |
3720 |
|
(V760->c.c_car)= (VFUN_NARGS=1,(*(LnkLI259))((V761->c.c_car))); |
3721 |
|
goto T1490; |
3722 |
|
goto T1492; |
3723 |
|
T1492:; |
3724 |
|
(V760->c.c_car)= (V761->c.c_car); |
3725 |
goto T1490; |
goto T1490; |
3726 |
T1490:; |
T1490:; |
3727 |
if(!(type_of((V727->c.c_car))==t_symbol)){ |
if((V761=MMcdr(V761))==Cnil){ |
3728 |
goto T1493;} |
V759= base[0]; |
3729 |
(V726->c.c_car)= (VFUN_NARGS=1,(*(LnkLI260))((V727->c.c_car))); |
goto T1488;} |
3730 |
goto T1491; |
V760=MMcdr(V760)=MMcons(Cnil,Cnil); |
|
goto T1493; |
|
|
T1493:; |
|
|
(V726->c.c_car)= (V727->c.c_car); |
|
|
goto T1491; |
|
|
T1491:; |
|
|
if((V727=MMcdr(V727))==Cnil){ |
|
|
V725= base[0]; |
|
3731 |
goto T1489;} |
goto T1489;} |
3732 |
V726=MMcdr(V726)=MMcons(Cnil,Cnil); |
goto T1488; |
3733 |
goto T1490;} |
T1488:; |
3734 |
goto T1489; |
{register object V763; |
3735 |
T1489:; |
register object V764; |
3736 |
{register object V729; |
V763= (V759); |
3737 |
register object V730; |
V764= CMPcar((V763)); |
3738 |
V729= (V725); |
goto T1497; |
3739 |
V730= CMPcar((V729)); |
T1497:; |
3740 |
|
if(!(((V763))==Cnil)){ |
3741 |
|
goto T1498;} |
3742 |
|
{object V765 = Cnil; |
3743 |
|
VMR47(V765)} |
3744 |
goto T1498; |
goto T1498; |
3745 |
T1498:; |
T1498:; |
3746 |
if(!(((V729))==Cnil)){ |
{register object V766; |
3747 |
goto T1499;} |
register object V767; |
3748 |
{object V731 = Cnil; |
V766= (V759); |
3749 |
VMR47(V731)} |
V767= CMPcar((V766)); |
3750 |
goto T1499; |
goto T1506; |
3751 |
T1499:; |
T1506:; |
3752 |
{register object V732; |
if(!(((V766))==Cnil)){ |
3753 |
register object V733; |
goto T1507;} |
3754 |
V732= (V725); |
goto T1502; |
|
V733= CMPcar((V732)); |
|
3755 |
goto T1507; |
goto T1507; |
3756 |
T1507:; |
T1507:; |
3757 |
if(!(((V732))==Cnil)){ |
if(((V764))==((V767))){ |
3758 |
goto T1508;} |
goto T1511;} |
3759 |
goto T1503; |
{register object V768; |
3760 |
goto T1508; |
register object V769; |
3761 |
T1508:; |
register object V770; |
3762 |
if(((V730))==((V733))){ |
V768= (V767); |
3763 |
goto T1512;} |
V769= (V764); |
3764 |
{register object V734; |
base[3]= (V768); |
3765 |
register object V735; |
base[5]= (V769); |
|
register object V736; |
|
|
V734= (V733); |
|
|
V735= (V730); |
|
|
base[3]= (V734); |
|
|
base[5]= (V735); |
|
3766 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3767 |
(void) (*Lnk299)(Lclptr299); |
(void) (*Lnk296)(Lclptr296); |
3768 |
vs_top=sup; |
vs_top=sup; |
3769 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
3770 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3771 |
Ladjoin(); |
Ladjoin(); |
3772 |
vs_top=sup; |
vs_top=sup; |
3773 |
V736= vs_base[0]; |
V770= vs_base[0]; |
3774 |
{register object V737; |
V771= ({object _tmp=get(VV[296],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[296])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[296])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
3775 |
V737= (V735); |
V772 = (V770); |
3776 |
base[3]= (V736); |
V773 = (V769); |
3777 |
base[4]= (V737); |
(void)(( |
3778 |
vs_top=(vs_base=base+3)+2; |
V774 = V771, |
3779 |
(void) (*Lnk300)(Lclptr300); |
(type_of(V774) == t_sfun ?(*((V774)->sfn.sfn_self)): |
3780 |
vs_top=sup;}} |
(fcall.argd=2,type_of(V774)==t_vfun) ? |
3781 |
goto T1512; |
(*((V774)->sfn.sfn_self)): |
3782 |
T1512:; |
(fcall.fun=(V774),fcalln))(V772,V773)));} |
3783 |
V732= CMPcdr((V732)); |
goto T1511; |
3784 |
V733= CMPcar((V732)); |
T1511:; |
3785 |
goto T1507;} |
V766= CMPcdr((V766)); |
3786 |
goto T1503; |
V767= CMPcar((V766)); |
3787 |
T1503:; |
goto T1506;} |
3788 |
V729= CMPcdr((V729)); |
goto T1502; |
3789 |
V730= CMPcar((V729)); |
T1502:; |
3790 |
goto T1498;} |
V763= CMPcdr((V763)); |
3791 |
|
V764= CMPcar((V763)); |
3792 |
|
goto T1497;} |
3793 |
base[0]=base[0]; |
base[0]=base[0]; |
3794 |
return Cnil; |
return Cnil; |
3795 |
} |
} |
3796 |
/* local entry for function SUPERCLASSES-COMPATIBLE-P */ |
/* local entry for function SUPERCLASSES-COMPATIBLE-P */ |
3797 |
|
|
3798 |
static object LI52(V740,V741) |
static object LI52(V777,V778) |
3799 |
|
|
3800 |
object V740;object V741; |
object V777;object V778; |
3801 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3802 |
goto TTL; |
goto TTL; |
3803 |
TTL:; |
TTL:; |
3804 |
{object V742; |
{object V779; |
3805 |
register object V743; |
register object V780; |
3806 |
base[0]= (V740); |
base[0]= (V777); |
3807 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3808 |
(void) (*Lnk155)(Lclptr155); |
(void) (*Lnk155)(Lclptr155); |
3809 |
vs_top=sup; |
vs_top=sup; |
3810 |
V742= vs_base[0]; |
V779= vs_base[0]; |
3811 |
base[0]= (V741); |
base[0]= (V778); |
3812 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3813 |
(void) (*Lnk155)(Lclptr155); |
(void) (*Lnk155)(Lclptr155); |
3814 |
vs_top=sup; |
vs_top=sup; |
3815 |
V743= vs_base[0]; |
V780= vs_base[0]; |
3816 |
{register object V744; |
{register object V781; |
3817 |
register object V745; |
register object V782; |
3818 |
V744= (V742); |
V781= (V779); |
3819 |
V745= CMPcar((V744)); |
V782= CMPcar((V781)); |
3820 |
goto T1540; |
goto T1538; |
3821 |
T1540:; |
T1538:; |
3822 |
if(!(((V744))==Cnil)){ |
if(!(((V781))==Cnil)){ |
3823 |
goto T1541;} |
goto T1539;} |
3824 |
{object V746 = Ct; |
{object V783 = Ct; |
3825 |
VMR48(V746)} |
VMR48(V783)} |
3826 |
goto T1541; |
goto T1539; |
3827 |
T1541:; |
T1539:; |
3828 |
{register object V747; |
{register object V784; |
3829 |
register object V748; |
register object V785; |
3830 |
base[3]= (V745); |
base[3]= (V782); |
3831 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3832 |
(void) (*Lnk299)(Lclptr299); |
(void) (*Lnk296)(Lclptr296); |
3833 |
vs_top=sup; |
vs_top=sup; |
3834 |
V747= vs_base[0]; |
V784= vs_base[0]; |
3835 |
V748= CMPcar((V747)); |
V785= CMPcar((V784)); |
3836 |
goto T1550; |
goto T1548; |
3837 |
T1550:; |
T1548:; |
3838 |
if(!(((V747))==Cnil)){ |
if(!(((V784))==Cnil)){ |
3839 |
goto T1551;} |
goto T1549;} |
3840 |
goto T1545; |
goto T1543; |
3841 |
goto T1551; |
goto T1549; |
3842 |
T1551:; |
T1549:; |
3843 |
{register object x= (V748),V749= (V743); |
{register object x= (V785),V786= (V780); |
3844 |
while(V749!=Cnil) |
while(V786!=Cnil) |
3845 |
if(x==(V749->c.c_car)){ |
if(x==(V786->c.c_car)){ |
3846 |
goto T1557; |
goto T1555; |
3847 |
}else V749=V749->c.c_cdr; |
}else V786=V786->c.c_cdr; |
3848 |
goto T1555;} |
goto T1553;} |
|
goto T1557; |
|
|
T1557:; |
|
|
{object V750 = Cnil; |
|
|
VMR48(V750)} |
|
3849 |
goto T1555; |
goto T1555; |
3850 |
T1555:; |
T1555:; |
3851 |
V747= CMPcdr((V747)); |
{object V787 = Cnil; |
3852 |
V748= CMPcar((V747)); |
VMR48(V787)} |
3853 |
goto T1550;} |
goto T1553; |
3854 |
goto T1545; |
T1553:; |
3855 |
T1545:; |
V784= CMPcdr((V784)); |
3856 |
V744= CMPcdr((V744)); |
V785= CMPcar((V784)); |
3857 |
V745= CMPcar((V744)); |
goto T1548;} |
3858 |
goto T1540;}} |
goto T1543; |
3859 |
|
T1543:; |
3860 |
|
V781= CMPcdr((V781)); |
3861 |
|
V782= CMPcar((V781)); |
3862 |
|
goto T1538;}} |
3863 |
base[0]=base[0]; |
base[0]=base[0]; |
3864 |
return Cnil; |
return Cnil; |
3865 |
} |
} |
3866 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) */ |
3867 |
|
|
3868 |
static object LI53(V755,V756,V757,V758) |
static object LI53(V792,V793,V794,V795) |
3869 |
|
|
3870 |
object V755;object V756;object V757;object V758; |
object V792;object V793;object V794;object V795; |
3871 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
3872 |
goto TTL; |
goto TTL; |
3873 |
TTL:; |
TTL:; |
3874 |
{object V760 = Cnil; |
{object V797 = Cnil; |
3875 |
VMR49(V760)} |
VMR49(V797)} |
3876 |
return Cnil; |
return Cnil; |
3877 |
} |
} |
3878 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) */ |
3879 |
|
|
3880 |
static object LI54(V765,V766,V767,V768) |
static object LI54(V802,V803,V804,V805) |
3881 |
|
|
3882 |
object V765;object V766;object V767;object V768; |
object V802;object V803;object V804;object V805; |
3883 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3884 |
goto TTL; |
goto TTL; |
3885 |
TTL:; |
TTL:; |
3886 |
{object V770 = (((V767))==((V768))?Ct:Cnil); |
{object V807 = (((V804))==((V805))?Ct:Cnil); |
3887 |
VMR50(V770)} |
VMR50(V807)} |
3888 |
return Cnil; |
return Cnil; |
3889 |
} |
} |
3890 |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (CLASS)) */ |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (CLASS)) */ |
3891 |
|
|
3892 |
static object LI55(V774,V775,V776) |
static object LI55(V811,V812,V813) |
3893 |
|
|
3894 |
object V774;object V775;object V776; |
object V811;object V812;object V813; |
3895 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
3896 |
goto TTL; |
goto TTL; |
3897 |
TTL:; |
TTL:; |
3898 |
{object V778 = (V776); |
{object V815 = (V813); |
3899 |
VMR51(V778)} |
VMR51(V815)} |
3900 |
return Cnil; |
return Cnil; |
3901 |
} |
} |
3902 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) */ |
3903 |
|
|
3904 |
static object LI56(V783,V784,V785,V786) |
static object LI56(V820,V821,V822,V823) |
3905 |
|
|
3906 |
object V783;object V784;object V785;object V786; |
object V820;object V821;object V822;object V823; |
3907 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
3908 |
goto TTL; |
goto TTL; |
3909 |
TTL:; |
TTL:; |
3910 |
base[0]= (V785); |
base[0]= (V822); |
3911 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3912 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk297)(Lclptr297); |
3913 |
vs_top=sup; |
vs_top=sup; |
3914 |
V788= vs_base[0]; |
V825= vs_base[0]; |
3915 |
base[0]= (V786); |
base[0]= (V823); |
3916 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3917 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk297)(Lclptr297); |
3918 |
vs_top=sup; |
vs_top=sup; |
3919 |
V789= vs_base[0]; |
V826= vs_base[0]; |
3920 |
{object V790 = ((V788)==(V789)?Ct:Cnil); |
{object V827 = ((V825)==(V826)?Ct:Cnil); |
3921 |
VMR52(V790)} |
VMR52(V827)} |
3922 |
base[0]=base[0]; |
base[0]=base[0]; |
3923 |
return Cnil; |
return Cnil; |
3924 |
} |
} |
3925 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) */ |
3926 |
|
|
3927 |
static object LI57(V795,V796,V797,V798) |
static object LI57(V832,V833,V834,V835) |
3928 |
|
|
3929 |
object V795;object V796;object V797;object V798; |
object V832;object V833;object V834;object V835; |
3930 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3931 |
goto TTL; |
goto TTL; |
3932 |
TTL:; |
TTL:; |
3933 |
base[0]= (V797); |
base[0]= (V834); |
3934 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3935 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk298)(Lclptr298); |
3936 |
vs_top=sup; |
vs_top=sup; |
3937 |
V800= vs_base[0]; |
V837= vs_base[0]; |
3938 |
base[0]= (V798); |
base[0]= (V835); |
3939 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3940 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk298)(Lclptr298); |
3941 |
vs_top=sup; |
vs_top=sup; |
3942 |
V801= vs_base[0]; |
V838= vs_base[0]; |
3943 |
{object V802 = ((V800)==(V801)?Ct:Cnil); |
{object V839 = ((V837)==(V838)?Ct:Cnil); |
3944 |
VMR53(V802)} |
VMR53(V839)} |
3945 |
base[0]=base[0]; |
base[0]=base[0]; |
3946 |
return Cnil; |
return Cnil; |
3947 |
} |
} |
3948 |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) */ |
3949 |
|
|
3950 |
static object LI58(V806,V807,V808) |
static object LI58(V843,V844,V845) |
3951 |
|
|
3952 |
object V806;object V807;register object V808; |
object V843;object V844;register object V845; |
3953 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3954 |
goto TTL; |
goto TTL; |
3955 |
TTL:; |
TTL:; |
3956 |
{object V810; |
{object V847; |
3957 |
object V811; |
object V848; |
3958 |
V810= CMPcar((V806)); |
V847= CMPcar((V843)); |
3959 |
V811= CMPcdr((V806)); |
V848= CMPcdr((V843)); |
3960 |
{object V812; |
{object V849; |
3961 |
if(type_of(V808)==t_structure){ |
if(type_of(V845)==t_structure){ |
|
goto T1605;} |
|
|
goto T1603; |
|
|
goto T1605; |
|
|
T1605:; |
|
|
if(!(((V808)->str.str_def)==(VV[110]))){ |
|
3962 |
goto T1603;} |
goto T1603;} |
|
V812= STREF(object,(V808),4); |
|
3963 |
goto T1601; |
goto T1601; |
3964 |
goto T1603; |
goto T1603; |
3965 |
T1603:;{object V814; |
T1603:; |
3966 |
V814= (VV[13]->s.s_dbind); |
if(!(((V845)->str.str_def)==(VV[110]))){ |
3967 |
|
goto T1601;} |
3968 |
|
V849= STREF(object,(V845),4); |
3969 |
|
goto T1599; |
3970 |
|
goto T1601; |
3971 |
|
T1601:;{object V851; |
3972 |
|
V851= (VV[13]->s.s_dbind); |
3973 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3974 |
base[1]= (V808); |
base[1]= (V845); |
3975 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3976 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3977 |
vs_top=sup; |
vs_top=sup; |
3978 |
V815= vs_base[0]; |
V852= vs_base[0]; |
3979 |
if(!((V814)==(CMPcar(V815)))){ |
if(!((V851)==(CMPcar(V852)))){ |
3980 |
goto T1608;}} |
goto T1606;}} |
3981 |
V812= CMPcar(((V808))->cc.cc_turbo[12]); |
V849= CMPcar(((V845))->cc.cc_turbo[12]); |
3982 |
goto T1601; |
goto T1599; |
3983 |
goto T1608; |
goto T1606; |
3984 |
T1608:; |
T1606:; |
3985 |
V812= Cnil; |
V849= Cnil; |
3986 |
goto T1601; |
goto T1599; |
3987 |
T1601:; |
T1599:; |
3988 |
{register object V817; |
{register object V854; |
3989 |
V817= ((V810))->v.v_self[1]; |
V854= ((V847))->v.v_self[1]; |
3990 |
if(!(type_of(V817)==t_fixnum)){ |
if(!(type_of(V854)==t_fixnum)){ |
3991 |
goto T1619;} |
goto T1617;} |
3992 |
V817= ((V812))->v.v_self[fix((V817))]; |
V854= ((V849))->v.v_self[fix((V854))]; |
3993 |
goto T1617; |
goto T1615; |
|
goto T1619; |
|
|
T1619:; |
|
|
V817= VV[14]; |
|
3994 |
goto T1617; |
goto T1617; |
3995 |
T1617:; |
T1617:; |
3996 |
if(!(((V817))==(VV[14]))){ |
V854= VV[14]; |
3997 |
goto T1622;} |
goto T1615; |
3998 |
base[0]= (V808); |
T1615:; |
3999 |
|
if(!(((V854))==(VV[14]))){ |
4000 |
|
goto T1620;} |
4001 |
|
base[0]= (V845); |
4002 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4003 |
(void) (*Lnk303)(Lclptr303); |
(void) (*Lnk299)(Lclptr299); |
4004 |
vs_top=sup; |
vs_top=sup; |
4005 |
V816= vs_base[0]; |
V853= vs_base[0]; |
4006 |
goto T1614; |
goto T1612; |
4007 |
goto T1622; |
goto T1620; |
4008 |
T1622:; |
T1620:; |
4009 |
V816= (V817);} |
V853= (V854);} |
4010 |
goto T1614; |
goto T1612; |
4011 |
T1614:; |
T1612:; |
4012 |
{object V819 = (*(LnkLI149))(V816); |
{object V856 = (*(LnkLI149))(V853); |
4013 |
VMR54(V819)}}} |
VMR54(V856)}}} |
4014 |
base[0]=base[0]; |
base[0]=base[0]; |
4015 |
return Cnil; |
return Cnil; |
4016 |
} |
} |
4020 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4021 |
register object *sup=base+VM55; VC55 |
register object *sup=base+VM55; VC55 |
4022 |
vs_check; |
vs_check; |
4023 |
{object V820; |
{object V857; |
4024 |
register object V821; |
register object V858; |
4025 |
register object V822; |
register object V859; |
4026 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
4027 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
4028 |
V820=(base[0]); |
V857=(base[0]); |
4029 |
V821=(base[1]); |
V858=(base[1]); |
4030 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
4031 |
if(vs_base>=vs_top){vs_top=sup;goto T1625;} |
if(vs_base>=vs_top){vs_top=sup;goto T1623;} |
4032 |
V822=(base[2]); |
V859=(base[2]); |
4033 |
vs_top=sup; |
vs_top=sup; |
4034 |
goto T1626; |
goto T1624; |
4035 |
goto T1625; |
goto T1623; |
4036 |
T1625:; |
T1623:; |
4037 |
V822= Cnil; |
V859= Cnil; |
4038 |
goto T1626; |
goto T1624; |
4039 |
T1626:; |
T1624:; |
4040 |
{object V823; |
{object V860; |
4041 |
object V824; |
object V861; |
4042 |
object V825; |
object V862; |
4043 |
object V826; |
object V863; |
4044 |
object V827; |
object V864; |
4045 |
base[3]= (V820); |
base[3]= (V857); |
4046 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4047 |
(void) (*Lnk304)(); |
(void) (*Lnk300)(); |
4048 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1628;} |
4049 |
|
V860= vs_base[0]; |
4050 |
|
vs_base++; |
4051 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1629;} |
4052 |
|
V861= vs_base[0]; |
4053 |
|
vs_base++; |
4054 |
if(vs_base>=vs_top){vs_top=sup;goto T1630;} |
if(vs_base>=vs_top){vs_top=sup;goto T1630;} |
4055 |
V823= vs_base[0]; |
V862= vs_base[0]; |
4056 |
vs_base++; |
vs_base++; |
4057 |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
4058 |
V824= vs_base[0]; |
V863= vs_base[0]; |
4059 |
vs_base++; |
vs_base++; |
4060 |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
4061 |
V825= vs_base[0]; |
V864= vs_base[0]; |
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1633;} |
|
|
V826= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1634;} |
|
|
V827= vs_base[0]; |
|
4062 |
vs_top=sup; |
vs_top=sup; |
4063 |
goto T1635; |
goto T1633; |
4064 |
|
goto T1628; |
4065 |
|
T1628:; |
4066 |
|
V860= Cnil; |
4067 |
|
goto T1629; |
4068 |
|
T1629:; |
4069 |
|
V861= Cnil; |
4070 |
goto T1630; |
goto T1630; |
4071 |
T1630:; |
T1630:; |
4072 |
V823= Cnil; |
V862= Cnil; |
4073 |
goto T1631; |
goto T1631; |
4074 |
T1631:; |
T1631:; |
4075 |
V824= Cnil; |
V863= Cnil; |
4076 |
goto T1632; |
goto T1632; |
4077 |
T1632:; |
T1632:; |
4078 |
V825= Cnil; |
V864= Cnil; |
4079 |
goto T1633; |
goto T1633; |
4080 |
T1633:; |
T1633:; |
4081 |
V826= Cnil; |
{register object V865; |
4082 |
|
V865= Cnil; |
4083 |
|
{long V866; |
4084 |
|
register long V867; |
4085 |
|
V866= fix((V860)); |
4086 |
|
V867= 0; |
4087 |
|
goto T1638; |
4088 |
|
T1638:; |
4089 |
|
if(!((V867)>=(V866))){ |
4090 |
|
goto T1639;} |
4091 |
goto T1634; |
goto T1634; |
4092 |
T1634:; |
goto T1639; |
4093 |
V827= Cnil; |
T1639:; |
4094 |
goto T1635; |
if(((V858))!=Cnil){ |
4095 |
T1635:; |
goto T1642;} |
|
{register object V828; |
|
|
V828= Cnil; |
|
|
{long V829; |
|
|
register long V830; |
|
|
V829= fix((V823)); |
|
|
V830= 0; |
|
|
goto T1640; |
|
|
T1640:; |
|
|
if(!((V830)>=(V829))){ |
|
|
goto T1641;} |
|
|
goto T1636; |
|
|
goto T1641; |
|
|
T1641:; |
|
|
if(((V821))!=Cnil){ |
|
|
goto T1644;} |
|
4096 |
base[3]= VV[111]; |
base[3]= VV[111]; |
4097 |
base[5]= (V820); |
base[5]= (V857); |
4098 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4099 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
4100 |
vs_top=sup; |
vs_top=sup; |
4101 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
4102 |
base[5]= (V823); |
base[5]= (V860); |
4103 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4104 |
Lerror(); |
Lerror(); |
4105 |
vs_top=sup; |
vs_top=sup; |
4106 |
goto T1644; |
goto T1642; |
4107 |
T1644:; |
T1642:; |
4108 |
{register object V831; |
{register object V868; |
4109 |
{register object V832; |
{register object V869; |
4110 |
V832= CMPcar((V821)); |
V869= CMPcar((V858)); |
4111 |
V821= CMPcdr((V821)); |
V858= CMPcdr((V858)); |
4112 |
V831= (V832);} |
V868= (V869);} |
4113 |
{register object V833; |
{register object V870; |
4114 |
if(((V822))==Cnil){ |
if(((V859))==Cnil){ |
4115 |
goto T1658;} |
goto T1656;} |
4116 |
V833= list(2,(V822),(V831)); |
V870= list(2,(V859),(V868)); |
4117 |
goto T1656; |
goto T1654; |
|
goto T1658; |
|
|
T1658:; |
|
|
V833= (V831); |
|
4118 |
goto T1656; |
goto T1656; |
4119 |
T1656:; |
T1656:; |
4120 |
V828= make_cons((V833),(V828));}} |
V870= (V868); |
4121 |
V830= (long)(V830)+1; |
goto T1654; |
4122 |
goto T1640;} |
T1654:; |
4123 |
goto T1636; |
V865= make_cons((V870),(V865));}} |
4124 |
T1636:; |
V867= (long)(V867)+1; |
4125 |
base[3]= nreverse((V828)); |
goto T1638;} |
4126 |
base[4]= (V827); |
goto T1634; |
4127 |
|
T1634:; |
4128 |
|
base[3]= nreverse((V865)); |
4129 |
|
base[4]= (V864); |
4130 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4131 |
return;}} |
return;}} |
4132 |
} |
} |
4133 |
} |
} |
4134 |
/* local entry for function GET-WRAPPERS-FROM-CLASSES */ |
/* local entry for function GET-WRAPPERS-FROM-CLASSES */ |
4135 |
|
|
4136 |
static object LI60(V838,V839,V840,V841) |
static object LI60(V875,V876,V877,V878) |
4137 |
|
|
4138 |
object V838;object V839;object V840;object V841; |
object V875;object V876;object V877;object V878; |
4139 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
4140 |
goto TTL; |
goto TTL; |
4141 |
TTL:; |
TTL:; |
4142 |
{object V842; |
{object V879; |
4143 |
register object V843; |
register object V880; |
4144 |
register object V844; |
register object V881; |
4145 |
V842= (V839); |
V879= (V876); |
4146 |
V843= (V842); |
V880= (V879); |
4147 |
V844= (V841); |
V881= (V878); |
4148 |
{register object V845; |
{register object V882; |
4149 |
register object V846; |
register object V883; |
4150 |
if(!(type_of((V840))==t_cons||((V840))==Cnil)){ |
if(!(type_of((V877))==t_cons||((V877))==Cnil)){ |
4151 |
goto T1672;} |
goto T1670;} |
4152 |
V845= (V840); |
V882= (V877); |
4153 |
goto T1670; |
goto T1668; |
|
goto T1672; |
|
|
T1672:; |
|
|
V845= make_cons((V840),Cnil); |
|
4154 |
goto T1670; |
goto T1670; |
4155 |
T1670:; |
T1670:; |
4156 |
V846= CMPcar((V845)); |
V882= make_cons((V877),Cnil); |
4157 |
goto T1676; |
goto T1668; |
4158 |
T1676:; |
T1668:; |
4159 |
if(!(((V845))==Cnil)){ |
V883= CMPcar((V882)); |
4160 |
goto T1677;} |
goto T1674; |
4161 |
goto T1669; |
T1674:; |
4162 |
goto T1677; |
if(!(((V882))==Cnil)){ |
4163 |
T1677:; |
goto T1675;} |
4164 |
if((Ct)==(CMPcar((V844)))){ |
goto T1667; |
4165 |
goto T1681;} |
goto T1675; |
4166 |
{register object V847; |
T1675:; |
4167 |
base[2]= (V846); |
if((Ct)==(CMPcar((V881)))){ |
4168 |
|
goto T1679;} |
4169 |
|
{register object V884; |
4170 |
|
base[2]= (V883); |
4171 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4172 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk301)(Lclptr301); |
4173 |
vs_top=sup; |
vs_top=sup; |
4174 |
V847= vs_base[0]; |
V884= vs_base[0]; |
4175 |
if(((V847))!=Cnil){ |
if(((V884))!=Cnil){ |
4176 |
goto T1686;} |
goto T1684;} |
4177 |
{object V848 = Cnil; |
{object V885 = Cnil; |
4178 |
VMR56(V848)} |
VMR56(V885)} |
4179 |
goto T1686; |
goto T1684; |
4180 |
T1686:; |
T1684:; |
4181 |
if(!(eql((V838),small_fixnum(1)))){ |
if(!(eql((V875),small_fixnum(1)))){ |
4182 |
goto T1690;} |
goto T1688;} |
4183 |
V842= (V847); |
V879= (V884); |
4184 |
goto T1681; |
goto T1679; |
4185 |
goto T1690; |
goto T1688; |
4186 |
T1690:; |
T1688:; |
4187 |
{register object V850; |
{register object V887; |
4188 |
V850= (V847); |
V887= (V884); |
4189 |
(V843)->c.c_car = (V850);} |
(V880)->c.c_car = (V887);} |
4190 |
V843= CMPcdr((V843));} |
V880= CMPcdr((V880));} |
4191 |
goto T1681; |
goto T1679; |
4192 |
T1681:; |
T1679:; |
4193 |
V844= CMPcdr((V844)); |
V881= CMPcdr((V881)); |
4194 |
V845= CMPcdr((V845)); |
V882= CMPcdr((V882)); |
4195 |
V846= CMPcar((V845)); |
V883= CMPcar((V882)); |
4196 |
goto T1676;} |
goto T1674;} |
4197 |
goto T1669; |
goto T1667; |
4198 |
T1669:; |
T1667:; |
4199 |
{object V851 = (V842); |
{object V888 = (V879); |
4200 |
VMR56(V851)}} |
VMR56(V888)}} |
4201 |
base[0]=base[0]; |
base[0]=base[0]; |
4202 |
return Cnil; |
return Cnil; |
4203 |
} |
} |
4207 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4208 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
4209 |
vs_check; |
vs_check; |
4210 |
{object V852; |
{object V889; |
4211 |
object V853; |
object V890; |
4212 |
check_arg(2); |
check_arg(2); |
4213 |
V852=(base[0]); |
V889=(base[0]); |
4214 |
V853=(base[1]); |
V890=(base[1]); |
4215 |
vs_top=sup; |
vs_top=sup; |
4216 |
goto TTL; |
goto TTL; |
4217 |
TTL:; |
TTL:; |
4218 |
{object V854; |
{object V891; |
4219 |
base[3]=VV[306]->s.s_gfdef; |
base[3]=VV[302]->s.s_gfdef; |
4220 |
{object V855; |
{object V892; |
4221 |
object V856= (V853); |
object V893= (V890); |
4222 |
if(V856==Cnil){ |
if(V893==Cnil){ |
4223 |
V854= Cnil; |
V891= Cnil; |
4224 |
goto T1704;} |
goto T1702;} |
4225 |
base[2]=V855=MMcons(Cnil,Cnil); |
base[2]=V892=MMcons(Cnil,Cnil); |
4226 |
goto T1705; |
goto T1703; |
4227 |
T1705:; |
T1703:; |
4228 |
base[4]= (V856->c.c_car); |
base[4]= (V893->c.c_car); |
4229 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4230 |
(void) (*Lnk306)(); |
(void) (*Lnk302)(); |
4231 |
vs_top=sup; |
vs_top=sup; |
4232 |
(V855->c.c_car)= vs_base[0]; |
(V892->c.c_car)= vs_base[0]; |
4233 |
if((V856=MMcdr(V856))==Cnil){ |
if((V893=MMcdr(V893))==Cnil){ |
4234 |
V854= base[2]; |
V891= base[2]; |
4235 |
goto T1704;} |
goto T1702;} |
4236 |
V855=MMcdr(V855)=MMcons(Cnil,Cnil); |
V892=MMcdr(V892)=MMcons(Cnil,Cnil); |
4237 |
goto T1705;} |
goto T1703;} |
4238 |
goto T1704; |
goto T1702; |
4239 |
T1704:; |
T1702:; |
4240 |
{object V857; |
{object V894; |
4241 |
object V858; |
object V895; |
4242 |
base[2]= (V852); |
base[2]= (V889); |
4243 |
base[3]= (V854); |
base[3]= (V891); |
4244 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4245 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
4246 |
if(vs_base>=vs_top){vs_top=sup;goto T1711;} |
if(vs_base>=vs_top){vs_top=sup;goto T1709;} |
4247 |
V857= vs_base[0]; |
V894= vs_base[0]; |
4248 |
vs_base++; |
vs_base++; |
4249 |
if(vs_base>=vs_top){vs_top=sup;goto T1712;} |
if(vs_base>=vs_top){vs_top=sup;goto T1710;} |
4250 |
V858= vs_base[0]; |
V895= vs_base[0]; |
4251 |
vs_top=sup; |
vs_top=sup; |
4252 |
goto T1713; |
goto T1711; |
4253 |
|
goto T1709; |
4254 |
|
T1709:; |
4255 |
|
V894= Cnil; |
4256 |
|
goto T1710; |
4257 |
|
T1710:; |
4258 |
|
V895= Cnil; |
4259 |
goto T1711; |
goto T1711; |
4260 |
T1711:; |
T1711:; |
4261 |
V857= Cnil; |
base[2]= (VFUN_NARGS=6,(*(LnkLI303))((V889),(V894),(V891),Cnil,Ct,(V895))); |
|
goto T1712; |
|
|
T1712:; |
|
|
V858= Cnil; |
|
|
goto T1713; |
|
|
T1713:; |
|
|
base[2]= (VFUN_NARGS=6,(*(LnkLI307))((V852),(V857),(V854),Cnil,Ct,(V858))); |
|
4262 |
base[3]= Cnil; |
base[3]= Cnil; |
4263 |
base[6]=VV[305]->s.s_gfdef; |
base[6]=VV[301]->s.s_gfdef; |
4264 |
{object V859; |
{object V896; |
4265 |
object V860= (V853); |
object V897= (V890); |
4266 |
if(V860==Cnil){ |
if(V897==Cnil){ |
4267 |
base[4]= Cnil; |
base[4]= Cnil; |
4268 |
goto T1716;} |
goto T1714;} |
4269 |
base[5]=V859=MMcons(Cnil,Cnil); |
base[5]=V896=MMcons(Cnil,Cnil); |
4270 |
goto T1717; |
goto T1715; |
4271 |
T1717:; |
T1715:; |
4272 |
base[7]= (V860->c.c_car); |
base[7]= (V897->c.c_car); |
4273 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4274 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk301)(Lclptr301); |
4275 |
vs_top=sup; |
vs_top=sup; |
4276 |
(V859->c.c_car)= vs_base[0]; |
(V896->c.c_car)= vs_base[0]; |
4277 |
if((V860=MMcdr(V860))==Cnil){ |
if((V897=MMcdr(V897))==Cnil){ |
4278 |
base[4]= base[5]; |
base[4]= base[5]; |
4279 |
goto T1716;} |
goto T1714;} |
4280 |
V859=MMcdr(V859)=MMcons(Cnil,Cnil); |
V896=MMcdr(V896)=MMcons(Cnil,Cnil); |
4281 |
goto T1717;} |
goto T1715;} |
4282 |
goto T1716; |
goto T1714; |
4283 |
T1716:; |
T1714:; |
4284 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4285 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4286 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4291 |
} |
} |
4292 |
/* local entry for function VALUE-FOR-CACHING */ |
/* local entry for function VALUE-FOR-CACHING */ |
4293 |
|
|
4294 |
static object LI62(V863,V864) |
static object LI62(V900,V901) |
4295 |
|
|
4296 |
object V863;object V864; |
object V900;object V901; |
4297 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
4298 |
goto TTL; |
goto TTL; |
4299 |
TTL:; |
TTL:; |
4300 |
{object V865; |
{object V902; |
4301 |
base[0]= (V863); |
base[0]= (V900); |
4302 |
base[3]=VV[306]->s.s_gfdef; |
base[3]=VV[302]->s.s_gfdef; |
4303 |
{object V866; |
{object V903; |
4304 |
object V867= (V864); |
object V904= (V901); |
4305 |
if(V867==Cnil){ |
if(V904==Cnil){ |
4306 |
base[1]= Cnil; |
base[1]= Cnil; |
4307 |
goto T1722;} |
goto T1720;} |
4308 |
base[2]=V866=MMcons(Cnil,Cnil); |
base[2]=V903=MMcons(Cnil,Cnil); |
4309 |
goto T1723; |
goto T1721; |
4310 |
T1723:; |
T1721:; |
4311 |
base[4]= (V867->c.c_car); |
base[4]= (V904->c.c_car); |
4312 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4313 |
(void) (*Lnk306)(); |
(void) (*Lnk302)(); |
4314 |
vs_top=sup; |
vs_top=sup; |
4315 |
(V866->c.c_car)= vs_base[0]; |
(V903->c.c_car)= vs_base[0]; |
4316 |
if((V867=MMcdr(V867))==Cnil){ |
if((V904=MMcdr(V904))==Cnil){ |
4317 |
base[1]= base[2]; |
base[1]= base[2]; |
4318 |
goto T1722;} |
goto T1720;} |
4319 |
V866=MMcdr(V866)=MMcons(Cnil,Cnil); |
V903=MMcdr(V903)=MMcons(Cnil,Cnil); |
4320 |
goto T1723;} |
goto T1721;} |
4321 |
goto T1722; |
goto T1720; |
4322 |
T1722:; |
T1720:; |
4323 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4324 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
4325 |
vs_top=sup; |
vs_top=sup; |
4326 |
V865= vs_base[0];{object V869; |
V902= vs_base[0];{object V906; |
4327 |
base[0]= CMPcar((V865)); |
base[0]= CMPcar((V902)); |
4328 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4329 |
(void) (*Lnk309)(Lclptr309); |
(void) (*Lnk305)(Lclptr305); |
4330 |
vs_top=sup; |
vs_top=sup; |
4331 |
V869= vs_base[0]; |
V906= vs_base[0]; |
4332 |
if(V869==Cnil)goto T1727; |
if(V906==Cnil)goto T1725; |
4333 |
V868= V869; |
V905= V906; |
4334 |
goto T1726; |
goto T1724; |
4335 |
goto T1727; |
goto T1725; |
4336 |
T1727:;} |
T1725:;} |
4337 |
base[0]= CMPcar((V865)); |
base[0]= CMPcar((V902)); |
4338 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4339 |
(void) (*Lnk310)(Lclptr310); |
(void) (*Lnk306)(Lclptr306); |
4340 |
vs_top=sup; |
vs_top=sup; |
4341 |
V868= vs_base[0]; |
V905= vs_base[0]; |
4342 |
goto T1726; |
goto T1724; |
4343 |
T1726:; |
T1724:; |
4344 |
{object V870 = (VFUN_NARGS=2,(*(LnkLI308))(V868,VV[112])); |
{object V907 = (VFUN_NARGS=2,(*(LnkLI304))(V905,VV[112])); |
4345 |
VMR58(V870)}} |
VMR58(V907)}} |
4346 |
base[0]=base[0]; |
base[0]=base[0]; |
4347 |
return Cnil; |
return Cnil; |
4348 |
} |
} |
4349 |
/* local entry for function DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
/* local entry for function DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
4350 |
|
|
4351 |
static object LI64(V872) |
static object LI64(V909) |
4352 |
|
|
4353 |
object V872; |
object V909; |
4354 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
4355 |
goto TTL; |
goto TTL; |
4356 |
TTL:; |
TTL:; |
4357 |
base[0]=MMcons((V872),Cnil); |
base[0]=MMcons((V909),Cnil); |
4358 |
{object V873 = |
{object V910 = |
4359 |
make_cclosure_new(LC124,Cnil,base[0],Cdata); |
make_cclosure_new(LC124,Cnil,base[0],Cdata); |
4360 |
VMR59(V873)} |
VMR59(V910)} |
4361 |
base[0]=base[0]; |
base[0]=base[0]; |
4362 |
return Cnil; |
return Cnil; |
4363 |
} |
} |
4364 |
/* local entry for function LIST-EQ */ |
/* local entry for function LIST-EQ */ |
4365 |
|
|
4366 |
static object LI65(V876,V877) |
static object LI65(V913,V914) |
4367 |
|
|
4368 |
register object V876;register object V877; |
register object V913;register object V914; |
4369 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
4370 |
goto TTL; |
goto TTL; |
4371 |
TTL:; |
TTL:; |
4372 |
|
goto T1730; |
4373 |
|
T1730:; |
4374 |
|
if(!(type_of((V913))!=t_cons)){ |
4375 |
|
goto T1732;} |
4376 |
|
{object V915 = (((V913))==((V914))?Ct:Cnil); |
4377 |
|
VMR60(V915)} |
4378 |
goto T1732; |
goto T1732; |
4379 |
T1732:; |
T1732:; |
4380 |
if(!(type_of((V876))!=t_cons)){ |
if(!(type_of((V914))!=t_cons)){ |
4381 |
goto T1734;} |
goto T1735;} |
4382 |
{object V878 = (((V876))==((V877))?Ct:Cnil); |
{object V916 = Cnil; |
4383 |
VMR60(V878)} |
VMR60(V916)} |
4384 |
goto T1734; |
goto T1735; |
4385 |
T1734:; |
T1735:; |
4386 |
if(!(type_of((V877))!=t_cons)){ |
if((CMPcar((V913)))==(CMPcar((V914)))){ |
4387 |
goto T1737;} |
goto T1738;} |
4388 |
{object V879 = Cnil; |
{object V917 = Cnil; |
4389 |
VMR60(V879)} |
VMR60(V917)} |
4390 |
goto T1737; |
goto T1738; |
4391 |
T1737:; |
T1738:; |
4392 |
if((CMPcar((V876)))==(CMPcar((V877)))){ |
V913= CMPcdr((V913)); |
4393 |
goto T1740;} |
V914= CMPcdr((V914)); |
4394 |
{object V880 = Cnil; |
goto T1730; |
|
VMR60(V880)} |
|
|
goto T1740; |
|
|
T1740:; |
|
|
V876= CMPcdr((V876)); |
|
|
V877= CMPcdr((V877)); |
|
|
goto T1732; |
|
4395 |
return Cnil; |
return Cnil; |
4396 |
} |
} |
4397 |
/* function definition for COMPUTE-APPLICABLE-METHODS-EMF */ |
/* function definition for COMPUTE-APPLICABLE-METHODS-EMF */ |
4400 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4401 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
4402 |
vs_check; |
vs_check; |
4403 |
{object V881; |
{object V918; |
4404 |
check_arg(1); |
check_arg(1); |
4405 |
V881=(base[0]); |
V918=(base[0]); |
4406 |
vs_top=sup; |
vs_top=sup; |
4407 |
goto TTL; |
goto TTL; |
4408 |
TTL:; |
TTL:; |
4409 |
if(!(((VV[113]->s.s_dbind))==(VV[114]))){ |
if(!(((VV[113]->s.s_dbind))==(VV[114]))){ |
4410 |
goto T1748;} |
goto T1746;} |
4411 |
{register object V882; |
{register object V919; |
4412 |
object V883; |
object V920; |
4413 |
V882= (*(LnkLI311))(VV[115]); |
V919= (*(LnkLI273))(VV[115]); |
4414 |
base[3]= (V882); |
base[3]= (V919); |
4415 |
base[4]= list(2,list(2,VV[108],(V881)),Ct); |
base[4]= list(2,list(2,VV[108],(V918)),Ct); |
4416 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4417 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
4418 |
vs_top=sup; |
vs_top=sup; |
4419 |
V883= vs_base[0]; |
V920= vs_base[0]; |
4420 |
base[4]= (V882); |
base[4]= (V919); |
4421 |
base[5]= (V883); |
base[5]= (V920); |
4422 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4423 |
(void) (*Lnk312)(); |
(void) (*Lnk307)(); |
4424 |
vs_top=sup; |
vs_top=sup; |
4425 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
4426 |
V884 = (V883); |
V921 = (V920); |
4427 |
if((VV[116]->s.s_dbind)!=Cnil){ |
if((VV[116]->s.s_dbind)!=Cnil){ |
4428 |
V885= (VV[116]->s.s_dbind); |
V922= (VV[116]->s.s_dbind); |
4429 |
goto T1758;} |
goto T1756;} |
4430 |
base[5]= (V882); |
base[5]= (V919); |
4431 |
base[6]= list(2,list(2,VV[108],(V882)),Ct); |
base[6]= list(2,list(2,VV[108],(V919)),Ct); |
4432 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4433 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
4434 |
vs_top=sup; |
vs_top=sup; |
4435 |
(VV[116]->s.s_dbind)= vs_base[0]; |
(VV[116]->s.s_dbind)= vs_base[0]; |
4436 |
V885= (VV[116]->s.s_dbind); |
V922= (VV[116]->s.s_dbind); |
4437 |
goto T1758; |
goto T1756; |
4438 |
T1758:; |
T1756:; |
4439 |
base[4]= (*(LnkLI313))(V884,V885); |
base[4]= (*(LnkLI308))(V921,V922); |
4440 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4441 |
return;} |
return;} |
4442 |
goto T1748; |
goto T1746; |
4443 |
T1748:; |
T1746:; |
4444 |
base[1]= (VV[314]->s.s_gfdef); |
base[1]= (VV[309]->s.s_gfdef); |
4445 |
base[2]= Ct; |
base[2]= Ct; |
4446 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4447 |
return; |
return; |
4449 |
} |
} |
4450 |
/* local entry for function COMPUTE-APPLICABLE-METHODS-EMF-STD-P */ |
/* local entry for function COMPUTE-APPLICABLE-METHODS-EMF-STD-P */ |
4451 |
|
|
4452 |
static object LI67(V887) |
static object LI67(V924) |
4453 |
|
|
4454 |
object V887; |
object V924; |
4455 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
4456 |
goto TTL; |
goto TTL; |
4457 |
TTL:; |
TTL:; |
4458 |
base[0]= (V887); |
base[0]= (V924); |
4459 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4460 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
4461 |
vs_top=sup; |
vs_top=sup; |
4462 |
V888= vs_base[0]; |
V925= vs_base[0]; |
4463 |
{object V889 = STREF(object,V888,36); |
{object V926 = STREF(object,V925,36); |
4464 |
VMR62(V889)} |
VMR62(V926)} |
4465 |
base[0]=base[0]; |
base[0]=base[0]; |
4466 |
return Cnil; |
return Cnil; |
4467 |
} |
} |
4468 |
/* local entry for function UPDATE-ALL-C-A-M-GF-INFO */ |
/* local entry for function UPDATE-ALL-C-A-M-GF-INFO */ |
4469 |
|
|
4470 |
static object LI68(V891) |
static object LI68(V928) |
4471 |
|
|
4472 |
object V891; |
object V928; |
4473 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
4474 |
goto TTL; |
goto TTL; |
4475 |
TTL:; |
TTL:; |
4476 |
base[1]= (V891); |
base[1]= (V928); |
4477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4478 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
4479 |
vs_top=sup; |
vs_top=sup; |
4480 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4481 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
4482 |
if(((VV[117]->s.s_dbind))==Cnil){ |
if(((VV[117]->s.s_dbind))==Cnil){ |
4483 |
goto T1770;} |
goto T1768;} |
4484 |
base[1]= |
base[1]= |
4485 |
make_cclosure_new(LC125,Cnil,base[0],Cdata); |
make_cclosure_new(LC125,Cnil,base[0],Cdata); |
4486 |
base[2]= (VV[117]->s.s_dbind); |
base[2]= (VV[117]->s.s_dbind); |
4487 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4488 |
(void) (*Lnk279)(); |
(void) (*Lnk278)(); |
4489 |
vs_top=sup; |
vs_top=sup; |
4490 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4491 |
goto T1770;} |
goto T1768;} |
4492 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
4493 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
4494 |
{register object V892; |
{register object V929; |
4495 |
register object V893; |
register object V930; |
4496 |
V892= (base[0]->c.c_car); |
V929= (base[0]->c.c_car); |
4497 |
V893= CMPcar((V892)); |
V930= CMPcar((V929)); |
4498 |
goto T1780; |
goto T1778; |
4499 |
T1780:; |
T1778:; |
4500 |
if(!(((V892))==Cnil)){ |
if(!(((V929))==Cnil)){ |
4501 |
goto T1781;} |
goto T1779;} |
4502 |
goto T1776; |
goto T1774; |
4503 |
goto T1781; |
goto T1779; |
4504 |
T1781:; |
T1779:; |
4505 |
{register object x= (V893),V894= (VV[117]->s.s_dbind); |
{register object x= (V930),V931= (VV[117]->s.s_dbind); |
4506 |
while(V894!=Cnil) |
while(V931!=Cnil) |
4507 |
if(eql(x,V894->c.c_car)){ |
if(eql(x,V931->c.c_car)){ |
4508 |
goto T1785; |
goto T1783; |
4509 |
}else V894=V894->c.c_cdr;} |
}else V931=V931->c.c_cdr;} |
4510 |
{register object V895; |
{register object V932; |
4511 |
base[4]= (V893); |
base[4]= (V930); |
4512 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4513 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
4514 |
vs_top=sup; |
vs_top=sup; |
4515 |
V896= vs_base[0]; |
V933= vs_base[0]; |
4516 |
V895= CMPcar(V896); |
V932= CMPcar(V933); |
4517 |
base[4]= (V895); |
base[4]= (V932); |
4518 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4519 |
(void) (*Lnk238)(Lclptr238); |
(void) (*Lnk238)(Lclptr238); |
4520 |
vs_top=sup; |
vs_top=sup; |
4521 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4522 |
goto T1792;} |
goto T1790;} |
4523 |
{object V897; |
{object V934; |
4524 |
base[5]= (V895); |
base[5]= (V932); |
4525 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4526 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk298)(Lclptr298); |
4527 |
vs_top=sup; |
vs_top=sup; |
4528 |
V897= vs_base[0]; |
V934= vs_base[0]; |
4529 |
base[5]= (V897); |
base[5]= (V934); |
4530 |
base[6]= (base[1]->c.c_car); |
base[6]= (base[1]->c.c_car); |
4531 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4532 |
Ladjoin(); |
Ladjoin(); |
4533 |
vs_top=sup; |
vs_top=sup; |
4534 |
(base[1]->c.c_car)= vs_base[0]; |
(base[1]->c.c_car)= vs_base[0]; |
4535 |
goto T1785;} |
goto T1783;} |
4536 |
goto T1792; |
goto T1790; |
4537 |
T1792:; |
T1790:; |
4538 |
{object V898; |
{object V935; |
4539 |
base[5]= (V895); |
base[5]= (V932); |
4540 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4541 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk297)(Lclptr297); |
4542 |
vs_top=sup; |
vs_top=sup; |
4543 |
V898= vs_base[0]; |
V935= vs_base[0]; |
4544 |
base[5]= (V898); |
base[5]= (V935); |
4545 |
base[6]= (base[2]->c.c_car); |
base[6]= (base[2]->c.c_car); |
4546 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4547 |
Ladjoin(); |
Ladjoin(); |
4548 |
vs_top=sup; |
vs_top=sup; |
4549 |
(base[2]->c.c_car)= vs_base[0];}} |
(base[2]->c.c_car)= vs_base[0];}} |
4550 |
goto T1785; |
goto T1783; |
4551 |
T1785:; |
T1783:; |
4552 |
V892= CMPcdr((V892)); |
V929= CMPcdr((V929)); |
4553 |
V893= CMPcar((V892)); |
V930= CMPcar((V929)); |
4554 |
goto T1780;} |
goto T1778;} |
4555 |
goto T1776; |
goto T1774; |
4556 |
T1776:; |
T1774:; |
4557 |
V899= |
V936= |
4558 |
make_cclosure_new(LC126,Cnil,base[2],Cdata); |
make_cclosure_new(LC126,Cnil,base[2],Cdata); |
4559 |
(void)((*(LnkLI316))(V899)); |
(void)((*(LnkLI311))(V936)); |
4560 |
goto T1768; |
goto T1766; |
|
goto T1770; |
|
|
T1770:; |
|
|
V900= (VV[317]->s.s_gfdef); |
|
|
(void)((*(LnkLI316))(V900)); |
|
4561 |
goto T1768; |
goto T1768; |
4562 |
T1768:; |
T1768:; |
4563 |
|
V937= (VV[312]->s.s_gfdef); |
4564 |
|
(void)((*(LnkLI311))(V937)); |
4565 |
|
goto T1766; |
4566 |
|
T1766:; |
4567 |
(VV[117]->s.s_dbind)= (base[0]->c.c_car); |
(VV[117]->s.s_dbind)= (base[0]->c.c_car); |
4568 |
{object V901 = (VV[117]->s.s_dbind); |
{object V938 = (VV[117]->s.s_dbind); |
4569 |
VMR63(V901)} |
VMR63(V938)} |
4570 |
base[0]=base[0]; |
base[0]=base[0]; |
4571 |
return Cnil; |
return Cnil; |
4572 |
} |
} |
4573 |
/* local entry for function UPDATE-GF-INFO */ |
/* local entry for function UPDATE-GF-INFO */ |
4574 |
|
|
4575 |
static object LI69(V903) |
static object LI69(V940) |
4576 |
|
|
4577 |
object V903; |
object V940; |
4578 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
4579 |
goto TTL; |
goto TTL; |
4580 |
TTL:; |
TTL:; |
4581 |
(void)((*(LnkLI317))((V903))); |
(void)((*(LnkLI312))((V940))); |
4582 |
{object V904 = (*(LnkLI318))((V903)); |
{object V941 = (*(LnkLI313))((V940)); |
4583 |
VMR64(V904)} |
VMR64(V941)} |
4584 |
return Cnil; |
return Cnil; |
4585 |
} |
} |
4586 |
/* local entry for function UPDATE-C-A-M-GF-INFO */ |
/* local entry for function UPDATE-C-A-M-GF-INFO */ |
4587 |
|
|
4588 |
static object LI70(V906) |
static object LI70(V943) |
4589 |
|
|
4590 |
object V906; |
object V943; |
4591 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
4592 |
goto TTL; |
goto TTL; |
4593 |
TTL:; |
TTL:; |
4594 |
if(((*(LnkLI319))((V906)))!=Cnil){ |
if(((*(LnkLI314))((V943)))!=Cnil){ |
4595 |
goto T1815;} |
goto T1813;} |
4596 |
{object V907; |
{object V944; |
4597 |
object V908; |
object V945; |
4598 |
base[0]= (V906); |
base[0]= (V943); |
4599 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4600 |
(void) (*Lnk320)(); |
(void) (*Lnk315)(); |
4601 |
if(vs_base>=vs_top){vs_top=sup;goto T1819;} |
if(vs_base>=vs_top){vs_top=sup;goto T1817;} |
4602 |
V907= vs_base[0]; |
V944= vs_base[0]; |
4603 |
vs_base++; |
vs_base++; |
4604 |
if(vs_base>=vs_top){vs_top=sup;goto T1820;} |
if(vs_base>=vs_top){vs_top=sup;goto T1818;} |
4605 |
V908= vs_base[0]; |
V945= vs_base[0]; |
4606 |
vs_top=sup; |
vs_top=sup; |
4607 |
goto T1821; |
goto T1819; |
4608 |
|
goto T1817; |
4609 |
|
T1817:; |
4610 |
|
V944= Cnil; |
4611 |
|
goto T1818; |
4612 |
|
T1818:; |
4613 |
|
V945= Cnil; |
4614 |
goto T1819; |
goto T1819; |
4615 |
T1819:; |
T1819:; |
4616 |
V907= Cnil; |
{object V946; |
4617 |
goto T1820; |
base[0]= (V943); |
|
T1820:; |
|
|
V908= Cnil; |
|
|
goto T1821; |
|
|
T1821:; |
|
|
{object V909; |
|
|
base[0]= (V906); |
|
4618 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4619 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
4620 |
vs_top=sup; |
vs_top=sup; |
4621 |
V909= vs_base[0]; |
V946= vs_base[0]; |
4622 |
V910 = (V909); |
V947 = (V946); |
4623 |
V911 = (V907); |
V948 = (V944); |
4624 |
V912= Ct; |
V949= Ct; |
4625 |
STSET(object,V910,32, V911); |
STSET(object,V947,32, V948); |
4626 |
(void)(V911); |
(void)(V948); |
4627 |
V913 = (V909); |
V950 = (V946); |
4628 |
V914 = (V908); |
V951 = (V945); |
4629 |
V915= Ct; |
V952= Ct; |
4630 |
STSET(object,V913,36, V914); |
STSET(object,V950,36, V951); |
4631 |
{object V916 = V914; |
{object V953 = V951; |
4632 |
VMR65(V916)}}} |
VMR65(V953)}}} |
4633 |
goto T1815; |
goto T1813; |
4634 |
T1815:; |
T1813:; |
4635 |
{object V917 = Cnil; |
{object V954 = Cnil; |
4636 |
VMR65(V917)} |
VMR65(V954)} |
4637 |
base[0]=base[0]; |
base[0]=base[0]; |
4638 |
return Cnil; |
return Cnil; |
4639 |
} |
} |
4640 |
/* local entry for function UPDATE-GF-SIMPLE-ACCESSOR-TYPE */ |
/* local entry for function UPDATE-GF-SIMPLE-ACCESSOR-TYPE */ |
4641 |
|
|
4642 |
static object LI71(V919) |
static object LI71(V956) |
4643 |
|
|
4644 |
object V919; |
object V956; |
4645 |
{ VMB66 VMS66 VMV66 |
{ VMB66 VMS66 VMV66 |
4646 |
goto TTL; |
goto TTL; |
4647 |
TTL:; |
TTL:; |
4648 |
{object V920; |
{object V957; |
4649 |
base[0]= (V919); |
base[0]= (V956); |
4650 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4651 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
4652 |
vs_top=sup; |
vs_top=sup; |
4653 |
V920= vs_base[0]; |
V957= vs_base[0]; |
4654 |
V921 = (V920); |
V958 = (V957); |
4655 |
{object V923; |
{object V960; |
4656 |
register object V924; |
register object V961; |
4657 |
object V925; |
object V962; |
4658 |
base[3]= (V919); |
base[3]= (V956); |
4659 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4660 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
4661 |
vs_top=sup; |
vs_top=sup; |
4662 |
V923= vs_base[0]; |
V960= vs_base[0]; |
4663 |
if((V923)==Cnil){ |
if((V960)==Cnil){ |
4664 |
V924= Cnil; |
V961= Cnil; |
4665 |
goto T1830;} |
goto T1828;} |
4666 |
V924= (*(LnkLI149))(CMPcar((V923))); |
V961= (*(LnkLI149))(CMPcar((V960))); |
4667 |
goto T1830; |
goto T1828; |
4668 |
T1830:; |
T1828:; |
4669 |
if((V924)==Cnil){ |
if((V961)==Cnil){ |
4670 |
V925= Cnil; |
V962= Cnil; |
4671 |
|
goto T1829;} |
4672 |
|
if(!(((V961))==((VV[118]->s.s_dbind)))){ |
4673 |
goto T1831;} |
goto T1831;} |
4674 |
if(!(((V924))==((VV[118]->s.s_dbind)))){ |
V962= VV[119]; |
4675 |
goto T1833;} |
goto T1829; |
|
V925= VV[119]; |
|
|
goto T1831; |
|
|
goto T1833; |
|
|
T1833:; |
|
|
if(!(((V924))==((VV[120]->s.s_dbind)))){ |
|
|
goto T1836;} |
|
|
V925= VV[121]; |
|
|
goto T1831; |
|
|
goto T1836; |
|
|
T1836:; |
|
|
if(!(((V924))==((VV[122]->s.s_dbind)))){ |
|
|
goto T1839;} |
|
|
V925= VV[123]; |
|
|
goto T1831; |
|
|
goto T1839; |
|
|
T1839:; |
|
|
V925= Cnil; |
|
4676 |
goto T1831; |
goto T1831; |
4677 |
T1831:; |
T1831:; |
4678 |
if((STREF(object,(V920),36))==Cnil){ |
if(!(((V961))==((VV[120]->s.s_dbind)))){ |
4679 |
goto T1842;} |
goto T1834;} |
4680 |
if(((V925))==Cnil){ |
V962= VV[121]; |
4681 |
goto T1842;} |
goto T1829; |
4682 |
{register object V926; |
goto T1834; |
4683 |
register object V927; |
T1834:; |
4684 |
V926= CMPcdr((V923)); |
if(!(((V961))==((VV[122]->s.s_dbind)))){ |
4685 |
V927= CMPcar((V926)); |
goto T1837;} |
4686 |
goto T1852; |
V962= VV[123]; |
4687 |
T1852:; |
goto T1829; |
4688 |
if(!(((V926))==Cnil)){ |
goto T1837; |
4689 |
goto T1853;} |
T1837:; |
4690 |
goto T1848; |
V962= Cnil; |
4691 |
goto T1853; |
goto T1829; |
4692 |
T1853:; |
T1829:; |
4693 |
V928 = (V924); |
if((STREF(object,(V957),36))==Cnil){ |
4694 |
V929= (*(LnkLI149))((V927)); |
goto T1840;} |
4695 |
if((V928)==(/* INLINE-ARGS */V929)){ |
if(((V962))==Cnil){ |
4696 |
goto T1857;} |
goto T1840;} |
4697 |
goto T1842; |
{register object V963; |
4698 |
goto T1857; |
register object V964; |
4699 |
T1857:; |
V963= CMPcdr((V960)); |
4700 |
V926= CMPcdr((V926)); |
V964= CMPcar((V963)); |
4701 |
V927= CMPcar((V926)); |
goto T1850; |
4702 |
goto T1852;} |
T1850:; |
4703 |
goto T1848; |
if(!(((V963))==Cnil)){ |
4704 |
T1848:; |
goto T1851;} |
4705 |
base[3]= (V919); |
goto T1846; |
4706 |
|
goto T1851; |
4707 |
|
T1851:; |
4708 |
|
V965 = (V961); |
4709 |
|
V966= (*(LnkLI149))((V964)); |
4710 |
|
if((V965)==(/* INLINE-ARGS */V966)){ |
4711 |
|
goto T1855;} |
4712 |
|
goto T1840; |
4713 |
|
goto T1855; |
4714 |
|
T1855:; |
4715 |
|
V963= CMPcdr((V963)); |
4716 |
|
V964= CMPcar((V963)); |
4717 |
|
goto T1850;} |
4718 |
|
goto T1846; |
4719 |
|
T1846:; |
4720 |
|
base[3]= (V956); |
4721 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4722 |
(void) (*Lnk321)(Lclptr321); |
(void) (*Lnk316)(Lclptr316); |
4723 |
vs_top=sup; |
vs_top=sup; |
4724 |
V930= vs_base[0]; |
V967= vs_base[0]; |
4725 |
V931 = (VV[124]->s.s_dbind); |
V968 = (VV[124]->s.s_dbind); |
4726 |
if(!((V930)==(V931))){ |
if(!((V967)==(V968))){ |
4727 |
goto T1842;} |
goto T1840;} |
4728 |
V922= (V925); |
V959= (V962); |
4729 |
goto T1827; |
goto T1825; |
4730 |
goto T1842; |
goto T1840; |
4731 |
T1842:; |
T1840:; |
4732 |
V922= Cnil;} |
V959= Cnil;} |
4733 |
goto T1827; |
goto T1825; |
4734 |
T1827:; |
T1825:; |
4735 |
V932= Ct; |
V969= Ct; |
4736 |
STSET(object,V921,24, V922); |
STSET(object,V958,24, V959); |
4737 |
{object V933 = V922; |
{object V970 = V959; |
4738 |
VMR66(V933)}} |
VMR66(V970)}} |
4739 |
base[0]=base[0]; |
base[0]=base[0]; |
4740 |
return Cnil; |
return Cnil; |
4741 |
} |
} |
4745 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4746 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
4747 |
vs_check; |
vs_check; |
4748 |
{object V934; |
{object V971; |
4749 |
register object V935; |
register object V972; |
4750 |
register object V936; |
register object V973; |
4751 |
register object V937; |
register object V974; |
4752 |
check_arg(4); |
check_arg(4); |
4753 |
V934=(base[0]); |
V971=(base[0]); |
4754 |
V935=(base[1]); |
V972=(base[1]); |
4755 |
V936=(base[2]); |
V973=(base[2]); |
4756 |
V937=(base[3]); |
V974=(base[3]); |
4757 |
vs_top=sup; |
vs_top=sup; |
4758 |
goto TTL; |
goto TTL; |
4759 |
TTL:; |
TTL:; |
4760 |
{object V938; |
{object V975; |
4761 |
object V939; |
object V976; |
4762 |
object V940; |
object V977; |
4763 |
object V941; |
object V978; |
4764 |
register object V942; |
register object V979; |
4765 |
object V943; |
object V980; |
4766 |
V938= (*(LnkLI322))((V935)); |
V975= (*(LnkLI317))((V972)); |
4767 |
V939= (*(LnkLI323))((V935)); |
V976= (*(LnkLI318))((V972)); |
4768 |
V944= list(2,VV[108],(V936)); |
V981= list(2,VV[108],(V973)); |
4769 |
V945= list(2,VV[109],(V936)); |
V982= list(2,VV[109],(V973)); |
4770 |
V940= list(3,/* INLINE-ARGS */V944,/* INLINE-ARGS */V945,list(2,VV[108],(V937))); |
V977= list(3,/* INLINE-ARGS */V981,/* INLINE-ARGS */V982,list(2,VV[108],(V974))); |
4771 |
if(!(((V935))==(VV[121]))){ |
if(!(((V972))==(VV[121]))){ |
4772 |
goto T1873;} |
goto T1871;} |
4773 |
V941= make_cons(Ct,(V940)); |
V978= make_cons(Ct,(V977)); |
4774 |
goto T1871; |
goto T1869; |
|
goto T1873; |
|
|
T1873:; |
|
|
V941= (V940); |
|
4775 |
goto T1871; |
goto T1871; |
4776 |
T1871:; |
T1871:; |
4777 |
base[10]= (V934); |
V978= (V977); |
4778 |
base[11]= (V941); |
goto T1869; |
4779 |
|
T1869:; |
4780 |
|
base[10]= (V971); |
4781 |
|
base[11]= (V978); |
4782 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
4783 |
(void) (*Lnk298)(); |
(void) (*Lnk295)(); |
4784 |
vs_top=sup; |
vs_top=sup; |
4785 |
V942= vs_base[0]; |
V979= vs_base[0]; |
4786 |
V943= ((CMPcdr((V942)))==Cnil?Ct:Cnil); |
V980= ((CMPcdr((V979)))==Cnil?Ct:Cnil); |
4787 |
if(((V943))==Cnil){ |
if(((V980))==Cnil){ |
4788 |
goto T1881;} |
goto T1879;} |
4789 |
base[11]= (V936); |
base[11]= (V973); |
4790 |
base[12]= (V937); |
base[12]= (V974); |
4791 |
base[13]= (V935); |
base[13]= (V972); |
4792 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
4793 |
(void) (*Lnk324)(); |
(void) (*Lnk319)(); |
4794 |
vs_top=sup; |
vs_top=sup; |
4795 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
4796 |
|
goto T1877; |
4797 |
goto T1879; |
goto T1879; |
4798 |
goto T1881; |
T1879:; |
4799 |
T1881:; |
base[11]= (V973); |
4800 |
base[11]= (V936); |
base[12]= (V974); |
4801 |
base[12]= (V937); |
base[14]= (V971); |
4802 |
base[14]= (V934); |
base[15]= (V979); |
4803 |
base[15]= (V942); |
base[16]= (V978);{object V984; |
4804 |
base[16]= (V941);{object V947; |
{register object x= (V975),V985= (V979); |
4805 |
{register object x= (V938),V948= (V942); |
while(V985!=Cnil) |
4806 |
while(V948!=Cnil) |
if(eql(x,V985->c.c_car)){ |
4807 |
if(eql(x,V948->c.c_car)){ |
V984= V985; |
4808 |
V947= V948; |
goto T1893; |
4809 |
|
}else V985=V985->c.c_cdr; |
4810 |
|
V984= Cnil;} |
4811 |
|
goto T1893; |
4812 |
|
T1893:; |
4813 |
|
if(V984==Cnil)goto T1892; |
4814 |
|
V983= V984; |
4815 |
|
goto T1891; |
4816 |
|
goto T1892; |
4817 |
|
T1892:;}{object V986; |
4818 |
|
{register object x= (V976),V987= (V979); |
4819 |
|
while(V987!=Cnil) |
4820 |
|
if(eql(x,V987->c.c_car)){ |
4821 |
|
V986= V987; |
4822 |
goto T1895; |
goto T1895; |
4823 |
}else V948=V948->c.c_cdr; |
}else V987=V987->c.c_cdr; |
4824 |
V947= Cnil;} |
V986= Cnil;} |
4825 |
goto T1895; |
goto T1895; |
4826 |
T1895:; |
T1895:; |
4827 |
if(V947==Cnil)goto T1894; |
if(V986==Cnil)goto T1894; |
4828 |
V946= V947; |
V983= V986; |
4829 |
goto T1893; |
goto T1891; |
4830 |
goto T1894; |
goto T1894; |
4831 |
T1894:;}{object V949; |
T1894:;} |
|
{register object x= (V939),V950= (V942); |
|
|
while(V950!=Cnil) |
|
|
if(eql(x,V950->c.c_car)){ |
|
|
V949= V950; |
|
|
goto T1897; |
|
|
}else V950=V950->c.c_cdr; |
|
|
V949= Cnil;} |
|
|
goto T1897; |
|
|
T1897:; |
|
|
if(V949==Cnil)goto T1896; |
|
|
V946= V949; |
|
|
goto T1893; |
|
|
goto T1896; |
|
|
T1896:;} |
|
4832 |
base[18]= VV[125]; |
base[18]= VV[125]; |
4833 |
vs_top=(vs_base=base+18)+1; |
vs_top=(vs_base=base+18)+1; |
4834 |
Lerror(); |
Lerror(); |
4835 |
vs_top=sup; |
vs_top=sup; |
4836 |
V946= vs_base[0]; |
V983= vs_base[0]; |
4837 |
goto T1893; |
goto T1891; |
4838 |
T1893:; |
T1891:; |
4839 |
V951= CMPcar(V946); |
V988= CMPcar(V983); |
4840 |
base[18]= (V936); |
base[18]= (V973); |
4841 |
base[19]= (V937); |
base[19]= (V974); |
4842 |
base[20]= (V935); |
base[20]= (V972); |
4843 |
vs_top=(vs_base=base+18)+3; |
vs_top=(vs_base=base+18)+3; |
4844 |
(void) (*Lnk325)(); |
(void) (*Lnk320)(); |
4845 |
vs_top=sup; |
vs_top=sup; |
4846 |
V952= vs_base[0]; |
V989= vs_base[0]; |
4847 |
V953= list(2,/* INLINE-ARGS */V951,V952); |
V990= list(2,/* INLINE-ARGS */V988,V989); |
4848 |
base[17]= make_cons(/* INLINE-ARGS */V953,Cnil); |
base[17]= make_cons(/* INLINE-ARGS */V990,Cnil); |
4849 |
if(!(((V935))==(VV[121]))){ |
if(!(((V972))==(VV[121]))){ |
4850 |
goto T1904;} |
goto T1902;} |
4851 |
{register object V954; |
{register object V991; |
4852 |
register object V955; |
register object V992; |
4853 |
V954= (V942); |
V991= (V979); |
4854 |
V955= CMPcar((V954)); |
V992= CMPcar((V991)); |
4855 |
goto T1912; |
goto T1910; |
4856 |
T1912:; |
T1910:; |
4857 |
if(!(((V954))==Cnil)){ |
if(!(((V991))==Cnil)){ |
4858 |
goto T1913;} |
goto T1911;} |
4859 |
goto T1905; |
goto T1903; |
4860 |
goto T1913; |
goto T1911; |
4861 |
T1913:; |
T1911:; |
4862 |
base[20]= (V955); |
base[20]= (V992); |
4863 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
4864 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
4865 |
vs_top=sup; |
vs_top=sup; |
4866 |
V956= vs_base[0]; |
V993= vs_base[0]; |
4867 |
if((CMPcar(V956))==((VV[95]->s.s_dbind))){ |
if((CMPcar(V993))==((VV[95]->s.s_dbind))){ |
4868 |
goto T1917;} |
goto T1915;} |
4869 |
goto T1908; |
goto T1906; |
4870 |
goto T1917; |
goto T1915; |
4871 |
T1917:; |
T1915:; |
4872 |
V954= CMPcdr((V954)); |
V991= CMPcdr((V991)); |
4873 |
V955= CMPcar((V954)); |
V992= CMPcar((V991)); |
4874 |
goto T1912;} |
goto T1910;} |
4875 |
goto T1908; |
goto T1906; |
4876 |
T1908:; |
T1906:; |
4877 |
goto T1904; |
goto T1902; |
4878 |
T1904:; |
T1902:; |
4879 |
{object V957; |
{object V994; |
4880 |
V958= (*(LnkLI326))((V936)); |
V995= (*(LnkLI321))((V973)); |
4881 |
base[19]= (V936); |
base[19]= (V973); |
4882 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
4883 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk301)(Lclptr301); |
4884 |
vs_top=sup; |
vs_top=sup; |
4885 |
V959= vs_base[0]; |
V996= vs_base[0]; |
4886 |
V957= list(3,/* INLINE-ARGS */V958,V959,(*(LnkLI326))((V937))); |
V994= list(3,/* INLINE-ARGS */V995,V996,(*(LnkLI321))((V974))); |
4887 |
if(!(((V935))==(VV[121]))){ |
if(!(((V972))==(VV[121]))){ |
4888 |
goto T1931;} |
goto T1929;} |
4889 |
base[19]= (VV[95]->s.s_dbind); |
base[19]= (VV[95]->s.s_dbind); |
4890 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
4891 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk301)(Lclptr301); |
4892 |
vs_top=sup; |
vs_top=sup; |
4893 |
V960= vs_base[0]; |
V997= vs_base[0]; |
4894 |
V961 = (V957); |
V998 = (V994); |
4895 |
base[18]= make_cons(V960,V961); |
base[18]= make_cons(V997,V998); |
4896 |
goto T1903; |
goto T1901; |
4897 |
goto T1931; |
goto T1929; |
4898 |
T1931:; |
T1929:; |
4899 |
base[18]= (V957); |
base[18]= (V994); |
4900 |
goto T1903;} |
goto T1901;} |
|
goto T1905; |
|
|
T1905:; |
|
|
base[18]= Cnil; |
|
4901 |
goto T1903; |
goto T1903; |
4902 |
T1903:; |
T1903:; |
4903 |
|
base[18]= Cnil; |
4904 |
|
goto T1901; |
4905 |
|
T1901:; |
4906 |
vs_top=(vs_base=base+14)+5; |
vs_top=(vs_base=base+14)+5; |
4907 |
(void) (*Lnk327)(); |
(void) (*Lnk322)(); |
4908 |
vs_top=sup; |
vs_top=sup; |
4909 |
base[13]= vs_base[0]; |
base[13]= vs_base[0]; |
4910 |
base[14]= (V935); |
base[14]= (V972); |
4911 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
4912 |
(void) (*Lnk328)(); |
(void) (*Lnk323)(); |
4913 |
vs_top=sup; |
vs_top=sup; |
4914 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
4915 |
goto T1879; |
goto T1877; |
4916 |
T1879:; |
T1877:; |
4917 |
base[11]= (V943); |
base[11]= (V980); |
4918 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
4919 |
return;} |
return;} |
4920 |
} |
} |
4930 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
4931 |
vs_top=sup; |
vs_top=sup; |
4932 |
if(((VV[126]->s.s_dbind))!=Cnil){ |
if(((VV[126]->s.s_dbind))!=Cnil){ |
4933 |
goto T1937;} |
goto T1935;} |
4934 |
(void)((*(LnkLI329))((base[0]->c.c_car),(base[1]->c.c_car))); |
(void)((*(LnkLI324))((base[0]->c.c_car),(base[1]->c.c_car))); |
4935 |
goto T1937; |
goto T1935; |
4936 |
T1937:; |
T1935:; |
4937 |
if(((*(LnkLI322))((base[1]->c.c_car)))==Cnil){ |
if(((*(LnkLI317))((base[1]->c.c_car)))==Cnil){ |
4938 |
goto T1941;} |
goto T1939;} |
4939 |
if(((*(LnkLI323))((base[1]->c.c_car)))==Cnil){ |
if(((*(LnkLI318))((base[1]->c.c_car)))==Cnil){ |
4940 |
goto T1941;} |
goto T1939;} |
4941 |
base[2]=make_cclosure_new(LC74,Cnil,base[1],Cdata); |
base[2]=make_cclosure_new(LC74,Cnil,base[1],Cdata); |
4942 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
4943 |
if(((VV[126]->s.s_dbind))==Cnil){ |
if(((VV[126]->s.s_dbind))==Cnil){ |
4944 |
goto T1946;} |
goto T1944;} |
4945 |
base[3]= (VV[126]->s.s_dbind); |
base[3]= (VV[126]->s.s_dbind); |
4946 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4947 |
L74(base); |
L74(base); |
4948 |
return; |
return; |
4949 |
goto T1946; |
goto T1944; |
4950 |
T1946:; |
T1944:; |
4951 |
base[3]= (base[2]->c.c_car); |
base[3]= (base[2]->c.c_car); |
4952 |
base[4]= VV[127]; |
base[4]= VV[127]; |
4953 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4954 |
(void) (*Lnk330)(); |
(void) (*Lnk325)(); |
4955 |
return; |
return; |
4956 |
goto T1941; |
goto T1939; |
4957 |
T1941:; |
T1939:; |
4958 |
base[2]= Cnil; |
base[2]= Cnil; |
4959 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4960 |
return; |
return; |
4961 |
} |
} |
4962 |
/* local entry for function STANDARD-SVUC-METHOD */ |
/* local entry for function STANDARD-SVUC-METHOD */ |
4963 |
|
|
4964 |
static object LI75(V963) |
static object LI75(V1000) |
4965 |
|
|
4966 |
object V963; |
object V1000; |
4967 |
{ VMB69 VMS69 VMV69 |
{ VMB69 VMS69 VMV69 |
4968 |
goto TTL; |
goto TTL; |
4969 |
TTL:; |
TTL:; |
4970 |
{object V964= (V963); |
{object V1001= (V1000); |
4971 |
if((V964!= VV[119]))goto T1951; |
if((V1001!= VV[119]))goto T1949; |
4972 |
{object V965 = (VV[128]->s.s_dbind); |
{object V1002 = (VV[128]->s.s_dbind); |
4973 |
VMR69(V965)} |
VMR69(V1002)} |
4974 |
|
goto T1949; |
4975 |
|
T1949:; |
4976 |
|
if((V1001!= VV[121]))goto T1950; |
4977 |
|
{object V1003 = (VV[129]->s.s_dbind); |
4978 |
|
VMR69(V1003)} |
4979 |
|
goto T1950; |
4980 |
|
T1950:; |
4981 |
|
if((V1001!= VV[123]))goto T1951; |
4982 |
|
{object V1004 = (VV[130]->s.s_dbind); |
4983 |
|
VMR69(V1004)} |
4984 |
goto T1951; |
goto T1951; |
4985 |
T1951:; |
T1951:; |
4986 |
if((V964!= VV[121]))goto T1952; |
{object V1005 = Cnil; |
4987 |
{object V966 = (VV[129]->s.s_dbind); |
VMR69(V1005)}} |
|
VMR69(V966)} |
|
|
goto T1952; |
|
|
T1952:; |
|
|
if((V964!= VV[123]))goto T1953; |
|
|
{object V967 = (VV[130]->s.s_dbind); |
|
|
VMR69(V967)} |
|
|
goto T1953; |
|
|
T1953:; |
|
|
{object V968 = Cnil; |
|
|
VMR69(V968)}} |
|
4988 |
return Cnil; |
return Cnil; |
4989 |
} |
} |
4990 |
/* local entry for function SET-STANDARD-SVUC-METHOD */ |
/* local entry for function SET-STANDARD-SVUC-METHOD */ |
4991 |
|
|
4992 |
static object LI76(V971,V972) |
static object LI76(V1008,V1009) |
4993 |
|
|
4994 |
object V971;object V972; |
object V1008;object V1009; |
4995 |
{ VMB70 VMS70 VMV70 |
{ VMB70 VMS70 VMV70 |
4996 |
goto TTL; |
goto TTL; |
4997 |
TTL:; |
TTL:; |
4998 |
{object V973= (V971); |
{object V1010= (V1008); |
4999 |
if((V973!= VV[119]))goto T1954; |
if((V1010!= VV[119]))goto T1952; |
5000 |
(VV[128]->s.s_dbind)= (V972); |
(VV[128]->s.s_dbind)= (V1009); |
5001 |
{object V974 = (VV[128]->s.s_dbind); |
{object V1011 = (VV[128]->s.s_dbind); |
5002 |
VMR70(V974)} |
VMR70(V1011)} |
5003 |
|
goto T1952; |
5004 |
|
T1952:; |
5005 |
|
if((V1010!= VV[121]))goto T1954; |
5006 |
|
(VV[129]->s.s_dbind)= (V1009); |
5007 |
|
{object V1012 = (VV[129]->s.s_dbind); |
5008 |
|
VMR70(V1012)} |
5009 |
goto T1954; |
goto T1954; |
5010 |
T1954:; |
T1954:; |
5011 |
if((V973!= VV[121]))goto T1956; |
if((V1010!= VV[123]))goto T1956; |
5012 |
(VV[129]->s.s_dbind)= (V972); |
(VV[130]->s.s_dbind)= (V1009); |
5013 |
{object V975 = (VV[129]->s.s_dbind); |
{object V1013 = (VV[130]->s.s_dbind); |
5014 |
VMR70(V975)} |
VMR70(V1013)} |
5015 |
goto T1956; |
goto T1956; |
5016 |
T1956:; |
T1956:; |
5017 |
if((V973!= VV[123]))goto T1958; |
{object V1014 = Cnil; |
5018 |
(VV[130]->s.s_dbind)= (V972); |
VMR70(V1014)}} |
|
{object V976 = (VV[130]->s.s_dbind); |
|
|
VMR70(V976)} |
|
|
goto T1958; |
|
|
T1958:; |
|
|
{object V977 = Cnil; |
|
|
VMR70(V977)}} |
|
5019 |
return Cnil; |
return Cnil; |
5020 |
} |
} |
5021 |
/* local entry for function STRUCTURE-SVUC-METHOD */ |
/* local entry for function STRUCTURE-SVUC-METHOD */ |
5022 |
|
|
5023 |
static object LI77(V979) |
static object LI77(V1016) |
5024 |
|
|
5025 |
object V979; |
object V1016; |
5026 |
{ VMB71 VMS71 VMV71 |
{ VMB71 VMS71 VMV71 |
5027 |
goto TTL; |
goto TTL; |
5028 |
TTL:; |
TTL:; |
5029 |
{object V980= (V979); |
{object V1017= (V1016); |
5030 |
if((V980!= VV[119]))goto T1960; |
if((V1017!= VV[119]))goto T1958; |
5031 |
{object V981 = (VV[131]->s.s_dbind); |
{object V1018 = (VV[131]->s.s_dbind); |
5032 |
VMR71(V981)} |
VMR71(V1018)} |
5033 |
|
goto T1958; |
5034 |
|
T1958:; |
5035 |
|
if((V1017!= VV[121]))goto T1959; |
5036 |
|
{object V1019 = (VV[132]->s.s_dbind); |
5037 |
|
VMR71(V1019)} |
5038 |
|
goto T1959; |
5039 |
|
T1959:; |
5040 |
|
if((V1017!= VV[123]))goto T1960; |
5041 |
|
{object V1020 = (VV[133]->s.s_dbind); |
5042 |
|
VMR71(V1020)} |
5043 |
goto T1960; |
goto T1960; |
5044 |
T1960:; |
T1960:; |
5045 |
if((V980!= VV[121]))goto T1961; |
{object V1021 = Cnil; |
5046 |
{object V982 = (VV[132]->s.s_dbind); |
VMR71(V1021)}} |
|
VMR71(V982)} |
|
|
goto T1961; |
|
|
T1961:; |
|
|
if((V980!= VV[123]))goto T1962; |
|
|
{object V983 = (VV[133]->s.s_dbind); |
|
|
VMR71(V983)} |
|
|
goto T1962; |
|
|
T1962:; |
|
|
{object V984 = Cnil; |
|
|
VMR71(V984)}} |
|
5047 |
return Cnil; |
return Cnil; |
5048 |
} |
} |
5049 |
/* local entry for function SET-STRUCTURE-SVUC-METHOD */ |
/* local entry for function SET-STRUCTURE-SVUC-METHOD */ |
5050 |
|
|
5051 |
static object LI78(V987,V988) |
static object LI78(V1024,V1025) |
5052 |
|
|
5053 |
object V987;object V988; |
object V1024;object V1025; |
5054 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
5055 |
goto TTL; |
goto TTL; |
5056 |
TTL:; |
TTL:; |
5057 |
{object V989= (V987); |
{object V1026= (V1024); |
5058 |
if((V989!= VV[119]))goto T1963; |
if((V1026!= VV[119]))goto T1961; |
5059 |
(VV[131]->s.s_dbind)= (V988); |
(VV[131]->s.s_dbind)= (V1025); |
5060 |
{object V990 = (VV[131]->s.s_dbind); |
{object V1027 = (VV[131]->s.s_dbind); |
5061 |
VMR72(V990)} |
VMR72(V1027)} |
5062 |
|
goto T1961; |
5063 |
|
T1961:; |
5064 |
|
if((V1026!= VV[121]))goto T1963; |
5065 |
|
(VV[132]->s.s_dbind)= (V1025); |
5066 |
|
{object V1028 = (VV[132]->s.s_dbind); |
5067 |
|
VMR72(V1028)} |
5068 |
goto T1963; |
goto T1963; |
5069 |
T1963:; |
T1963:; |
5070 |
if((V989!= VV[121]))goto T1965; |
if((V1026!= VV[123]))goto T1965; |
5071 |
(VV[132]->s.s_dbind)= (V988); |
(VV[133]->s.s_dbind)= (V1025); |
5072 |
{object V991 = (VV[132]->s.s_dbind); |
{object V1029 = (VV[133]->s.s_dbind); |
5073 |
VMR72(V991)} |
VMR72(V1029)} |
5074 |
goto T1965; |
goto T1965; |
5075 |
T1965:; |
T1965:; |
5076 |
if((V989!= VV[123]))goto T1967; |
{object V1030 = Cnil; |
5077 |
(VV[133]->s.s_dbind)= (V988); |
VMR72(V1030)}} |
|
{object V992 = (VV[133]->s.s_dbind); |
|
|
VMR72(V992)} |
|
|
goto T1967; |
|
|
T1967:; |
|
|
{object V993 = Cnil; |
|
|
VMR72(V993)}} |
|
5078 |
return Cnil; |
return Cnil; |
5079 |
} |
} |
5080 |
/* local entry for function UPDATE-STD-OR-STR-METHODS */ |
/* local entry for function UPDATE-STD-OR-STR-METHODS */ |
5081 |
|
|
5082 |
static object LI79(V996,V997) |
static object LI79(V1033,V1034) |
5083 |
|
|
5084 |
object V996;register object V997; |
object V1033;register object V1034; |
5085 |
{ VMB73 VMS73 VMV73 |
{ VMB73 VMS73 VMV73 |
5086 |
goto TTL; |
goto TTL; |
5087 |
TTL:; |
TTL:; |
5088 |
{register object V998; |
{register object V1035; |
5089 |
register object V999; |
register object V1036; |
5090 |
base[2]= (V996); |
base[2]= (V1033); |
5091 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5092 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
5093 |
vs_top=sup; |
vs_top=sup; |
5094 |
V998= vs_base[0]; |
V1035= vs_base[0]; |
5095 |
V999= CMPcar((V998)); |
V1036= CMPcar((V1035)); |
5096 |
goto T1973; |
goto T1971; |
5097 |
T1973:; |
T1971:; |
5098 |
if(!(((V998))==Cnil)){ |
if(!(((V1035))==Cnil)){ |
5099 |
goto T1974;} |
goto T1972;} |
5100 |
{object V1000 = Cnil; |
{object V1037 = Cnil; |
5101 |
VMR73(V1000)} |
VMR73(V1037)} |
5102 |
goto T1974; |
goto T1972; |
5103 |
T1974:; |
T1972:; |
5104 |
{register object V1001; |
{register object V1038; |
5105 |
base[2]= (V999); |
base[2]= (V1036); |
5106 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5107 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
5108 |
vs_top=sup; |
vs_top=sup; |
5109 |
V1001= vs_base[0]; |
V1038= vs_base[0]; |
5110 |
if(!(((V997))==(VV[121]))){ |
if(!(((V1034))==(VV[121]))){ |
5111 |
goto T1982;} |
goto T1980;} |
5112 |
{register object V1003; |
{register object V1040; |
5113 |
V1003= CMPcar((V1001)); |
V1040= CMPcar((V1038)); |
5114 |
V1001= CMPcdr((V1001)); |
V1038= CMPcdr((V1038)); |
5115 |
V1002= (V1003);} |
V1039= (V1040);} |
5116 |
V1004 = (VV[95]->s.s_dbind); |
V1041 = (VV[95]->s.s_dbind); |
5117 |
if(!((V1002)==(V1004))){ |
if(!((V1039)==(V1041))){ |
5118 |
goto T1978;} |
goto T1976;} |
5119 |
goto T1982; |
goto T1980; |
5120 |
T1982:; |
T1980:; |
5121 |
base[2]= (VV[237]->s.s_gfdef); |
base[2]= (VV[237]->s.s_gfdef); |
5122 |
base[3]= (V1001); |
base[3]= (V1038); |
5123 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5124 |
(void) (*Lnk279)(); |
(void) (*Lnk278)(); |
5125 |
vs_top=sup; |
vs_top=sup; |
5126 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5127 |
goto T1978;} |
goto T1976;} |
5128 |
base[2]= CMPcar((V1001)); |
base[2]= CMPcar((V1038)); |
5129 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5130 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5131 |
vs_top=sup; |
vs_top=sup; |
5132 |
V1005= vs_base[0]; |
V1042= vs_base[0]; |
5133 |
if(!((V1005)==(VV[134]))){ |
if(!((V1042)==(VV[134]))){ |
5134 |
goto T1994;} |
goto T1992;} |
5135 |
base[2]= CMPcadr((V1001)); |
base[2]= CMPcadr((V1038)); |
5136 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5137 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5138 |
vs_top=sup; |
vs_top=sup; |
5139 |
V1006= vs_base[0]; |
V1043= vs_base[0]; |
5140 |
if(!((V1006)==(VV[135]))){ |
if(!((V1043)==(VV[135]))){ |
5141 |
goto T1994;} |
goto T1992;} |
5142 |
base[2]= CMPcaddr((V1001)); |
base[2]= CMPcaddr((V1038)); |
5143 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5144 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5145 |
vs_top=sup; |
vs_top=sup; |
5146 |
V1007= vs_base[0]; |
V1044= vs_base[0]; |
5147 |
if(!((V1007)==(VV[136]))){ |
if(!((V1044)==(VV[136]))){ |
5148 |
goto T1994;} |
goto T1992;} |
5149 |
(void)((*(LnkLI331))((V997),(V999))); |
(void)((*(LnkLI326))((V1034),(V1036))); |
5150 |
goto T1978; |
goto T1976; |
5151 |
goto T1994; |
goto T1992; |
5152 |
T1994:; |
T1992:; |
5153 |
base[2]= CMPcar((V1001)); |
base[2]= CMPcar((V1038)); |
5154 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5155 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5156 |
vs_top=sup; |
vs_top=sup; |
5157 |
V1008= vs_base[0]; |
V1045= vs_base[0]; |
5158 |
if(!((V1008)==(VV[137]))){ |
if(!((V1045)==(VV[137]))){ |
5159 |
goto T1978;} |
goto T1976;} |
5160 |
base[2]= CMPcadr((V1001)); |
base[2]= CMPcadr((V1038)); |
5161 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5162 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5163 |
vs_top=sup; |
vs_top=sup; |
5164 |
V1009= vs_base[0]; |
V1046= vs_base[0]; |
5165 |
if(!((V1009)==(VV[138]))){ |
if(!((V1046)==(VV[138]))){ |
5166 |
goto T1978;} |
goto T1976;} |
5167 |
base[2]= CMPcaddr((V1001)); |
base[2]= CMPcaddr((V1038)); |
5168 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5169 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5170 |
vs_top=sup; |
vs_top=sup; |
5171 |
V1010= vs_base[0]; |
V1047= vs_base[0]; |
5172 |
if(!((V1010)==(VV[139]))){ |
if(!((V1047)==(VV[139]))){ |
5173 |
goto T1978;} |
goto T1976;} |
5174 |
(void)((*(LnkLI332))((V997),(V999)));} |
(void)((*(LnkLI327))((V1034),(V1036)));} |
5175 |
goto T1978; |
goto T1976; |
5176 |
T1978:; |
T1976:; |
5177 |
V998= CMPcdr((V998)); |
V1035= CMPcdr((V1035)); |
5178 |
V999= CMPcar((V998)); |
V1036= CMPcar((V1035)); |
5179 |
goto T1973;} |
goto T1971;} |
5180 |
base[0]=base[0]; |
base[0]=base[0]; |
5181 |
return Cnil; |
return Cnil; |
5182 |
} |
} |
5183 |
/* local entry for function MEC-ALL-CLASSES-INTERNAL */ |
/* local entry for function MEC-ALL-CLASSES-INTERNAL */ |
5184 |
|
|
5185 |
static object LI80(V1013,V1014) |
static object LI80(V1050,V1051) |
5186 |
|
|
5187 |
register object V1013;object V1014; |
register object V1050;object V1051; |
5188 |
{ VMB74 VMS74 VMV74 |
{ VMB74 VMS74 VMV74 |
5189 |
goto TTL; |
goto TTL; |
5190 |
TTL:; |
TTL:; |
5191 |
base[0]= (V1013); |
base[0]= (V1050); |
5192 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5193 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk297)(Lclptr297); |
5194 |
vs_top=sup; |
vs_top=sup; |
5195 |
V1015= vs_base[0]; |
V1052= vs_base[0]; |
5196 |
base[0]= (V1013); |
base[0]= (V1050); |
5197 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5198 |
(void) (*Lnk237)(Lclptr237); |
(void) (*Lnk237)(Lclptr237); |
5199 |
vs_top=sup; |
vs_top=sup; |
5200 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5201 |
goto T2026;} |
goto T2024;} |
5202 |
V1016= Cnil; |
V1053= Cnil; |
5203 |
goto T2025; |
goto T2023; |
5204 |
goto T2026; |
goto T2024; |
5205 |
T2026:; |
T2024:; |
5206 |
if((V1014)==Cnil){ |
if((V1051)==Cnil){ |
5207 |
V1016= Cnil; |
V1053= Cnil; |
5208 |
goto T2025;} |
goto T2023;} |
5209 |
if(!(((V1013))==((VV[95]->s.s_dbind)))){ |
if(!(((V1050))==((VV[95]->s.s_dbind)))){ |
5210 |
|
goto T2030;} |
5211 |
|
V1054= Ct; |
5212 |
|
goto T2029; |
5213 |
|
goto T2030; |
5214 |
|
T2030:; |
5215 |
|
if(!(((V1050))==((VV[140]->s.s_dbind)))){ |
5216 |
goto T2032;} |
goto T2032;} |
5217 |
V1017= Ct; |
V1054= Ct; |
5218 |
goto T2031; |
goto T2029; |
5219 |
goto T2032; |
goto T2032; |
5220 |
T2032:; |
T2032:; |
5221 |
if(!(((V1013))==((VV[140]->s.s_dbind)))){ |
if(!(((V1050))==((VV[141]->s.s_dbind)))){ |
5222 |
goto T2034;} |
goto T2034;} |
5223 |
V1017= Ct; |
V1054= Ct; |
5224 |
goto T2031; |
goto T2029; |
5225 |
goto T2034; |
goto T2034; |
5226 |
T2034:; |
T2034:; |
5227 |
if(!(((V1013))==((VV[141]->s.s_dbind)))){ |
V1054= (((V1050))==((VV[142]->s.s_dbind))?Ct:Cnil); |
|
goto T2036;} |
|
|
V1017= Ct; |
|
|
goto T2031; |
|
|
goto T2036; |
|
|
T2036:; |
|
|
V1017= (((V1013))==((VV[142]->s.s_dbind))?Ct:Cnil); |
|
|
goto T2031; |
|
|
T2031:; |
|
|
if((V1017)==Cnil){ |
|
|
goto T2029;} |
|
|
V1016= Cnil; |
|
|
goto T2025; |
|
5228 |
goto T2029; |
goto T2029; |
5229 |
T2029:; |
T2029:; |
5230 |
{object V1018; |
if((V1054)==Cnil){ |
5231 |
base[0]= (V1013); |
goto T2027;} |
5232 |
|
V1053= Cnil; |
5233 |
|
goto T2023; |
5234 |
|
goto T2027; |
5235 |
|
T2027:; |
5236 |
|
{object V1055; |
5237 |
|
base[0]= (V1050); |
5238 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5239 |
(void) (*Lnk333)(Lclptr333); |
(void) (*Lnk328)(Lclptr328); |
5240 |
vs_top=sup; |
vs_top=sup; |
5241 |
V1018= vs_base[0]; |
V1055= vs_base[0]; |
5242 |
if(((V1018))==Cnil){ |
if(((V1055))==Cnil){ |
5243 |
goto T2041;} |
goto T2039;} |
5244 |
{object V1019; |
{object V1056; |
5245 |
object V1020= (V1018); |
object V1057= (V1055); |
5246 |
if(V1020==Cnil){ |
if(V1057==Cnil){ |
5247 |
V1016= Cnil; |
V1053= Cnil; |
5248 |
goto T2025;} |
goto T2023;} |
5249 |
base[0]=V1019=MMcons(Cnil,Cnil); |
base[0]=V1056=MMcons(Cnil,Cnil); |
|
goto T2043; |
|
|
T2043:; |
|
|
(V1019->c.c_cdr)= (*(LnkLI334))((V1020->c.c_car),(V1014)); |
|
|
while(MMcdr(V1019)!=Cnil)V1019=MMcdr(V1019); |
|
|
if((V1020=MMcdr(V1020))==Cnil){ |
|
|
base[0]=base[0]->c.c_cdr; |
|
|
V1016= base[0]; |
|
|
goto T2025;} |
|
|
goto T2043;} |
|
5250 |
goto T2041; |
goto T2041; |
5251 |
T2041:; |
T2041:; |
5252 |
V1016= Cnil;} |
(V1056->c.c_cdr)= (*(LnkLI329))((V1057->c.c_car),(V1051)); |
5253 |
goto T2025; |
while(MMcdr(V1056)!=Cnil)V1056=MMcdr(V1056); |
5254 |
T2025:; |
if((V1057=MMcdr(V1057))==Cnil){ |
5255 |
{object V1022 = make_cons(V1015,V1016); |
base[0]=base[0]->c.c_cdr; |
5256 |
VMR74(V1022)} |
V1053= base[0]; |
5257 |
|
goto T2023;} |
5258 |
|
goto T2041;} |
5259 |
|
goto T2039; |
5260 |
|
T2039:; |
5261 |
|
V1053= Cnil;} |
5262 |
|
goto T2023; |
5263 |
|
T2023:; |
5264 |
|
{object V1059 = make_cons(V1052,V1053); |
5265 |
|
VMR74(V1059)} |
5266 |
base[0]=base[0]; |
base[0]=base[0]; |
5267 |
return Cnil; |
return Cnil; |
5268 |
} |
} |
5269 |
/* local entry for function MEC-ALL-CLASSES */ |
/* local entry for function MEC-ALL-CLASSES */ |
5270 |
|
|
5271 |
static object LI81(V1025,V1026) |
static object LI81(V1062,V1063) |
5272 |
|
|
5273 |
object V1025;object V1026; |
object V1062;object V1063; |
5274 |
{ VMB75 VMS75 VMV75 |
{ VMB75 VMS75 VMV75 |
5275 |
goto TTL; |
goto TTL; |
5276 |
TTL:; |
TTL:; |
5277 |
{object V1027; |
{object V1064; |
5278 |
V1027= (*(LnkLI334))((V1025),(V1026)); |
V1064= (*(LnkLI329))((V1062),(V1063)); |
5279 |
if((CMPcdr((V1027)))!=Cnil){ |
if((CMPcdr((V1064)))!=Cnil){ |
5280 |
goto T2047;} |
goto T2045;} |
5281 |
{object V1028 = (V1027); |
{object V1065 = (V1064); |
5282 |
VMR75(V1028)} |
VMR75(V1065)} |
5283 |
goto T2047; |
goto T2045; |
5284 |
T2047:; |
T2045:; |
5285 |
{object V1029; |
{object V1066; |
5286 |
register object V1030; |
register object V1067; |
5287 |
V1029= make_cons(Cnil,(V1027)); |
V1066= make_cons(Cnil,(V1064)); |
5288 |
V1030= (V1027); |
V1067= (V1064); |
5289 |
|
goto T2050; |
5290 |
|
T2050:; |
5291 |
|
if((CMPcdr((V1067)))!=Cnil){ |
5292 |
|
goto T2052;} |
5293 |
|
{object V1068 = CMPcdr((V1066)); |
5294 |
|
VMR75(V1068)} |
5295 |
goto T2052; |
goto T2052; |
5296 |
T2052:; |
T2052:; |
5297 |
if((CMPcdr((V1030)))!=Cnil){ |
{register object V1069; |
5298 |
goto T2054;} |
register object V1070; |
5299 |
{object V1031 = CMPcdr((V1029)); |
V1069= CMPcadr((V1067)); |
5300 |
VMR75(V1031)} |
V1070= CMPcddr((V1067)); |
5301 |
goto T2054; |
{register object V1071; |
5302 |
T2054:; |
register object V1072; |
5303 |
{register object V1032; |
V1071= (V1070); |
5304 |
register object V1033; |
V1072= CMPcar((V1071)); |
5305 |
V1032= CMPcadr((V1030)); |
goto T2063; |
5306 |
V1033= CMPcddr((V1030)); |
T2063:; |
5307 |
{register object V1034; |
if(!(((V1071))==Cnil)){ |
5308 |
register object V1035; |
goto T2064;} |
5309 |
V1034= (V1033); |
goto T2058; |
5310 |
V1035= CMPcar((V1034)); |
goto T2064; |
5311 |
goto T2065; |
T2064:; |
5312 |
T2065:; |
if(!(((V1069))==((V1072)))){ |
5313 |
if(!(((V1034))==Cnil)){ |
goto T2068;} |
5314 |
goto T2066;} |
goto T2059; |
5315 |
goto T2060; |
goto T2068; |
5316 |
goto T2066; |
T2068:; |
5317 |
T2066:; |
V1071= CMPcdr((V1071)); |
5318 |
if(!(((V1032))==((V1035)))){ |
V1072= CMPcar((V1071)); |
5319 |
goto T2070;} |
goto T2063;} |
5320 |
goto T2061; |
goto T2059; |
5321 |
goto T2070; |
T2059:; |
5322 |
T2070:; |
{register object V1073; |
5323 |
V1034= CMPcdr((V1034)); |
register object V1074; |
5324 |
V1035= CMPcar((V1034)); |
V1073= (V1067); |
5325 |
goto T2065;} |
V1074= CMPcddr((V1067)); |
5326 |
goto T2061; |
((V1073))->c.c_cdr = (V1074); |
5327 |
T2061:; |
goto T2051;} |
5328 |
{register object V1036; |
goto T2058; |
5329 |
register object V1037; |
T2058:; |
5330 |
V1036= (V1030); |
V1067= CMPcdr((V1067));} |
5331 |
V1037= CMPcddr((V1030)); |
goto T2051; |
5332 |
((V1036))->c.c_cdr = (V1037); |
T2051:; |
5333 |
goto T2053;} |
goto T2050;}} |
|
goto T2060; |
|
|
T2060:; |
|
|
V1030= CMPcdr((V1030));} |
|
|
goto T2053; |
|
|
T2053:; |
|
|
goto T2052;}} |
|
5334 |
base[0]=base[0]; |
base[0]=base[0]; |
5335 |
return Cnil; |
return Cnil; |
5336 |
} |
} |
5337 |
/* local entry for function MEC-ALL-CLASS-LISTS */ |
/* local entry for function MEC-ALL-CLASS-LISTS */ |
5338 |
|
|
5339 |
static object LI82(V1040,V1041) |
static object LI82(V1077,V1078) |
5340 |
|
|
5341 |
object V1040;object V1041; |
object V1077;object V1078; |
5342 |
{ VMB76 VMS76 VMV76 |
{ VMB76 VMS76 VMV76 |
5343 |
goto TTL; |
goto TTL; |
5344 |
TTL:; |
TTL:; |
5345 |
if(((V1040))!=Cnil){ |
if(((V1077))!=Cnil){ |
5346 |
goto T2084;} |
goto T2082;} |
5347 |
{object V1042 = make_cons(Cnil,Cnil); |
{object V1079 = make_cons(Cnil,Cnil); |
5348 |
VMR76(V1042)} |
VMR76(V1079)} |
5349 |
goto T2084; |
goto T2082; |
5350 |
T2084:; |
T2082:; |
5351 |
{object V1043; |
{object V1080; |
5352 |
object V1044; |
object V1081; |
5353 |
V1043= (*(LnkLI335))(CMPcar((V1040)),(V1041)); |
V1080= (*(LnkLI330))(CMPcar((V1077)),(V1078)); |
5354 |
V1044= (*(LnkLI336))(CMPcdr((V1040)),(V1041)); |
V1081= (*(LnkLI331))(CMPcdr((V1077)),(V1078)); |
5355 |
{object V1045; |
{object V1082; |
5356 |
object V1046= (V1044); |
object V1083= (V1081); |
5357 |
if(V1046==Cnil){ |
if(V1083==Cnil){ |
5358 |
{object V1047 = Cnil; |
{object V1084 = Cnil; |
5359 |
VMR76(V1047)}} |
VMR76(V1084)}} |
5360 |
base[2]=V1045=MMcons(Cnil,Cnil); |
base[2]=V1082=MMcons(Cnil,Cnil); |
5361 |
|
goto T2086; |
5362 |
|
T2086:; |
5363 |
|
{object V1086; |
5364 |
|
object V1087= (V1080); |
5365 |
|
if(V1087==Cnil){ |
5366 |
|
(V1082->c.c_cdr)= Cnil; |
5367 |
|
goto T2087;} |
5368 |
|
base[3]=V1086=MMcons(Cnil,Cnil); |
5369 |
goto T2088; |
goto T2088; |
5370 |
T2088:; |
T2088:; |
5371 |
{object V1049; |
(V1086->c.c_car)= make_cons((V1087->c.c_car),(V1083->c.c_car)); |
5372 |
object V1050= (V1043); |
if((V1087=MMcdr(V1087))==Cnil){ |
5373 |
if(V1050==Cnil){ |
(V1082->c.c_cdr)= base[3]; |
5374 |
(V1045->c.c_cdr)= Cnil; |
goto T2087;} |
5375 |
goto T2089;} |
V1086=MMcdr(V1086)=MMcons(Cnil,Cnil); |
5376 |
base[3]=V1049=MMcons(Cnil,Cnil); |
goto T2088;} |
5377 |
goto T2090; |
goto T2087; |
5378 |
T2090:; |
T2087:; |
5379 |
(V1049->c.c_car)= make_cons((V1050->c.c_car),(V1046->c.c_car)); |
while(MMcdr(V1082)!=Cnil)V1082=MMcdr(V1082); |
5380 |
if((V1050=MMcdr(V1050))==Cnil){ |
if((V1083=MMcdr(V1083))==Cnil){ |
|
(V1045->c.c_cdr)= base[3]; |
|
|
goto T2089;} |
|
|
V1049=MMcdr(V1049)=MMcons(Cnil,Cnil); |
|
|
goto T2090;} |
|
|
goto T2089; |
|
|
T2089:; |
|
|
while(MMcdr(V1045)!=Cnil)V1045=MMcdr(V1045); |
|
|
if((V1046=MMcdr(V1046))==Cnil){ |
|
5381 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
5382 |
{object V1052 = base[2]; |
{object V1089 = base[2]; |
5383 |
VMR76(V1052)}} |
VMR76(V1089)}} |
5384 |
goto T2088;}} |
goto T2086;}} |
5385 |
base[0]=base[0]; |
base[0]=base[0]; |
5386 |
return Cnil; |
return Cnil; |
5387 |
} |
} |
5388 |
/* local entry for function MAKE-EMF-CACHE */ |
/* local entry for function MAKE-EMF-CACHE */ |
5389 |
|
|
5390 |
static object LI85(V1058,V1059,V1060,V1061,V1062) |
static object LI85(V1095,V1096,V1097,V1098,V1099) |
5391 |
|
|
5392 |
object V1058;object V1059;object V1060;object V1061;object V1062; |
object V1095;object V1096;object V1097;object V1098;object V1099; |
5393 |
{ VMB77 VMS77 VMV77 |
{ VMB77 VMS77 VMV77 |
5394 |
goto TTL; |
goto TTL; |
5395 |
TTL:; |
TTL:; |
5396 |
base[0]= (V1062); |
base[0]= (V1099); |
5397 |
base[1]= (V1060); |
base[1]= (V1097); |
5398 |
base[2]= (V1059); |
base[2]= (V1096); |
5399 |
base[3]= (V1058); |
base[3]= (V1095); |
5400 |
{object V1063; |
{object V1100; |
5401 |
register object V1064; |
register object V1101; |
5402 |
base[10]= base[3]; |
base[10]= base[3]; |
5403 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5404 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
5405 |
vs_top=sup; |
vs_top=sup; |
5406 |
V1063= vs_base[0]; |
V1100= vs_base[0]; |
5407 |
base[5]= (*(LnkLI337))((V1063)); |
base[5]= (*(LnkLI332))((V1100)); |
5408 |
base[6]= STREF(object,(V1063),8); |
base[6]= STREF(object,(V1100),8); |
5409 |
if((base[5])==(small_fixnum(1))){ |
if((base[5])==(small_fixnum(1))){ |
5410 |
goto T2098;} |
goto T2096;} |
5411 |
base[10]= base[5]; |
base[10]= base[5]; |
5412 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5413 |
Lmake_list(); |
Lmake_list(); |
5414 |
vs_top=sup; |
vs_top=sup; |
5415 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
5416 |
goto T2096; |
goto T2094; |
|
goto T2098; |
|
|
T2098:; |
|
|
base[7]= Cnil; |
|
5417 |
goto T2096; |
goto T2096; |
5418 |
T2096:; |
T2096:; |
5419 |
V1064= STREF(object,(V1063),28); |
base[7]= Cnil; |
5420 |
|
goto T2094; |
5421 |
|
T2094:; |
5422 |
|
V1101= STREF(object,(V1100),28); |
5423 |
base[9]= VV[143]; |
base[9]= VV[143]; |
5424 |
if(((V1061))==Cnil){ |
if(((V1098))==Cnil){ |
|
goto T2104;} |
|
|
{ |
|
|
object V1065= (V1061); |
|
|
if(V1065==Cnil){ |
|
5425 |
goto T2102;} |
goto T2102;} |
5426 |
goto T2106; |
{ |
5427 |
T2106:; |
object V1102= (V1098); |
5428 |
base[10]= (V1065->c.c_car); |
if(V1102==Cnil){ |
5429 |
|
goto T2100;} |
5430 |
|
goto T2104; |
5431 |
|
T2104:; |
5432 |
|
base[10]= (V1102->c.c_car); |
5433 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5434 |
L86(base); |
L86(base); |
5435 |
vs_top=sup; |
vs_top=sup; |
5436 |
if((V1065=MMcdr(V1065))==Cnil){ |
if((V1102=MMcdr(V1102))==Cnil){ |
5437 |
goto T2102;} |
goto T2100;} |
5438 |
goto T2106;} |
goto T2104;} |
5439 |
goto T2104; |
goto T2102; |
5440 |
T2104:; |
T2102:; |
5441 |
{register object V1066; |
{register object V1103; |
5442 |
register object V1067; |
register object V1104; |
5443 |
base[12]= base[3]; |
base[12]= base[3]; |
5444 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5445 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
5446 |
vs_top=sup; |
vs_top=sup; |
5447 |
V1066= vs_base[0]; |
V1103= vs_base[0]; |
5448 |
V1067= CMPcar((V1066)); |
V1104= CMPcar((V1103)); |
5449 |
goto T2113; |
goto T2111; |
5450 |
T2113:; |
T2111:; |
5451 |
if(!(((V1066))==Cnil)){ |
if(!(((V1103))==Cnil)){ |
5452 |
goto T2114;} |
goto T2112;} |
5453 |
goto T2102; |
goto T2100; |
5454 |
goto T2114; |
goto T2112; |
5455 |
T2114:; |
T2112:; |
5456 |
base[12]= (V1067); |
base[12]= (V1104); |
5457 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5458 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
5459 |
vs_top=sup; |
vs_top=sup; |
5460 |
V1069= vs_base[0]; |
V1106= vs_base[0]; |
5461 |
V1070 = (V1064); |
V1107 = (V1101); |
5462 |
V1071= (*(LnkLI336))(V1069,V1070); |
V1108= (*(LnkLI331))(V1106,V1107); |
5463 |
{ |
{ |
5464 |
object V1068= /* INLINE-ARGS */V1071; |
object V1105= /* INLINE-ARGS */V1108; |
5465 |
if(V1068==Cnil){ |
if(V1105==Cnil){ |
5466 |
goto T2118;} |
goto T2116;} |
5467 |
goto T2119; |
goto T2117; |
5468 |
T2119:; |
T2117:; |
5469 |
base[12]= (V1068->c.c_car); |
base[12]= (V1105->c.c_car); |
5470 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5471 |
L86(base); |
L86(base); |
5472 |
vs_top=sup; |
vs_top=sup; |
5473 |
if((V1068=MMcdr(V1068))==Cnil){ |
if((V1105=MMcdr(V1105))==Cnil){ |
5474 |
goto T2118;} |
goto T2116;} |
5475 |
goto T2119;} |
goto T2117;} |
5476 |
goto T2118; |
goto T2116; |
5477 |
T2118:; |
T2116:; |
5478 |
V1066= CMPcdr((V1066)); |
V1103= CMPcdr((V1103)); |
5479 |
V1067= CMPcar((V1066)); |
V1104= CMPcar((V1103)); |
5480 |
goto T2113;} |
goto T2111;} |
5481 |
goto T2102; |
goto T2100; |
5482 |
T2102:; |
T2100:; |
5483 |
{object V1072 = base[1]; |
{object V1109 = base[1]; |
5484 |
VMR77(V1072)}} |
VMR77(V1109)}} |
5485 |
base[0]=base[0]; |
base[0]=base[0]; |
5486 |
return Cnil; |
return Cnil; |
5487 |
} |
} |
5493 |
vs_check; |
vs_check; |
5494 |
check_arg(2); |
check_arg(2); |
5495 |
vs_top=sup; |
vs_top=sup; |
5496 |
{object V1073=base[0]->c.c_cdr; |
{object V1110=base[0]->c.c_cdr; |
5497 |
if(endp(V1073))invalid_macro_call(); |
if(endp(V1110))invalid_macro_call(); |
5498 |
base[2]= (V1073->c.c_car); |
base[2]= (V1110->c.c_car); |
5499 |
V1073=V1073->c.c_cdr; |
V1110=V1110->c.c_cdr; |
5500 |
if(endp(V1073))invalid_macro_call(); |
if(endp(V1110))invalid_macro_call(); |
5501 |
base[3]= (V1073->c.c_car); |
base[3]= (V1110->c.c_car); |
5502 |
V1073=V1073->c.c_cdr; |
V1110=V1110->c.c_cdr; |
5503 |
if(!endp(V1073))invalid_macro_call();} |
if(!endp(V1110))invalid_macro_call();} |
5504 |
if(!((base[3])==((VV[95]->s.s_dbind)))){ |
if(!((base[3])==((VV[95]->s.s_dbind)))){ |
5505 |
goto T2130;} |
goto T2128;} |
5506 |
base[4]= Ct; |
base[4]= Ct; |
5507 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5508 |
return; |
return; |
5509 |
goto T2130; |
goto T2128; |
5510 |
T2130:; |
T2128:; |
5511 |
if(!((base[3])==((VV[140]->s.s_dbind)))){ |
if(!((base[3])==((VV[140]->s.s_dbind)))){ |
5512 |
goto T2133;} |
goto T2131;} |
5513 |
base[4]= list(2,VV[144],list(3,VV[145],VV[146],list(2,VV[147],list(2,VV[148],list(2,VV[149],base[2]))))); |
base[4]= list(2,VV[144],list(3,VV[145],VV[146],list(2,VV[147],list(2,VV[148],list(2,VV[149],base[2]))))); |
5514 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5515 |
return; |
return; |
5516 |
goto T2133; |
goto T2131; |
5517 |
T2133:; |
T2131:; |
5518 |
if(!((base[3])==((VV[141]->s.s_dbind)))){ |
if(!((base[3])==((VV[141]->s.s_dbind)))){ |
5519 |
goto T2136;} |
goto T2134;} |
5520 |
V1074= list(2,VV[151],base[2]); |
V1111= list(2,VV[151],base[2]); |
5521 |
base[4]= list(3,VV[150],/* INLINE-ARGS */V1074,list(2,VV[152],base[2])); |
base[4]= list(3,VV[150],/* INLINE-ARGS */V1111,list(2,VV[152],base[2])); |
5522 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5523 |
return; |
return; |
5524 |
goto T2136; |
goto T2134; |
5525 |
T2136:; |
T2134:; |
5526 |
if(!((base[3])==((VV[142]->s.s_dbind)))){ |
if(!((base[3])==((VV[142]->s.s_dbind)))){ |
5527 |
goto T2139;} |
goto T2137;} |
5528 |
V1075= list(2,VV[154],base[3]); |
V1112= list(2,VV[154],base[3]); |
5529 |
base[4]= list(3,VV[153],/* INLINE-ARGS */V1075,list(2,VV[155],list(2,VV[149],base[2]))); |
base[4]= list(3,VV[153],/* INLINE-ARGS */V1112,list(2,VV[155],list(2,VV[149],base[2]))); |
5530 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5531 |
return; |
return; |
5532 |
goto T2139; |
goto T2137; |
5533 |
T2139:; |
T2137:; |
5534 |
base[4]= base[3]; |
base[4]= base[3]; |
5535 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5536 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5537 |
vs_top=sup; |
vs_top=sup; |
5538 |
V1076= vs_base[0]; |
V1113= vs_base[0]; |
5539 |
base[4]= list(3,VV[156],base[2],list(2,VV[154],V1076)); |
base[4]= list(3,VV[156],base[2],list(2,VV[154],V1113)); |
5540 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5541 |
return; |
return; |
5542 |
} |
} |
5548 |
vs_check; |
vs_check; |
5549 |
check_arg(2); |
check_arg(2); |
5550 |
vs_top=sup; |
vs_top=sup; |
5551 |
{object V1077=base[0]->c.c_cdr; |
{object V1114=base[0]->c.c_cdr; |
5552 |
if(endp(V1077))invalid_macro_call(); |
if(endp(V1114))invalid_macro_call(); |
5553 |
base[2]= (V1077->c.c_car); |
base[2]= (V1114->c.c_car); |
5554 |
V1077=V1077->c.c_cdr; |
V1114=V1114->c.c_cdr; |
5555 |
if(endp(V1077))invalid_macro_call(); |
if(endp(V1114))invalid_macro_call(); |
5556 |
base[3]= (V1077->c.c_car); |
base[3]= (V1114->c.c_car); |
5557 |
V1077=V1077->c.c_cdr; |
V1114=V1114->c.c_cdr; |
5558 |
if(!endp(V1077))invalid_macro_call();} |
if(!endp(V1114))invalid_macro_call();} |
5559 |
V1078= list(2,VV[149],base[2]); |
V1115= list(2,VV[149],base[2]); |
5560 |
base[4]= list(3,VV[145],/* INLINE-ARGS */V1078,list(2,VV[154],base[3])); |
base[4]= list(3,VV[145],/* INLINE-ARGS */V1115,list(2,VV[154],base[3])); |
5561 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5562 |
return; |
return; |
5563 |
} |
} |
5569 |
vs_check; |
vs_check; |
5570 |
check_arg(2); |
check_arg(2); |
5571 |
vs_top=sup; |
vs_top=sup; |
5572 |
{object V1079=base[0]->c.c_cdr; |
{object V1116=base[0]->c.c_cdr; |
5573 |
if(endp(V1079))invalid_macro_call(); |
if(endp(V1116))invalid_macro_call(); |
5574 |
base[2]= (V1079->c.c_car); |
base[2]= (V1116->c.c_car); |
5575 |
V1079=V1079->c.c_cdr; |
V1116=V1116->c.c_cdr; |
5576 |
if(endp(V1079))invalid_macro_call(); |
if(endp(V1116))invalid_macro_call(); |
5577 |
base[3]= (V1079->c.c_car); |
base[3]= (V1116->c.c_car); |
5578 |
V1079=V1079->c.c_cdr; |
V1116=V1116->c.c_cdr; |
5579 |
if(!endp(V1079))invalid_macro_call();} |
if(!endp(V1116))invalid_macro_call();} |
5580 |
base[4]= list(3,VV[108],base[2],list(2,VV[154],base[3])); |
base[4]= list(3,VV[108],base[2],list(2,VV[154],base[3])); |
5581 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5582 |
return; |
return; |
5583 |
} |
} |
5584 |
/* local entry for function DNET-METHODS-P */ |
/* local entry for function DNET-METHODS-P */ |
5585 |
|
|
5586 |
static object LI90(V1081) |
static object LI90(V1118) |
5587 |
|
|
5588 |
object V1081; |
object V1118; |
5589 |
{ VMB81 VMS81 VMV81 |
{ VMB81 VMS81 VMV81 |
5590 |
goto TTL; |
goto TTL; |
5591 |
TTL:; |
TTL:; |
5592 |
if(type_of((V1081))==t_cons){ |
if(type_of((V1118))==t_cons){ |
5593 |
|
goto T2141;} |
5594 |
|
{object V1119 = Cnil; |
5595 |
|
VMR81(V1119)} |
5596 |
|
goto T2141; |
5597 |
|
T2141:; |
5598 |
|
if(!((CMPcar((V1118)))==(VV[67]))){ |
5599 |
goto T2143;} |
goto T2143;} |
5600 |
{object V1082 = Cnil; |
{object V1120 = Ct; |
5601 |
VMR81(V1082)} |
VMR81(V1120)} |
5602 |
goto T2143; |
goto T2143; |
5603 |
T2143:; |
T2143:; |
5604 |
if(!((CMPcar((V1081)))==(VV[67]))){ |
{object V1121 = ((CMPcar((V1118)))==(VV[157])?Ct:Cnil); |
5605 |
goto T2145;} |
VMR81(V1121)} |
|
{object V1083 = Ct; |
|
|
VMR81(V1083)} |
|
|
goto T2145; |
|
|
T2145:; |
|
|
{object V1084 = ((CMPcar((V1081)))==(VV[157])?Ct:Cnil); |
|
|
VMR81(V1084)} |
|
5606 |
return Cnil; |
return Cnil; |
5607 |
} |
} |
5608 |
/* macro definition for SCASE */ |
/* macro definition for SCASE */ |
5613 |
vs_check; |
vs_check; |
5614 |
check_arg(2); |
check_arg(2); |
5615 |
vs_top=sup; |
vs_top=sup; |
5616 |
{object V1085=base[0]->c.c_cdr; |
{object V1122=base[0]->c.c_cdr; |
5617 |
if(endp(V1085))invalid_macro_call(); |
if(endp(V1122))invalid_macro_call(); |
5618 |
base[2]= (V1085->c.c_car); |
base[2]= (V1122->c.c_car); |
5619 |
V1085=V1085->c.c_cdr; |
V1122=V1122->c.c_cdr; |
5620 |
base[3]= V1085;} |
base[3]= V1122;} |
5621 |
V1086= list(2,VV[159],base[2]); |
V1123= list(2,VV[159],base[2]); |
5622 |
V1087= make_cons(/* INLINE-ARGS */V1086,Cnil); |
V1124= make_cons(/* INLINE-ARGS */V1123,Cnil); |
5623 |
{object V1089; |
{object V1126; |
5624 |
object V1090= base[3]; |
object V1127= base[3]; |
5625 |
if(V1090==Cnil){ |
if(V1127==Cnil){ |
5626 |
V1088= Cnil; |
V1125= Cnil; |
5627 |
goto T2147;} |
goto T2145;} |
5628 |
base[4]=V1089=MMcons(Cnil,Cnil); |
base[4]=V1126=MMcons(Cnil,Cnil); |
5629 |
|
goto T2146; |
5630 |
|
T2146:; |
5631 |
|
{register object V1128; |
5632 |
|
V1128= (V1127->c.c_car); |
5633 |
|
if((CMPcar((V1128)))!=Cnil){ |
5634 |
|
goto T2150;} |
5635 |
|
V1129= Cnil; |
5636 |
goto T2148; |
goto T2148; |
|
T2148:; |
|
|
{register object V1091; |
|
|
V1091= (V1090->c.c_car); |
|
|
if((CMPcar((V1091)))!=Cnil){ |
|
|
goto T2152;} |
|
|
V1092= Cnil; |
|
|
goto T2150; |
|
|
goto T2152; |
|
|
T2152:; |
|
|
if(!(type_of(CMPcar((V1091)))==t_cons)){ |
|
|
goto T2155;} |
|
|
if((CMPcdar((V1091)))!=Cnil){ |
|
|
goto T2158;} |
|
|
V1092= list(3,VV[108],VV[159],list(2,VV[154],CMPcaar((V1091)))); |
|
|
goto T2150; |
|
|
goto T2158; |
|
|
T2158:; |
|
|
V1092= list(3,VV[161],VV[159],list(2,VV[154],CMPcar((V1091)))); |
|
|
goto T2150; |
|
|
goto T2155; |
|
|
T2155:; |
|
|
{register object x= CMPcar((V1091)),V1093= VV[162]; |
|
|
while(V1093!=Cnil) |
|
|
if(eql(x,V1093->c.c_car)){ |
|
|
goto T2162; |
|
|
}else V1093=V1093->c.c_cdr; |
|
|
goto T2161;} |
|
|
goto T2162; |
|
|
T2162:; |
|
|
V1092= Ct; |
|
|
goto T2150; |
|
|
goto T2161; |
|
|
T2161:; |
|
|
V1092= list(3,VV[108],VV[159],list(2,VV[154],CMPcar((V1091)))); |
|
5637 |
goto T2150; |
goto T2150; |
5638 |
T2150:; |
T2150:; |
5639 |
(V1089->c.c_car)= listA(3,V1092,Cnil,CMPcdr((V1091)));} |
if(!(type_of(CMPcar((V1128)))==t_cons)){ |
5640 |
if((V1090=MMcdr(V1090))==Cnil){ |
goto T2153;} |
5641 |
V1088= base[4]; |
if((CMPcdar((V1128)))!=Cnil){ |
5642 |
goto T2147;} |
goto T2156;} |
5643 |
V1089=MMcdr(V1089)=MMcons(Cnil,Cnil); |
V1129= list(3,VV[108],VV[159],list(2,VV[154],CMPcaar((V1128)))); |
5644 |
goto T2148;} |
goto T2148; |
5645 |
goto T2147; |
goto T2156; |
5646 |
T2147:; |
T2156:; |
5647 |
base[4]= list(3,VV[158],/* INLINE-ARGS */V1087,make_cons(VV[160],V1088)); |
V1129= list(3,VV[161],VV[159],list(2,VV[154],CMPcar((V1128)))); |
5648 |
|
goto T2148; |
5649 |
|
goto T2153; |
5650 |
|
T2153:; |
5651 |
|
{register object x= CMPcar((V1128)),V1130= VV[162]; |
5652 |
|
while(V1130!=Cnil) |
5653 |
|
if(eql(x,V1130->c.c_car)){ |
5654 |
|
goto T2160; |
5655 |
|
}else V1130=V1130->c.c_cdr; |
5656 |
|
goto T2159;} |
5657 |
|
goto T2160; |
5658 |
|
T2160:; |
5659 |
|
V1129= Ct; |
5660 |
|
goto T2148; |
5661 |
|
goto T2159; |
5662 |
|
T2159:; |
5663 |
|
V1129= list(3,VV[108],VV[159],list(2,VV[154],CMPcar((V1128)))); |
5664 |
|
goto T2148; |
5665 |
|
T2148:; |
5666 |
|
(V1126->c.c_car)= listA(3,V1129,Cnil,CMPcdr((V1128)));} |
5667 |
|
if((V1127=MMcdr(V1127))==Cnil){ |
5668 |
|
V1125= base[4]; |
5669 |
|
goto T2145;} |
5670 |
|
V1126=MMcdr(V1126)=MMcons(Cnil,Cnil); |
5671 |
|
goto T2146;} |
5672 |
|
goto T2145; |
5673 |
|
T2145:; |
5674 |
|
base[4]= list(3,VV[158],/* INLINE-ARGS */V1124,make_cons(VV[160],V1125)); |
5675 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5676 |
return; |
return; |
5677 |
} |
} |
5683 |
vs_check; |
vs_check; |
5684 |
check_arg(2); |
check_arg(2); |
5685 |
vs_top=sup; |
vs_top=sup; |
5686 |
{object V1094=base[0]->c.c_cdr; |
{object V1131=base[0]->c.c_cdr; |
5687 |
if(endp(V1094))invalid_macro_call(); |
if(endp(V1131))invalid_macro_call(); |
5688 |
base[2]= (V1094->c.c_car); |
base[2]= (V1131->c.c_car); |
5689 |
V1094=V1094->c.c_cdr; |
V1131=V1131->c.c_cdr; |
5690 |
base[3]= V1094;} |
base[3]= V1131;} |
5691 |
base[4]= listA(3,VV[163],base[2],base[3]); |
base[4]= listA(3,VV[163],base[2],base[3]); |
5692 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5693 |
return; |
return; |
5698 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
5699 |
register object *VOL sup=base+VM84; VC84 |
register object *VOL sup=base+VM84; VC84 |
5700 |
vs_check; |
vs_check; |
5701 |
{VOL object V1095; |
{VOL object V1132; |
5702 |
VOL object V1096; |
VOL object V1133; |
5703 |
VOL object V1097; |
VOL object V1134; |
5704 |
check_arg(4); |
check_arg(4); |
5705 |
V1095=(base[0]); |
V1132=(base[0]); |
5706 |
V1096=(base[1]); |
V1133=(base[1]); |
5707 |
V1097=(base[2]); |
V1134=(base[2]); |
5708 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
5709 |
vs_top=sup; |
vs_top=sup; |
5710 |
{VOL object V1098; |
{VOL object V1135; |
5711 |
base[6]= (V1095); |
base[6]= (V1132); |
5712 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
5713 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
5714 |
vs_top=sup; |
vs_top=sup; |
5715 |
V1098= vs_base[0]; |
V1135= vs_base[0]; |
5716 |
base[5]= STREF(object,(V1098),4); |
base[5]= STREF(object,(V1135),4); |
5717 |
base[5]=MMcons(base[5],base[3]); |
base[5]=MMcons(base[5],base[3]); |
5718 |
base[6]= (V1095); |
base[6]= (V1132); |
5719 |
base[7]= (V1096); |
base[7]= (V1133); |
5720 |
base[8]= (V1097); |
base[8]= (V1134); |
5721 |
base[9]= |
base[9]= |
5722 |
make_cclosure_new(LC127,Cnil,base[5],Cdata); |
make_cclosure_new(LC127,Cnil,base[5],Cdata); |
5723 |
base[10]= |
base[10]= |
5724 |
make_cclosure_new(LC128,Cnil,base[5],Cdata); |
make_cclosure_new(LC128,Cnil,base[5],Cdata); |
5725 |
base[11]= (VV[338]->s.s_gfdef); |
base[11]= (VV[333]->s.s_gfdef); |
5726 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
5727 |
(void) (*Lnk339)(); |
(void) (*Lnk334)(); |
5728 |
return;} |
return;} |
5729 |
} |
} |
5730 |
} |
} |
5731 |
/* local entry for function CLASS-FROM-TYPE */ |
/* local entry for function CLASS-FROM-TYPE */ |
5732 |
|
|
5733 |
static object LI94(V1100) |
static object LI94(V1137) |
5734 |
|
|
5735 |
register object V1100; |
register object V1137; |
5736 |
{ VMB85 VMS85 VMV85 |
{ VMB85 VMS85 VMV85 |
5737 |
goto TTL; |
goto TTL; |
5738 |
TTL:; |
TTL:; |
5739 |
if(type_of((V1100))!=t_cons){ |
if(type_of((V1137))!=t_cons){ |
5740 |
goto T2172;} |
goto T2170;} |
5741 |
if(!((CMPcar((V1100)))==(Ct))){ |
if(!((CMPcar((V1137)))==(Ct))){ |
5742 |
goto T2173;} |
goto T2171;} |
5743 |
goto T2172; |
goto T2170; |
5744 |
T2172:; |
T2170:; |
5745 |
{object V1101 = (VV[95]->s.s_dbind); |
{object V1138 = (VV[95]->s.s_dbind); |
5746 |
VMR85(V1101)} |
VMR85(V1138)} |
5747 |
goto T2173; |
goto T2171; |
5748 |
T2173:; |
T2171:; |
5749 |
{object V1102= CMPcar((V1100)); |
{object V1139= CMPcar((V1137)); |
5750 |
if((V1102!= VV[169]))goto T2177; |
if((V1139!= VV[169]))goto T2175; |
5751 |
{register object V1103; |
{register object V1140; |
5752 |
register object V1104; |
register object V1141; |
5753 |
V1103= CMPcdr((V1100)); |
V1140= CMPcdr((V1137)); |
5754 |
V1104= CMPcar((V1103)); |
V1141= CMPcar((V1140)); |
5755 |
goto T2181; |
goto T2179; |
5756 |
T2181:; |
T2179:; |
5757 |
if(!(((V1103))==Cnil)){ |
if(!(((V1140))==Cnil)){ |
5758 |
goto T2182;} |
goto T2180;} |
5759 |
{object V1105 = (VV[95]->s.s_dbind); |
{object V1142 = (VV[95]->s.s_dbind); |
5760 |
VMR85(V1105)} |
VMR85(V1142)} |
5761 |
goto T2182; |
goto T2180; |
5762 |
T2182:; |
T2180:; |
5763 |
if(!(type_of((V1104))==t_cons)){ |
if(!(type_of((V1141))==t_cons)){ |
5764 |
goto T2186;} |
goto T2184;} |
5765 |
if((CMPcar((V1104)))==(VV[144])){ |
if((CMPcar((V1141)))==(VV[144])){ |
5766 |
goto T2186;} |
goto T2184;} |
5767 |
V1100= (V1104); |
V1137= (V1141); |
5768 |
goto TTL; |
goto TTL; |
5769 |
goto T2186; |
goto T2184; |
5770 |
T2186:; |
T2184:; |
5771 |
V1103= CMPcdr((V1103)); |
V1140= CMPcdr((V1140)); |
5772 |
V1104= CMPcar((V1103)); |
V1141= CMPcar((V1140)); |
5773 |
goto T2181;} |
goto T2179;} |
5774 |
goto T2177; |
goto T2175; |
5775 |
T2177:; |
T2175:; |
5776 |
if((V1102!= VV[144]))goto T2198; |
if((V1139!= VV[144]))goto T2196; |
5777 |
{object V1106 = (VV[95]->s.s_dbind); |
{object V1143 = (VV[95]->s.s_dbind); |
5778 |
VMR85(V1106)} |
VMR85(V1143)} |
5779 |
|
goto T2196; |
5780 |
|
T2196:; |
5781 |
|
if((V1139!= VV[108]))goto T2197; |
5782 |
|
{object V1144 = (*(LnkLI149))(CMPcadr((V1137))); |
5783 |
|
VMR85(V1144)} |
5784 |
|
goto T2197; |
5785 |
|
T2197:; |
5786 |
|
if((V1139!= VV[109]))goto T2198; |
5787 |
|
{object V1145 = CMPcadr((V1137)); |
5788 |
|
VMR85(V1145)} |
5789 |
goto T2198; |
goto T2198; |
5790 |
T2198:; |
T2198:; |
5791 |
if((V1102!= VV[108]))goto T2199; |
if((V1139!= VV[335]))goto T2199; |
5792 |
{object V1107 = (*(LnkLI149))(CMPcadr((V1100))); |
{object V1146 = CMPcadr((V1137)); |
5793 |
VMR85(V1107)} |
VMR85(V1146)} |
5794 |
goto T2199; |
goto T2199; |
5795 |
T2199:; |
T2199:; |
5796 |
if((V1102!= VV[109]))goto T2200; |
{object V1147 = Cnil; |
5797 |
{object V1108 = CMPcadr((V1100)); |
VMR85(V1147)}} |
|
VMR85(V1108)} |
|
|
goto T2200; |
|
|
T2200:; |
|
|
if((V1102!= VV[340]))goto T2201; |
|
|
{object V1109 = CMPcadr((V1100)); |
|
|
VMR85(V1109)} |
|
|
goto T2201; |
|
|
T2201:; |
|
|
{object V1110 = Cnil; |
|
|
VMR85(V1110)}} |
|
5798 |
base[0]=base[0]; |
base[0]=base[0]; |
5799 |
return Cnil; |
return Cnil; |
5800 |
} |
} |
5801 |
/* local entry for function PRECOMPUTE-EFFECTIVE-METHODS */ |
/* local entry for function PRECOMPUTE-EFFECTIVE-METHODS */ |
5802 |
|
|
5803 |
static object LI95(object V1112,object V1111,object first,...) |
static object LI95(object V1149,object V1148,object first,...) |
5804 |
{ |
{ |
5805 |
va_list ap; |
va_list ap; |
5806 |
int narg = VFUN_NARGS; VMB86 VMS86 VMV86 |
int narg = VFUN_NARGS; VMB86 VMS86 VMV86 |
5807 |
bds_check; |
bds_check; |
5808 |
va_start(ap,first); |
va_start(ap,first); |
5809 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
5810 |
Vcs[0]=MMcons(V1112,Cnil); |
Vcs[0]=MMcons(V1149,Cnil); |
5811 |
Vcs[1]=MMcons(V1111,Vcs[0]); |
Vcs[1]=MMcons(V1148,Vcs[0]); |
5812 |
narg = narg - 2; |
narg = narg - 2; |
5813 |
if (narg <= 0) goto T2202; |
if (narg <= 0) goto T2200; |
5814 |
else { |
else { |
5815 |
Vcs[2]=MMcons(first,Vcs[1]);} |
Vcs[2]=MMcons(first,Vcs[1]);} |
5816 |
--narg; goto T2203; |
--narg; goto T2201; |
5817 |
goto T2202; |
goto T2200; |
5818 |
T2202:; |
T2200:; |
5819 |
Vcs[2]= Cnil; |
Vcs[2]= Cnil; |
5820 |
Vcs[2]=MMcons(Vcs[2],Vcs[1]); |
Vcs[2]=MMcons(Vcs[2],Vcs[1]); |
5821 |
goto T2203; |
goto T2201; |
5822 |
T2203:; |
T2201:; |
5823 |
{object V1113; |
{object V1150; |
5824 |
object V1114; |
object V1151; |
5825 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
5826 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5827 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
5828 |
vs_top=sup; |
vs_top=sup; |
5829 |
V1113= vs_base[0]; |
V1150= vs_base[0]; |
5830 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
5831 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5832 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
5833 |
vs_top=sup; |
vs_top=sup; |
5834 |
V1114= vs_base[0]; |
V1151= vs_base[0]; |
5835 |
base[2]= STREF(object,(V1113),4); |
base[2]= STREF(object,(V1150),4); |
5836 |
base[2]=MMcons(base[2],Vcs[2]); |
base[2]=MMcons(base[2],Vcs[2]); |
5837 |
bds_bind(VV[168],Ct); |
bds_bind(VV[168],Ct); |
5838 |
base[4]=MMcons(Cnil,base[2]); |
base[4]=MMcons(Cnil,base[2]); |
5839 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
5840 |
base[6]= (V1114); |
base[6]= (V1151); |
5841 |
base[7]= Cnil; |
base[7]= Cnil; |
5842 |
base[8]= |
base[8]= |
5843 |
make_cclosure_new(LC129,Cnil,base[4],Cdata); |
make_cclosure_new(LC129,Cnil,base[4],Cdata); |
5846 |
base[10]= |
base[10]= |
5847 |
make_cclosure_new(LC131,Cnil,base[4],Cdata); |
make_cclosure_new(LC131,Cnil,base[4],Cdata); |
5848 |
vs_top=(vs_base=base+5)+6; |
vs_top=(vs_base=base+5)+6; |
5849 |
(void) (*Lnk339)(); |
(void) (*Lnk334)(); |
5850 |
vs_top=sup; |
vs_top=sup; |
5851 |
{object V1115 = (base[4]->c.c_car); |
{object V1152 = (base[4]->c.c_car); |
5852 |
bds_unwind1; |
bds_unwind1; |
5853 |
VMR86(V1115)}} |
VMR86(V1152)}} |
5854 |
va_end(ap); |
va_end(ap); |
5855 |
base[0]=base[0]; |
base[0]=base[0]; |
5856 |
return Cnil;} |
return Cnil;} |
5857 |
/* local entry for function AUGMENT-TYPE */ |
/* local entry for function AUGMENT-TYPE */ |
5858 |
|
|
5859 |
static object LI96(V1118,V1119) |
static object LI96(V1155,V1156) |
5860 |
|
|
5861 |
register object V1118;register object V1119; |
register object V1155;register object V1156; |
5862 |
{ VMB87 VMS87 VMV87 |
{ VMB87 VMS87 VMV87 |
5863 |
goto TTL; |
goto TTL; |
5864 |
TTL:; |
TTL:; |
5865 |
if(((V1119))==(Ct)){ |
if(((V1156))==(Ct)){ |
5866 |
goto T2217;} |
goto T2215;} |
5867 |
if(!((CMPcar((V1118)))==(VV[108]))){ |
if(!((CMPcar((V1155)))==(VV[108]))){ |
5868 |
goto T2218;} |
goto T2216;} |
5869 |
goto T2217; |
goto T2215; |
5870 |
T2217:; |
T2215:; |
5871 |
{object V1120 = (V1118); |
{object V1157 = (V1155); |
5872 |
VMR87(V1120)} |
VMR87(V1157)} |
5873 |
goto T2218; |
goto T2216; |
5874 |
T2218:; |
T2216:; |
5875 |
{register object V1121; |
{register object V1158; |
5876 |
if(!(type_of((V1119))==t_cons)){ |
if(!(type_of((V1156))==t_cons)){ |
5877 |
goto T2224;} |
goto T2222;} |
5878 |
if(!((CMPcar((V1119)))==(VV[169]))){ |
if(!((CMPcar((V1156)))==(VV[169]))){ |
5879 |
goto T2224;} |
goto T2222;} |
5880 |
V1121= CMPcdr((V1119)); |
V1158= CMPcdr((V1156)); |
5881 |
goto T2222; |
goto T2220; |
|
goto T2224; |
|
|
T2224:; |
|
|
V1121= make_cons((V1119),Cnil); |
|
5882 |
goto T2222; |
goto T2222; |
5883 |
T2222:; |
T2222:; |
5884 |
if((CMPcar((V1118)))==(VV[144])){ |
V1158= make_cons((V1156),Cnil); |
5885 |
goto T2228;} |
goto T2220; |
5886 |
{object V1122; |
T2220:; |
5887 |
object V1123= (V1121); |
if((CMPcar((V1155)))==(VV[144])){ |
5888 |
if(V1123==Cnil){ |
goto T2226;} |
5889 |
V1121= Cnil; |
{object V1159; |
5890 |
goto T2231;} |
object V1160= (V1158); |
5891 |
base[0]=V1122=MMcons(Cnil,Cnil); |
if(V1160==Cnil){ |
5892 |
goto T2232; |
V1158= Cnil; |
5893 |
T2232:; |
goto T2229;} |
5894 |
base[1]= (V1118); |
base[0]=V1159=MMcons(Cnil,Cnil); |
5895 |
base[2]= (V1123->c.c_car); |
goto T2230; |
5896 |
|
T2230:; |
5897 |
|
base[1]= (V1155); |
5898 |
|
base[2]= (V1160->c.c_car); |
5899 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5900 |
(void) (*Lnk262)(); |
(void) (*Lnk261)(); |
5901 |
vs_top=sup; |
vs_top=sup; |
5902 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5903 |
goto T2235;} |
goto T2233;} |
5904 |
(V1122->c.c_cdr)= make_cons((V1123->c.c_car),Cnil); |
(V1159->c.c_cdr)= make_cons((V1160->c.c_car),Cnil); |
5905 |
goto T2233; |
goto T2231; |
|
goto T2235; |
|
|
T2235:; |
|
|
(V1122->c.c_cdr)= Cnil; |
|
5906 |
goto T2233; |
goto T2233; |
5907 |
T2233:; |
T2233:; |
5908 |
while(MMcdr(V1122)!=Cnil)V1122=MMcdr(V1122); |
(V1159->c.c_cdr)= Cnil; |
|
if((V1123=MMcdr(V1123))==Cnil){ |
|
|
base[0]=base[0]->c.c_cdr; |
|
|
V1121= base[0]; |
|
|
goto T2231;} |
|
|
goto T2232;} |
|
5909 |
goto T2231; |
goto T2231; |
5910 |
T2231:; |
T2231:; |
5911 |
goto T2228; |
while(MMcdr(V1159)!=Cnil)V1159=MMcdr(V1159); |
5912 |
T2228:; |
if((V1160=MMcdr(V1160))==Cnil){ |
5913 |
if(((V1121))!=Cnil){ |
base[0]=base[0]->c.c_cdr; |
5914 |
goto T2240;} |
V1158= base[0]; |
5915 |
{object V1125 = (V1118); |
goto T2229;} |
5916 |
VMR87(V1125)} |
goto T2230;} |
5917 |
goto T2240; |
goto T2229; |
5918 |
T2240:; |
T2229:; |
5919 |
{object V1126 = listA(3,VV[169],(V1118),(V1121)); |
goto T2226; |
5920 |
VMR87(V1126)}} |
T2226:; |
5921 |
|
if(((V1158))!=Cnil){ |
5922 |
|
goto T2238;} |
5923 |
|
{object V1162 = (V1155); |
5924 |
|
VMR87(V1162)} |
5925 |
|
goto T2238; |
5926 |
|
T2238:; |
5927 |
|
{object V1163 = listA(3,VV[169],(V1155),(V1158)); |
5928 |
|
VMR87(V1163)}} |
5929 |
base[0]=base[0]; |
base[0]=base[0]; |
5930 |
return Cnil; |
return Cnil; |
5931 |
} |
} |
5935 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5936 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
5937 |
vs_check; |
vs_check; |
5938 |
{object V1127; |
{object V1164; |
5939 |
object V1128; |
object V1165; |
5940 |
check_arg(6); |
check_arg(6); |
5941 |
V1127=(base[0]); |
V1164=(base[0]); |
5942 |
V1128=(base[1]); |
V1165=(base[1]); |
5943 |
vs_top=sup; |
vs_top=sup; |
5944 |
goto TTL; |
goto TTL; |
5945 |
TTL:; |
TTL:; |
5946 |
{object V1129; |
{object V1166; |
5947 |
object V1130; |
object V1167; |
5948 |
base[10]= (V1127); |
base[10]= (V1164); |
5949 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5950 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
5951 |
vs_top=sup; |
vs_top=sup; |
5952 |
V1129= vs_base[0]; |
V1166= vs_base[0]; |
5953 |
V1130= STREF(object,(V1129),4); |
V1167= STREF(object,(V1166),4); |
5954 |
base[8]= CMPmake_fixnum((long)(*(LnkLI341))((V1129))); |
base[8]= CMPmake_fixnum((long)(*(LnkLI336))((V1166))); |
5955 |
base[9]= STREF(object,(V1129),8); |
base[9]= STREF(object,(V1166),8); |
5956 |
base[10]= (V1130); |
base[10]= (V1167); |
5957 |
base[11]= (V1128); |
base[11]= (V1165); |
5958 |
base[12]= Cnil; |
base[12]= Cnil; |
5959 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5960 |
L100(base); |
L100(base); |
5967 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5968 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM89; VC89 |
5969 |
vs_check; |
vs_check; |
5970 |
{object V1131; |
{object V1168; |
5971 |
object V1132; |
object V1169; |
5972 |
object V1133; |
object V1170; |
5973 |
object V1134; |
object V1171; |
5974 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
5975 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
5976 |
V1131=(base[0]); |
V1168=(base[0]); |
5977 |
V1132=(base[1]); |
V1169=(base[1]); |
5978 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
5979 |
if(vs_base>=vs_top){vs_top=sup;goto T2250;} |
if(vs_base>=vs_top){vs_top=sup;goto T2248;} |
5980 |
V1133=(base[2]); |
V1170=(base[2]); |
5981 |
vs_base++; |
vs_base++; |
5982 |
if(vs_base>=vs_top){vs_top=sup;goto T2251;} |
if(vs_base>=vs_top){vs_top=sup;goto T2249;} |
5983 |
V1134=(base[3]); |
V1171=(base[3]); |
5984 |
vs_top=sup; |
vs_top=sup; |
5985 |
goto T2252; |
goto T2250; |
5986 |
|
goto T2248; |
5987 |
|
T2248:; |
5988 |
|
V1170= Cnil; |
5989 |
|
goto T2249; |
5990 |
|
T2249:; |
5991 |
|
V1171= Cnil; |
5992 |
goto T2250; |
goto T2250; |
5993 |
T2250:; |
T2250:; |
5994 |
V1133= Cnil; |
base[4]= (VFUN_NARGS=2,(*(LnkLI337))((V1168),(V1169))); |
5995 |
goto T2251; |
base[5]= (V1170); |
5996 |
T2251:; |
base[6]= (V1171); |
|
V1134= Cnil; |
|
|
goto T2252; |
|
|
T2252:; |
|
|
base[4]= (VFUN_NARGS=2,(*(LnkLI342))((V1131),(V1132))); |
|
|
base[5]= (V1133); |
|
|
base[6]= (V1134); |
|
5997 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
5998 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5999 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6004 |
} |
} |
6005 |
/* local entry for function COMPUTE-MCASE-PARAMETERS */ |
/* local entry for function COMPUTE-MCASE-PARAMETERS */ |
6006 |
|
|
6007 |
static object LI103(V1136) |
static object LI103(V1173) |
6008 |
|
|
6009 |
object V1136; |
object V1173; |
6010 |
{ VMB90 VMS90 VMV90 |
{ VMB90 VMS90 VMV90 |
6011 |
goto TTL; |
goto TTL; |
6012 |
TTL:; |
TTL:; |
6013 |
base[0]= (V1136); |
base[0]= (V1173); |
6014 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6015 |
Llast(); |
Llast(); |
6016 |
vs_top=sup; |
vs_top=sup; |
6017 |
V1137= vs_base[0]; |
V1174= vs_base[0]; |
6018 |
if((Ct)==(CMPcaar(V1137))){ |
if((Ct)==(CMPcaar(V1174))){ |
6019 |
goto T2258;} |
goto T2256;} |
6020 |
base[0]= VV[170]; |
base[0]= VV[170]; |
6021 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6022 |
Lerror(); |
Lerror(); |
6023 |
vs_top=sup; |
vs_top=sup; |
6024 |
goto T2258; |
goto T2256; |
6025 |
T2258:; |
T2256:; |
6026 |
{object V1138; |
{object V1175; |
6027 |
object V1139; |
object V1176; |
6028 |
object V1140; |
object V1177; |
6029 |
{register object V1141; |
{register object V1178; |
6030 |
register object V1142; |
register object V1179; |
6031 |
V1141= (V1136); |
V1178= (V1173); |
6032 |
V1142= CMPcar((V1141)); |
V1179= CMPcar((V1178)); |
6033 |
goto T2268; |
goto T2266; |
6034 |
T2268:; |
T2266:; |
6035 |
if(!(((V1141))==Cnil)){ |
if(!(((V1178))==Cnil)){ |
6036 |
goto T2269;} |
goto T2267;} |
6037 |
V1138= Ct; |
V1175= Ct; |
6038 |
goto T2264; |
goto T2262; |
6039 |
goto T2269; |
goto T2267; |
6040 |
T2269:; |
T2267:; |
6041 |
if((CMPcar((V1142)))==(Ct)){ |
if((CMPcar((V1179)))==(Ct)){ |
6042 |
goto T2273;} |
goto T2271;} |
6043 |
if(type_of(CMPcaar((V1142)))==t_symbol){ |
if(type_of(CMPcaar((V1179)))==t_symbol){ |
6044 |
goto T2273;} |
goto T2271;} |
6045 |
V1138= Cnil; |
V1175= Cnil; |
6046 |
goto T2264; |
goto T2262; |
6047 |
goto T2273; |
goto T2271; |
6048 |
T2273:; |
T2271:; |
6049 |
V1141= CMPcdr((V1141)); |
V1178= CMPcdr((V1178)); |
6050 |
V1142= CMPcar((V1141)); |
V1179= CMPcar((V1178)); |
6051 |
goto T2268;} |
goto T2266;} |
6052 |
goto T2264; |
goto T2262; |
6053 |
T2264:; |
T2262:; |
6054 |
V1143 = CMPmake_fixnum((long)length((V1136))); |
V1180 = CMPmake_fixnum((long)length((V1173))); |
6055 |
V1139= one_minus(V1143); |
V1176= one_minus(V1180); |
6056 |
if(!(number_compare((V1139),small_fixnum(1))==0)){ |
if(!(number_compare((V1176),small_fixnum(1))==0)){ |
6057 |
goto T2286;} |
goto T2284;} |
6058 |
V1140= VV[171]; |
V1177= VV[171]; |
6059 |
|
goto T2282; |
6060 |
goto T2284; |
goto T2284; |
6061 |
goto T2286; |
T2284:; |
6062 |
T2286:; |
V1181 = (V1176); |
6063 |
V1144 = (V1139); |
if(((V1175))==Cnil){ |
6064 |
if(((V1138))==Cnil){ |
goto T2291;} |
6065 |
goto T2293;} |
V1182= (VV[172]->s.s_dbind); |
6066 |
V1145= (VV[172]->s.s_dbind); |
goto T2289; |
|
goto T2291; |
|
|
goto T2293; |
|
|
T2293:; |
|
|
V1145= (VV[173]->s.s_dbind); |
|
6067 |
goto T2291; |
goto T2291; |
6068 |
T2291:; |
T2291:; |
6069 |
if(!(number_compare(V1144,V1145)<=0)){ |
V1182= (VV[173]->s.s_dbind); |
|
goto T2289;} |
|
|
V1140= VV[174]; |
|
|
goto T2284; |
|
6070 |
goto T2289; |
goto T2289; |
6071 |
T2289:; |
T2289:; |
6072 |
V1140= VV[175]; |
if(!(number_compare(V1181,V1182)<=0)){ |
6073 |
goto T2284; |
goto T2287;} |
6074 |
T2284:; |
V1177= VV[174]; |
6075 |
{object V1146 = list(2,(V1138),(V1140)); |
goto T2282; |
6076 |
VMR90(V1146)}} |
goto T2287; |
6077 |
|
T2287:; |
6078 |
|
V1177= VV[175]; |
6079 |
|
goto T2282; |
6080 |
|
T2282:; |
6081 |
|
{object V1183 = list(2,(V1175),(V1177)); |
6082 |
|
VMR90(V1183)}} |
6083 |
base[0]=base[0]; |
base[0]=base[0]; |
6084 |
return Cnil; |
return Cnil; |
6085 |
} |
} |
6091 |
vs_check; |
vs_check; |
6092 |
check_arg(2); |
check_arg(2); |
6093 |
vs_top=sup; |
vs_top=sup; |
6094 |
{object V1147=base[0]->c.c_cdr; |
{object V1184=base[0]->c.c_cdr; |
6095 |
if(endp(V1147))invalid_macro_call(); |
if(endp(V1184))invalid_macro_call(); |
6096 |
base[2]= (V1147->c.c_car); |
base[2]= (V1184->c.c_car); |
6097 |
V1147=V1147->c.c_cdr; |
V1184=V1184->c.c_cdr; |
6098 |
if(endp(V1147))invalid_macro_call(); |
if(endp(V1184))invalid_macro_call(); |
6099 |
base[3]= (V1147->c.c_car); |
base[3]= (V1184->c.c_car); |
6100 |
V1147=V1147->c.c_cdr; |
V1184=V1184->c.c_cdr; |
6101 |
if(endp(V1147))invalid_macro_call(); |
if(endp(V1184))invalid_macro_call(); |
6102 |
base[4]= (V1147->c.c_car); |
base[4]= (V1184->c.c_car); |
6103 |
V1147=V1147->c.c_cdr; |
V1184=V1184->c.c_cdr; |
6104 |
if(endp(V1147)){ |
if(endp(V1184)){ |
6105 |
base[5]= Cnil; |
base[5]= Cnil; |
6106 |
} else { |
} else { |
6107 |
base[5]= (V1147->c.c_car); |
base[5]= (V1184->c.c_car); |
6108 |
V1147=V1147->c.c_cdr;} |
V1184=V1184->c.c_cdr;} |
6109 |
if(endp(V1147)){ |
if(endp(V1184)){ |
6110 |
base[6]= Cnil; |
base[6]= Cnil; |
6111 |
} else { |
} else { |
6112 |
base[6]= (V1147->c.c_car); |
base[6]= (V1184->c.c_car); |
6113 |
V1147=V1147->c.c_cdr;} |
V1184=V1184->c.c_cdr;} |
6114 |
if(!endp(V1147))invalid_macro_call();} |
if(!endp(V1184))invalid_macro_call();} |
6115 |
if((base[5])==(Ct)){ |
if((base[5])==(Ct)){ |
6116 |
goto T2297;} |
goto T2295;} |
6117 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
6118 |
goto T2297;} |
goto T2295;} |
6119 |
base[7]= VV[176]; |
base[7]= VV[176]; |
6120 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6121 |
Lerror(); |
Lerror(); |
6122 |
vs_top=sup; |
vs_top=sup; |
6123 |
goto T2297; |
goto T2295; |
6124 |
T2297:; |
T2295:; |
6125 |
{object V1148= base[6]; |
{object V1185= base[6]; |
6126 |
if((V1148!= VV[171]))goto T2303; |
if((V1185!= VV[171]))goto T2301; |
6127 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
6128 |
goto T2306;} |
goto T2304;} |
6129 |
V1149= VV[145]; |
V1186= VV[145]; |
6130 |
goto T2304; |
goto T2302; |
|
goto T2306; |
|
|
T2306:; |
|
|
V1149= VV[108]; |
|
6131 |
goto T2304; |
goto T2304; |
6132 |
T2304:; |
T2304:; |
6133 |
V1150 = base[2]; |
V1186= VV[108]; |
6134 |
V1151= list(3,V1149,V1150,list(2,VV[177],base[3])); |
goto T2302; |
6135 |
base[7]= list(4,VV[165],/* INLINE-ARGS */V1151,list(2,VV[178],base[3]),base[4]); |
T2302:; |
6136 |
|
V1187 = base[2]; |
6137 |
|
V1188= list(3,V1186,V1187,list(2,VV[177],base[3])); |
6138 |
|
base[7]= list(4,VV[165],/* INLINE-ARGS */V1188,list(2,VV[178],base[3]),base[4]); |
6139 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6140 |
return; |
return; |
6141 |
goto T2303; |
goto T2301; |
6142 |
T2303:; |
T2301:; |
6143 |
if((V1148!= VV[174]))goto T2308; |
if((V1185!= VV[174]))goto T2306; |
6144 |
V1152= list(3,VV[180],base[3],base[4]); |
V1189= list(3,VV[180],base[3],base[4]); |
6145 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
6146 |
goto T2311;} |
goto T2309;} |
6147 |
V1153= VV[145]; |
V1190= VV[145]; |
6148 |
goto T2309; |
goto T2307; |
|
goto T2311; |
|
|
T2311:; |
|
|
V1153= VV[108]; |
|
6149 |
goto T2309; |
goto T2309; |
6150 |
T2309:; |
T2309:; |
6151 |
V1154 = base[2]; |
V1190= VV[108]; |
6152 |
base[7]= list(3,VV[179],/* INLINE-ARGS */V1152,list(3,VV[181],list(3,V1153,VV[182],V1154),VV[183])); |
goto T2307; |
6153 |
|
T2307:; |
6154 |
|
V1191 = base[2]; |
6155 |
|
base[7]= list(3,VV[179],/* INLINE-ARGS */V1189,list(3,VV[181],list(3,V1190,VV[182],V1191),VV[183])); |
6156 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6157 |
return; |
return; |
6158 |
goto T2308; |
goto T2306; |
6159 |
T2308:; |
T2306:; |
6160 |
if((V1148!= VV[175]))goto T2313; |
if((V1185!= VV[175]))goto T2311; |
6161 |
base[7]= list(4,VV[184],base[2],base[3],base[4]); |
base[7]= list(4,VV[184],base[2],base[3],base[4]); |
6162 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6163 |
return; |
return; |
6164 |
goto T2313; |
goto T2311; |
6165 |
T2313:; |
T2311:; |
6166 |
FEerror("The ECASE key value ~s is illegal.",1,V1148); |
FEerror("The ECASE key value ~s is illegal.",1,V1185); |
6167 |
base[7]= Cnil; |
base[7]= Cnil; |
6168 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6169 |
return;} |
return;} |
6170 |
} |
} |
6171 |
/* local entry for function NET-TEST-CONVERTER */ |
/* local entry for function NET-TEST-CONVERTER */ |
6172 |
|
|
6173 |
static object LI105(V1156) |
static object LI105(V1193) |
6174 |
|
|
6175 |
register object V1156; |
register object V1193; |
6176 |
{ VMB92 VMS92 VMV92 |
{ VMB92 VMS92 VMV92 |
6177 |
goto TTL; |
goto TTL; |
6178 |
TTL:; |
TTL:; |
6179 |
if(!(type_of((V1156))!=t_cons)){ |
if(!(type_of((V1193))!=t_cons)){ |
6180 |
goto T2315;} |
goto T2313;} |
6181 |
{object V1157 = (*(LnkLI343))((V1156)); |
{object V1194 = (*(LnkLI338))((V1193)); |
6182 |
VMR92(V1157)} |
VMR92(V1194)} |
6183 |
|
goto T2313; |
6184 |
|
T2313:; |
6185 |
|
{object V1195= CMPcar((V1193)); |
6186 |
|
if((V1195!= VV[339]) |
6187 |
|
&& (V1195!= VV[340]))goto T2315; |
6188 |
|
{object V1196 = VV[185]; |
6189 |
|
VMR92(V1196)} |
6190 |
goto T2315; |
goto T2315; |
6191 |
T2315:; |
T2315:; |
6192 |
{object V1158= CMPcar((V1156)); |
if((V1195!= VV[67]))goto T2316; |
6193 |
if((V1158!= VV[344]) |
{object V1197 = VV[186]; |
6194 |
&& (V1158!= VV[345]))goto T2317; |
VMR92(V1197)} |
6195 |
{object V1159 = VV[185]; |
goto T2316; |
6196 |
VMR92(V1159)} |
T2316:; |
6197 |
|
if((V1195!= VV[157]))goto T2317; |
6198 |
|
{object V1198 = VV[187]; |
6199 |
|
VMR92(V1198)} |
6200 |
goto T2317; |
goto T2317; |
6201 |
T2317:; |
T2317:; |
6202 |
if((V1158!= VV[67]))goto T2318; |
if((V1195!= VV[164]))goto T2318; |
6203 |
{object V1160 = VV[186]; |
V1199= CMPcadr((V1193)); |
6204 |
VMR92(V1160)} |
{object V1200 = listA(5,VV[188],/* INLINE-ARGS */V1199,Cnil,Cnil,(*(LnkLI341))(CMPcddr((V1193)))); |
6205 |
|
VMR92(V1200)} |
6206 |
goto T2318; |
goto T2318; |
6207 |
T2318:; |
T2318:; |
6208 |
if((V1158!= VV[157]))goto T2319; |
{object V1201 = (*(LnkLI338))((V1193)); |
6209 |
{object V1161 = VV[187]; |
VMR92(V1201)}} |
|
VMR92(V1161)} |
|
|
goto T2319; |
|
|
T2319:; |
|
|
if((V1158!= VV[164]))goto T2320; |
|
|
V1162= CMPcadr((V1156)); |
|
|
{object V1163 = listA(5,VV[188],/* INLINE-ARGS */V1162,Cnil,Cnil,(*(LnkLI346))(CMPcddr((V1156)))); |
|
|
VMR92(V1163)} |
|
|
goto T2320; |
|
|
T2320:; |
|
|
{object V1164 = (*(LnkLI343))((V1156)); |
|
|
VMR92(V1164)}} |
|
6210 |
return Cnil; |
return Cnil; |
6211 |
} |
} |
6212 |
/* function definition for NET-CODE-CONVERTER */ |
/* function definition for NET-CODE-CONVERTER */ |
6215 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6216 |
register object *sup=base+VM93; VC93 |
register object *sup=base+VM93; VC93 |
6217 |
vs_check; |
vs_check; |
6218 |
{register object V1165; |
{register object V1202; |
6219 |
check_arg(1); |
check_arg(1); |
6220 |
V1165=(base[0]); |
V1202=(base[0]); |
6221 |
vs_top=sup; |
vs_top=sup; |
6222 |
goto TTL; |
goto TTL; |
6223 |
TTL:; |
TTL:; |
6224 |
if(!(type_of((V1165))!=t_cons)){ |
if(!(type_of((V1202))!=t_cons)){ |
6225 |
goto T2322;} |
goto T2320;} |
6226 |
base[1]= (V1165); |
base[1]= (V1202); |
6227 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6228 |
(void) (*Lnk347)(); |
(void) (*Lnk342)(); |
6229 |
return; |
return; |
6230 |
goto T2322; |
goto T2320; |
6231 |
T2322:; |
T2320:; |
6232 |
{object V1166= CMPcar((V1165)); |
{object V1203= CMPcar((V1202)); |
6233 |
if((V1166!= VV[67]) |
if((V1203!= VV[67]) |
6234 |
&& (V1166!= VV[157]))goto T2325; |
&& (V1203!= VV[157]))goto T2323; |
6235 |
{object V1167; |
{object V1204; |
6236 |
vs_base=vs_top; |
vs_base=vs_top; |
6237 |
Lgensym(); |
Lgensym(); |
6238 |
vs_top=sup; |
vs_top=sup; |
6239 |
V1167= vs_base[0]; |
V1204= vs_base[0]; |
6240 |
base[1]= (V1167); |
base[1]= (V1204); |
6241 |
base[2]= make_cons((V1167),Cnil); |
base[2]= make_cons((V1204),Cnil); |
6242 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6243 |
return;} |
return;} |
6244 |
goto T2325; |
goto T2323; |
6245 |
T2325:; |
T2323:; |
6246 |
if((V1166!= VV[164]))goto T2329; |
if((V1203!= VV[164]))goto T2327; |
6247 |
{object V1168; |
{object V1205; |
6248 |
object V1169; |
object V1206; |
6249 |
object V1170; |
object V1207; |
6250 |
V1168= (*(LnkLI346))(CMPcddr((V1165))); |
V1205= (*(LnkLI341))(CMPcddr((V1202))); |
6251 |
vs_base=vs_top; |
vs_base=vs_top; |
6252 |
Lgensym(); |
Lgensym(); |
6253 |
vs_top=sup; |
vs_top=sup; |
6254 |
V1169= vs_base[0]; |
V1206= vs_base[0]; |
6255 |
vs_base=vs_top; |
vs_base=vs_top; |
6256 |
Lgensym(); |
Lgensym(); |
6257 |
vs_top=sup; |
vs_top=sup; |
6258 |
V1170= vs_base[0]; |
V1207= vs_base[0]; |
6259 |
base[1]= listA(5,VV[188],CMPcadr((V1165)),(V1169),(V1170),(V1168)); |
base[1]= listA(5,VV[188],CMPcadr((V1202)),(V1206),(V1207),(V1205)); |
6260 |
base[2]= list(2,(V1169),(V1170)); |
base[2]= list(2,(V1206),(V1207)); |
6261 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6262 |
return;} |
return;} |
6263 |
goto T2329; |
goto T2327; |
6264 |
T2329:; |
T2327:; |
6265 |
base[1]= (V1165); |
base[1]= (V1202); |
6266 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6267 |
(void) (*Lnk347)(); |
(void) (*Lnk342)(); |
6268 |
return;} |
return;} |
6269 |
} |
} |
6270 |
} |
} |
6271 |
/* local entry for function NET-CONSTANT-CONVERTER */ |
/* local entry for function NET-CONSTANT-CONVERTER */ |
6272 |
|
|
6273 |
static object LI107(V1173,V1174) |
static object LI107(V1210,V1211) |
6274 |
|
|
6275 |
register object V1173;object V1174; |
register object V1210;object V1211; |
6276 |
{ VMB94 VMS94 VMV94 |
{ VMB94 VMS94 VMV94 |
6277 |
goto TTL; |
goto TTL; |
6278 |
TTL:;{object V1175; |
TTL:;{object V1212; |
6279 |
{object V1176; |
{object V1213; |
6280 |
V1176= (*(LnkLI348))((V1173),(V1174)); |
V1213= (*(LnkLI343))((V1210),(V1211)); |
6281 |
if(((V1176))==Cnil){ |
if(((V1213))==Cnil){ |
6282 |
goto T2340;} |
goto T2338;} |
6283 |
V1175= make_cons((V1176),Cnil); |
V1212= make_cons((V1213),Cnil); |
6284 |
goto T2337; |
goto T2335; |
6285 |
goto T2340; |
goto T2338; |
6286 |
T2340:; |
T2338:; |
6287 |
V1175= Cnil;} |
V1212= Cnil;} |
6288 |
goto T2337; |
goto T2335; |
6289 |
T2337:; |
T2335:; |
6290 |
if(V1175==Cnil)goto T2336; |
if(V1212==Cnil)goto T2334; |
6291 |
{object V1177 = V1175; |
{object V1214 = V1212; |
6292 |
VMR94(V1177)} |
VMR94(V1214)} |
6293 |
goto T2336; |
goto T2334; |
6294 |
T2336:;} |
T2334:;} |
6295 |
if(!(type_of((V1173))!=t_cons)){ |
if(!(type_of((V1210))!=t_cons)){ |
6296 |
goto T2343;} |
goto T2341;} |
6297 |
{object V1178 = (*(LnkLI349))((V1173)); |
{object V1215 = (*(LnkLI344))((V1210)); |
6298 |
VMR94(V1178)} |
VMR94(V1215)} |
6299 |
goto T2343; |
goto T2341; |
6300 |
T2343:; |
T2341:; |
6301 |
{object V1179= CMPcar((V1173)); |
{object V1216= CMPcar((V1210)); |
6302 |
if((V1179!= VV[164]))goto T2345; |
if((V1216!= VV[164]))goto T2343; |
6303 |
{object V1180; |
{object V1217; |
6304 |
object V1181; |
object V1218; |
6305 |
object V1182; |
object V1219; |
6306 |
V1180= (*(LnkLI346))(CMPcddr((V1173))); |
V1217= (*(LnkLI341))(CMPcddr((V1210))); |
6307 |
{object V1183; |
{object V1220; |
6308 |
object V1184= CMPcddr((V1173)); |
object V1221= CMPcddr((V1210)); |
6309 |
if(V1184==Cnil){ |
if(V1221==Cnil){ |
6310 |
V1181= Cnil; |
V1218= Cnil; |
6311 |
goto T2347;} |
goto T2345;} |
6312 |
base[3]=V1183=MMcons(Cnil,Cnil); |
base[3]=V1220=MMcons(Cnil,Cnil); |
6313 |
goto T2348; |
goto T2346; |
6314 |
T2348:; |
T2346:; |
6315 |
{object V1186; |
{object V1223; |
6316 |
object V1187; |
object V1224; |
6317 |
V1186= CMPcar((V1184->c.c_car)); |
V1223= CMPcar((V1221->c.c_car)); |
6318 |
V1187= CMPcadr((V1184->c.c_car)); |
V1224= CMPcadr((V1221->c.c_car)); |
6319 |
if(!(type_of((V1186))==t_cons)){ |
if(!(type_of((V1223))==t_cons)){ |
6320 |
goto T2354;} |
goto T2352;} |
6321 |
V1188= CMPcar((V1186)); |
V1225= CMPcar((V1223)); |
6322 |
goto T2352; |
goto T2350; |
|
goto T2354; |
|
|
T2354:; |
|
|
V1188= (V1186); |
|
6323 |
goto T2352; |
goto T2352; |
6324 |
T2352:; |
T2352:; |
6325 |
V1189= (*(LnkLI348))((V1187),(V1174)); |
V1225= (V1223); |
6326 |
(V1183->c.c_car)= make_cons(V1188,/* INLINE-ARGS */V1189);} |
goto T2350; |
6327 |
if((V1184=MMcdr(V1184))==Cnil){ |
T2350:; |
6328 |
V1181= base[3]; |
V1226= (*(LnkLI343))((V1224),(V1211)); |
6329 |
goto T2347;} |
(V1220->c.c_car)= make_cons(V1225,/* INLINE-ARGS */V1226);} |
6330 |
V1183=MMcdr(V1183)=MMcons(Cnil,Cnil); |
if((V1221=MMcdr(V1221))==Cnil){ |
6331 |
goto T2348;} |
V1218= base[3]; |
6332 |
goto T2347; |
goto T2345;} |
6333 |
T2347:; |
V1220=MMcdr(V1220)=MMcons(Cnil,Cnil); |
6334 |
base[3]= (V1181); |
goto T2346;} |
6335 |
|
goto T2345; |
6336 |
|
T2345:; |
6337 |
|
base[3]= (V1218); |
6338 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6339 |
Llast(); |
Llast(); |
6340 |
vs_top=sup; |
vs_top=sup; |
6341 |
V1190= vs_base[0]; |
V1227= vs_base[0]; |
6342 |
V1182= CMPcar(V1190); |
V1219= CMPcar(V1227); |
6343 |
V1191 = (V1180); |
V1228 = (V1217); |
6344 |
base[3]= (V1181); |
base[3]= (V1218); |
6345 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6346 |
Lnbutlast(); |
Lnbutlast(); |
6347 |
vs_top=sup; |
vs_top=sup; |
6348 |
V1192= vs_base[0]; |
V1229= vs_base[0]; |
6349 |
{object V1193 = list(2,listA(3,VV[189],V1191,V1192),CMPcdr((V1182))); |
{object V1230 = list(2,listA(3,VV[189],V1228,V1229),CMPcdr((V1219))); |
6350 |
VMR94(V1193)}} |
VMR94(V1230)}} |
6351 |
goto T2345; |
goto T2343; |
6352 |
T2345:; |
T2343:; |
6353 |
{object V1194 = (*(LnkLI349))((V1173)); |
{object V1231 = (*(LnkLI344))((V1210)); |
6354 |
VMR94(V1194)}} |
VMR94(V1231)}} |
6355 |
base[0]=base[0]; |
base[0]=base[0]; |
6356 |
return Cnil; |
return Cnil; |
6357 |
} |
} |
6358 |
/* local entry for function METHODS-CONVERTER */ |
/* local entry for function METHODS-CONVERTER */ |
6359 |
|
|
6360 |
static object LI108(V1197,V1198) |
static object LI108(V1234,V1235) |
6361 |
|
|
6362 |
register object V1197;object V1198; |
register object V1234;object V1235; |
6363 |
{ VMB95 VMS95 VMV95 |
{ VMB95 VMS95 VMV95 |
6364 |
goto TTL; |
goto TTL; |
6365 |
TTL:; |
TTL:; |
6366 |
if(!(type_of((V1197))==t_cons)){ |
if(!(type_of((V1234))==t_cons)){ |
6367 |
goto T2362;} |
goto T2360;} |
6368 |
if(!((CMPcar((V1197)))==(VV[67]))){ |
if(!((CMPcar((V1234)))==(VV[67]))){ |
6369 |
goto T2362;} |
goto T2360;} |
6370 |
V1199= (VFUN_NARGS=2,(*(LnkLI350))((V1198),CMPcadr((V1197)))); |
V1236= (VFUN_NARGS=2,(*(LnkLI345))((V1235),CMPcadr((V1234)))); |
6371 |
{object V1200 = make_cons(VV[186],/* INLINE-ARGS */V1199); |
{object V1237 = make_cons(VV[186],/* INLINE-ARGS */V1236); |
6372 |
VMR95(V1200)} |
VMR95(V1237)} |
6373 |
goto T2362; |
goto T2360; |
6374 |
T2362:; |
T2360:; |
6375 |
if(!(type_of((V1197))==t_cons)){ |
if(!(type_of((V1234))==t_cons)){ |
6376 |
goto T2367;} |
goto T2365;} |
6377 |
if(!((CMPcar((V1197)))==(VV[157]))){ |
if(!((CMPcar((V1234)))==(VV[157]))){ |
6378 |
goto T2367;} |
goto T2365;} |
6379 |
{object V1201 = (*(LnkLI351))((V1198)); |
{object V1238 = (*(LnkLI346))((V1235)); |
6380 |
VMR95(V1201)} |
VMR95(V1238)} |
6381 |
goto T2367; |
goto T2365; |
6382 |
T2367:; |
T2365:; |
6383 |
{object V1202 = Cnil; |
{object V1239 = Cnil; |
6384 |
VMR95(V1202)} |
VMR95(V1239)} |
6385 |
return Cnil; |
return Cnil; |
6386 |
} |
} |
6387 |
/* function definition for CONVERT-METHODS */ |
/* function definition for CONVERT-METHODS */ |
6390 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6391 |
register object *sup=base+VM96; VC96 |
register object *sup=base+VM96; VC96 |
6392 |
vs_check; |
vs_check; |
6393 |
{register object V1203; |
{register object V1240; |
6394 |
object V1204; |
object V1241; |
6395 |
object V1205; |
object V1242; |
6396 |
check_arg(3); |
check_arg(3); |
6397 |
V1203=(base[0]); |
V1240=(base[0]); |
6398 |
V1204=(base[1]); |
V1241=(base[1]); |
6399 |
V1205=(base[2]); |
V1242=(base[2]); |
6400 |
vs_top=sup; |
vs_top=sup; |
6401 |
goto TTL; |
goto TTL; |
6402 |
TTL:; |
TTL:; |
6403 |
if(!(type_of((V1203))==t_cons)){ |
if(!(type_of((V1240))==t_cons)){ |
6404 |
goto T2372;} |
goto T2370;} |
6405 |
if(!((CMPcar((V1203)))==(VV[186]))){ |
if(!((CMPcar((V1240)))==(VV[186]))){ |
6406 |
goto T2372;} |
goto T2370;} |
6407 |
base[3]= CMPcdr((V1203)); |
base[3]= CMPcdr((V1240)); |
6408 |
base[4]= (V1204); |
base[4]= (V1241); |
6409 |
base[5]= (V1205); |
base[5]= (V1242); |
6410 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
6411 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6412 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6413 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
6414 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
6415 |
return; |
return; |
6416 |
goto T2372; |
goto T2370; |
6417 |
T2372:; |
T2370:; |
6418 |
base[3]= (V1203); |
base[3]= (V1240); |
6419 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6420 |
return; |
return; |
6421 |
} |
} |
6422 |
} |
} |
6423 |
/* local entry for function CONVERT-TABLE */ |
/* local entry for function CONVERT-TABLE */ |
6424 |
|
|
6425 |
static object LI110(V1209,V1210,V1211) |
static object LI110(V1246,V1247,V1248) |
6426 |
|
|
6427 |
object V1209;object V1210;object V1211; |
object V1246;object V1247;object V1248; |
6428 |
{ VMB97 VMS97 VMV97 |
{ VMB97 VMS97 VMV97 |
6429 |
goto TTL; |
goto TTL; |
6430 |
TTL:; |
TTL:; |
6431 |
if(!(type_of((V1209))==t_cons)){ |
if(!(type_of((V1246))==t_cons)){ |
6432 |
goto T2380;} |
goto T2378;} |
6433 |
if(!((CMPcar((V1209)))==(VV[189]))){ |
if(!((CMPcar((V1246)))==(VV[189]))){ |
6434 |
goto T2380;} |
goto T2378;} |
6435 |
{object V1212; |
{object V1249; |
6436 |
object V1213; |
object V1250; |
6437 |
{object V1214; |
{object V1251; |
6438 |
object V1215= CMPcddr((V1209)); |
object V1252= CMPcddr((V1246)); |
6439 |
if(V1215==Cnil){ |
if(V1252==Cnil){ |
6440 |
V1212= Cnil; |
V1249= Cnil; |
6441 |
goto T2384;} |
goto T2382;} |
6442 |
base[0]=V1214=MMcons(Cnil,Cnil); |
base[0]=V1251=MMcons(Cnil,Cnil); |
6443 |
goto T2385; |
goto T2383; |
6444 |
T2385:; |
T2383:; |
6445 |
V1217= CMPcar((V1215->c.c_car)); |
V1254= CMPcar((V1252->c.c_car)); |
6446 |
base[1]= CMPcdr((V1215->c.c_car)); |
base[1]= CMPcdr((V1252->c.c_car)); |
6447 |
base[2]= (V1210); |
base[2]= (V1247); |
6448 |
base[3]= (V1211); |
base[3]= (V1248); |
6449 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6450 |
(void) (*Lnk352)(); |
(void) (*Lnk347)(); |
6451 |
vs_top=sup; |
vs_top=sup; |
6452 |
V1218= vs_base[0]; |
V1255= vs_base[0]; |
6453 |
(V1214->c.c_car)= make_cons(/* INLINE-ARGS */V1217,V1218); |
(V1251->c.c_car)= make_cons(/* INLINE-ARGS */V1254,V1255); |
6454 |
if((V1215=MMcdr(V1215))==Cnil){ |
if((V1252=MMcdr(V1252))==Cnil){ |
6455 |
V1212= base[0]; |
V1249= base[0]; |
6456 |
goto T2384;} |
goto T2382;} |
6457 |
V1214=MMcdr(V1214)=MMcons(Cnil,Cnil); |
V1251=MMcdr(V1251)=MMcons(Cnil,Cnil); |
6458 |
goto T2385;} |
goto T2383;} |
6459 |
goto T2384; |
goto T2382; |
6460 |
T2384:; |
T2382:; |
6461 |
V1213= CMPcadr((V1209)); |
V1250= CMPcadr((V1246)); |
6462 |
{object V1219= CMPcadr((V1213)); |
{object V1256= CMPcadr((V1250)); |
6463 |
if((V1219!= VV[171]))goto T2392; |
if((V1256!= VV[171]))goto T2390; |
6464 |
{object V1220 = CMPcar((V1212)); |
{object V1257 = CMPcar((V1249)); |
6465 |
VMR97(V1220)} |
VMR97(V1257)} |
6466 |
goto T2392; |
goto T2390; |
6467 |
T2392:; |
T2390:; |
6468 |
if((V1219!= VV[174]))goto T2393; |
if((V1256!= VV[174]))goto T2391; |
6469 |
{object V1221 = (V1212); |
{object V1258 = (V1249); |
6470 |
VMR97(V1221)} |
VMR97(V1258)} |
6471 |
goto T2393; |
goto T2391; |
6472 |
T2393:; |
T2391:; |
6473 |
if((V1219!= VV[175]))goto T2394; |
if((V1256!= VV[175]))goto T2392; |
6474 |
{register object V1222; |
{register object V1259; |
6475 |
base[0]= VV[190]; |
base[0]= VV[190]; |
6476 |
if((CMPcar((V1213)))==Cnil){ |
if((CMPcar((V1250)))==Cnil){ |
6477 |
goto T2399;} |
goto T2397;} |
6478 |
base[1]= VV[145]; |
base[1]= VV[145]; |
6479 |
goto T2397; |
goto T2395; |
|
goto T2399; |
|
|
T2399:; |
|
|
base[1]= VV[108]; |
|
6480 |
goto T2397; |
goto T2397; |
6481 |
T2397:; |
T2397:; |
6482 |
|
base[1]= VV[108]; |
6483 |
|
goto T2395; |
6484 |
|
T2395:; |
6485 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6486 |
Lmake_hash_table(); |
Lmake_hash_table(); |
6487 |
vs_top=sup; |
vs_top=sup; |
6488 |
V1222= vs_base[0]; |
V1259= vs_base[0]; |
6489 |
{register object V1223; |
{register object V1260; |
6490 |
register object V1224; |
register object V1261; |
6491 |
V1223= (V1212); |
V1260= (V1249); |
6492 |
V1224= CMPcar((V1223)); |
V1261= CMPcar((V1260)); |
6493 |
goto T2405; |
goto T2403; |
6494 |
T2405:; |
T2403:; |
6495 |
if(!(((V1223))==Cnil)){ |
if(!(((V1260))==Cnil)){ |
6496 |
goto T2406;} |
goto T2404;} |
6497 |
goto T2401; |
goto T2399; |
6498 |
goto T2406; |
goto T2404; |
6499 |
T2406:; |
T2404:; |
6500 |
{register object V1225; |
{register object V1262; |
6501 |
register object V1226; |
register object V1263; |
6502 |
register object V1227; |
register object V1264; |
6503 |
V1225= CMPcar((V1224)); |
V1262= CMPcar((V1261)); |
6504 |
V1226= (V1222); |
V1263= (V1259); |
6505 |
V1227= CMPcdr((V1224)); |
V1264= CMPcdr((V1261)); |
6506 |
base[3]= (V1225); |
base[3]= (V1262); |
6507 |
base[4]= (V1226); |
base[4]= (V1263); |
6508 |
base[5]= (V1227); |
base[5]= (V1264); |
6509 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6510 |
siLhash_set(); |
siLhash_set(); |
6511 |
vs_top=sup;} |
vs_top=sup;} |
6512 |
V1223= CMPcdr((V1223)); |
V1260= CMPcdr((V1260)); |
6513 |
V1224= CMPcar((V1223)); |
V1261= CMPcar((V1260)); |
6514 |
goto T2405;} |
goto T2403;} |
6515 |
goto T2401; |
goto T2399; |
6516 |
T2401:; |
T2399:; |
6517 |
{object V1228 = (V1222); |
{object V1265 = (V1259); |
6518 |
VMR97(V1228)}} |
VMR97(V1265)}} |
6519 |
goto T2394; |
goto T2392; |
6520 |
T2394:; |
T2392:; |
6521 |
FEerror("The ECASE key value ~s is illegal.",1,V1219); |
FEerror("The ECASE key value ~s is illegal.",1,V1256); |
6522 |
{object V1229 = Cnil; |
{object V1266 = Cnil; |
6523 |
VMR97(V1229)}}} |
VMR97(V1266)}}} |
6524 |
goto T2380; |
goto T2378; |
6525 |
T2380:; |
T2378:; |
6526 |
{object V1230 = Cnil; |
{object V1267 = Cnil; |
6527 |
VMR97(V1230)} |
VMR97(V1267)} |
6528 |
base[0]=base[0]; |
base[0]=base[0]; |
6529 |
return Cnil; |
return Cnil; |
6530 |
} |
} |
6531 |
/* local entry for function COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
/* local entry for function COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
6532 |
|
|
6533 |
static object LI111(object V1232,object V1231,object first,...) |
static object LI111(object V1269,object V1268,object first,...) |
6534 |
{ |
{ |
6535 |
va_list ap; |
va_list ap; |
6536 |
int narg = VFUN_NARGS; VMB98 VMS98 VMV98 |
int narg = VFUN_NARGS; VMB98 VMS98 VMV98 |
6537 |
{object V1233; |
{object V1270; |
6538 |
va_start(ap,first); |
va_start(ap,first); |
6539 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
6540 |
Vcs[0]=MMcons(V1232,Cnil); |
Vcs[0]=MMcons(V1269,Cnil); |
6541 |
V1233= V1231; |
V1270= V1268; |
6542 |
narg = narg - 2; |
narg = narg - 2; |
6543 |
if (narg <= 0) goto T2422; |
if (narg <= 0) goto T2420; |
6544 |
else { |
else { |
6545 |
Vcs[2]=MMcons(first,Vcs[0]);} |
Vcs[2]=MMcons(first,Vcs[0]);} |
6546 |
--narg; goto T2423; |
--narg; goto T2421; |
6547 |
goto T2422; |
goto T2420; |
6548 |
T2422:; |
T2420:; |
6549 |
Vcs[2]= Cnil; |
Vcs[2]= Cnil; |
6550 |
Vcs[2]=MMcons(Vcs[2],Vcs[0]); |
Vcs[2]=MMcons(Vcs[2],Vcs[0]); |
6551 |
goto T2423; |
goto T2421; |
6552 |
T2423:; |
T2421:; |
6553 |
if(!((CMPcar((V1233)))==(VV[67]))){ |
if(!((CMPcar((V1270)))==(VV[67]))){ |
6554 |
goto T2426;} |
goto T2424;} |
6555 |
if(((Vcs[2]->c.c_car))!=Cnil){ |
if(((Vcs[2]->c.c_car))!=Cnil){ |
6556 |
goto T2426;} |
goto T2424;} |
6557 |
{object V1234 = (VFUN_NARGS=2,(*(LnkLI350))((Vcs[0]->c.c_car),CMPcadr((V1233)))); |
{object V1271 = (VFUN_NARGS=2,(*(LnkLI345))((Vcs[0]->c.c_car),CMPcadr((V1270)))); |
6558 |
VMR98(V1234)} |
VMR98(V1271)} |
6559 |
goto T2426; |
goto T2424; |
6560 |
T2426:; |
T2424:; |
6561 |
{object V1235; |
{object V1272; |
6562 |
object V1236; |
object V1273; |
6563 |
object V1237; |
object V1274; |
6564 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
6565 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6566 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
6569 |
base[0]=MMcons(base[0],Vcs[2]); |
base[0]=MMcons(base[0],Vcs[2]); |
6570 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
6571 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6572 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
6573 |
vs_top=sup; |
vs_top=sup; |
6574 |
V1235= vs_base[0]; |
V1272= vs_base[0]; |
6575 |
V1236= STREF(object,(V1235),8); |
V1273= STREF(object,(V1272),8); |
6576 |
V1237= (*(LnkLI353))((V1235)); |
V1274= (*(LnkLI348))((V1272)); |
6577 |
V1238 = CMPmake_fixnum((long)length((V1236))); |
V1275 = CMPmake_fixnum((long)length((V1273))); |
6578 |
base[4]= make_cons(V1238,(V1237)); |
base[4]= make_cons(V1275,(V1274)); |
6579 |
base[4]=MMcons(base[4],base[0]); |
base[4]=MMcons(base[4],base[0]); |
6580 |
V1239= list(2,VV[193],(V1233)); |
V1276= list(2,VV[193],(V1270)); |
6581 |
V1240= make_cons(/* INLINE-ARGS */V1239,Cnil); |
V1277= make_cons(/* INLINE-ARGS */V1276,Cnil); |
6582 |
V1241= list(3,VV[191],VV[192],list(3,VV[158],/* INLINE-ARGS */V1240,(VFUN_NARGS=3,(*(LnkLI355))((V1236),(V1237),VV[193])))); |
V1278= list(3,VV[191],VV[192],list(3,VV[158],/* INLINE-ARGS */V1277,(VFUN_NARGS=3,(*(LnkLI350))((V1273),(V1274),VV[193])))); |
6583 |
V1242= make_cons(/* INLINE-ARGS */V1241,Cnil); |
V1279= make_cons(/* INLINE-ARGS */V1278,Cnil); |
6584 |
base[7]= (*(LnkLI354))((Vcs[2]->c.c_car),(V1236),(V1237),/* INLINE-ARGS */V1242); |
base[7]= (*(LnkLI349))((Vcs[2]->c.c_car),(V1273),(V1274),/* INLINE-ARGS */V1279); |
6585 |
base[8]= (VV[356]->s.s_gfdef); |
base[8]= (VV[351]->s.s_gfdef); |
6586 |
base[9]= (VV[357]->s.s_gfdef); |
base[9]= (VV[352]->s.s_gfdef); |
6587 |
base[10]= |
base[10]= |
6588 |
make_cclosure_new(LC132,Cnil,base[4],Cdata); |
make_cclosure_new(LC132,Cnil,base[4],Cdata); |
6589 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
6590 |
(void) (*Lnk358)(); |
(void) (*Lnk353)(); |
6591 |
if(vs_base>=vs_top){vs_top=sup;goto T2442;} |
if(vs_base>=vs_top){vs_top=sup;goto T2440;} |
6592 |
base[5]=MMcons(vs_base[0],base[4]); |
base[5]=MMcons(vs_base[0],base[4]); |
6593 |
vs_base++; |
vs_base++; |
6594 |
if(vs_base>=vs_top){vs_top=sup;goto T2443;} |
if(vs_base>=vs_top){vs_top=sup;goto T2441;} |
6595 |
base[6]=MMcons(vs_base[0],base[5]); |
base[6]=MMcons(vs_base[0],base[5]); |
6596 |
vs_top=sup; |
vs_top=sup; |
|
goto T2444; |
|
6597 |
goto T2442; |
goto T2442; |
6598 |
T2442:; |
goto T2440; |
6599 |
|
T2440:; |
6600 |
base[5]=MMcons(Cnil,base[4]); |
base[5]=MMcons(Cnil,base[4]); |
6601 |
goto T2443; |
goto T2441; |
6602 |
T2443:; |
T2441:; |
6603 |
base[6]=MMcons(Cnil,base[5]); |
base[6]=MMcons(Cnil,base[5]); |
6604 |
goto T2444; |
goto T2442; |
6605 |
T2444:; |
T2442:; |
6606 |
{object V1243 = |
{object V1280 = |
6607 |
make_cclosure_new(LC133,Cnil,base[6],Cdata); |
make_cclosure_new(LC133,Cnil,base[6],Cdata); |
6608 |
VMR98(V1243)}} |
VMR98(V1280)}} |
6609 |
va_end(ap); |
va_end(ap); |
6610 |
base[0]=base[0]; |
base[0]=base[0]; |
6611 |
return Cnil;} |
return Cnil;} |
6612 |
} |
} |
6613 |
/* local entry for function MAKE-UNORDERED-METHODS-EMF */ |
/* local entry for function MAKE-UNORDERED-METHODS-EMF */ |
6614 |
|
|
6615 |
static object LI113(V1246,V1247) |
static object LI113(V1283,V1284) |
6616 |
|
|
6617 |
object V1246;object V1247; |
object V1283;object V1284; |
6618 |
{ VMB99 VMS99 VMV99 |
{ VMB99 VMS99 VMV99 |
6619 |
goto TTL; |
goto TTL; |
6620 |
TTL:; |
TTL:; |
6621 |
base[0]=MMcons((V1247),Cnil); |
base[0]=MMcons((V1284),Cnil); |
6622 |
base[1]=MMcons((V1246),base[0]); |
base[1]=MMcons((V1283),base[0]); |
6623 |
if(((VV[196]->s.s_dbind))==Cnil){ |
if(((VV[196]->s.s_dbind))==Cnil){ |
6624 |
goto T2445;} |
goto T2443;} |
6625 |
base[2]= Ct; |
base[2]= Ct; |
6626 |
base[3]= VV[197]; |
base[3]= VV[197]; |
6627 |
base[5]= (base[1]->c.c_car); |
base[5]= (base[1]->c.c_car); |
6632 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6633 |
Lformat(); |
Lformat(); |
6634 |
vs_top=sup; |
vs_top=sup; |
6635 |
goto T2445; |
goto T2443; |
6636 |
T2445:; |
T2443:; |
6637 |
{object V1248 = |
{object V1285 = |
6638 |
make_cclosure_new(LC134,Cnil,base[1],Cdata); |
make_cclosure_new(LC134,Cnil,base[1],Cdata); |
6639 |
VMR99(V1248)} |
VMR99(V1285)} |
6640 |
base[0]=base[0]; |
base[0]=base[0]; |
6641 |
return Cnil; |
return Cnil; |
6642 |
} |
} |
6646 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6647 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM100; VC100 |
6648 |
vs_check; |
vs_check; |
6649 |
{object V1249; |
{object V1286; |
6650 |
object V1250; |
object V1287; |
6651 |
object V1251; |
object V1288; |
6652 |
check_arg(3); |
check_arg(3); |
6653 |
V1249=(base[0]); |
V1286=(base[0]); |
6654 |
V1250=(base[1]); |
V1287=(base[1]); |
6655 |
V1251=(base[2]); |
V1288=(base[2]); |
6656 |
vs_top=sup; |
vs_top=sup; |
6657 |
goto TTL; |
goto TTL; |
6658 |
TTL:; |
TTL:; |
6659 |
base[4]= (V1251); |
base[4]= (V1288); |
6660 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6661 |
(void) (*Lnk359)(Lclptr359); |
(void) (*Lnk354)(Lclptr354); |
6662 |
vs_top=sup; |
vs_top=sup; |
6663 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
6664 |
base[4]= (V1250); |
base[4]= (V1287); |
6665 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6666 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6667 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6676 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6677 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM101; VC101 |
6678 |
vs_check; |
vs_check; |
6679 |
{object V1252; |
{object V1289; |
6680 |
object V1253; |
object V1290; |
6681 |
object V1254; |
object V1291; |
6682 |
object V1255; |
object V1292; |
6683 |
check_arg(4); |
check_arg(4); |
6684 |
V1252=(base[0]); |
V1289=(base[0]); |
6685 |
V1253=(base[1]); |
V1290=(base[1]); |
6686 |
V1254=(base[2]); |
V1291=(base[2]); |
6687 |
V1255=(base[3]); |
V1292=(base[3]); |
6688 |
vs_top=sup; |
vs_top=sup; |
6689 |
goto TTL; |
goto TTL; |
6690 |
TTL:; |
TTL:; |
6691 |
base[5]= (V1255); |
base[5]= (V1292); |
6692 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6693 |
(void) (*Lnk360)(Lclptr360); |
(void) (*Lnk355)(Lclptr355); |
6694 |
vs_top=sup; |
vs_top=sup; |
6695 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
6696 |
base[5]= (V1252); |
base[5]= (V1289); |
6697 |
base[6]= (V1254); |
base[6]= (V1291); |
6698 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
6699 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6700 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6709 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6710 |
register object *sup=base+VM102; VC102 |
register object *sup=base+VM102; VC102 |
6711 |
vs_check; |
vs_check; |
6712 |
{object V1256; |
{object V1293; |
6713 |
object V1257; |
object V1294; |
6714 |
object V1258; |
object V1295; |
6715 |
check_arg(3); |
check_arg(3); |
6716 |
V1256=(base[0]); |
V1293=(base[0]); |
6717 |
V1257=(base[1]); |
V1294=(base[1]); |
6718 |
V1258=(base[2]); |
V1295=(base[2]); |
6719 |
vs_top=sup; |
vs_top=sup; |
6720 |
goto TTL; |
goto TTL; |
6721 |
TTL:; |
TTL:; |
6722 |
base[4]= (V1258); |
base[4]= (V1295); |
6723 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6724 |
(void) (*Lnk361)(Lclptr361); |
(void) (*Lnk356)(Lclptr356); |
6725 |
vs_top=sup; |
vs_top=sup; |
6726 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
6727 |
base[4]= (V1257); |
base[4]= (V1294); |
6728 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6729 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6730 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6739 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6740 |
register object *sup=base+VM103; VC103 |
register object *sup=base+VM103; VC103 |
6741 |
vs_check; |
vs_check; |
6742 |
{object V1259; |
{object V1296; |
6743 |
object V1260; |
object V1297; |
6744 |
register object V1261; |
register object V1298; |
6745 |
check_arg(3); |
check_arg(3); |
6746 |
V1259=(base[0]); |
V1296=(base[0]); |
6747 |
V1260=(base[1]); |
V1297=(base[1]); |
6748 |
V1261=(base[2]); |
V1298=(base[2]); |
6749 |
vs_top=sup; |
vs_top=sup; |
6750 |
goto TTL; |
goto TTL; |
6751 |
TTL:; |
TTL:; |
6752 |
{register object V1263; |
{register object V1300; |
6753 |
object V1264; |
object V1301; |
6754 |
V1263= CMPcar((V1259)); |
V1300= CMPcar((V1296)); |
6755 |
V1264= CMPcdr((V1259)); |
V1301= CMPcdr((V1296)); |
6756 |
{object V1265; |
{object V1302; |
6757 |
if(type_of(V1261)==t_structure){ |
if(type_of(V1298)==t_structure){ |
|
goto T2472;} |
|
|
goto T2470; |
|
|
goto T2472; |
|
|
T2472:; |
|
|
if(!(((V1261)->str.str_def)==(VV[198]))){ |
|
6758 |
goto T2470;} |
goto T2470;} |
|
V1265= STREF(object,(V1261),4); |
|
6759 |
goto T2468; |
goto T2468; |
6760 |
goto T2470; |
goto T2470; |
6761 |
T2470:;{object V1267; |
T2470:; |
6762 |
V1267= (VV[13]->s.s_dbind); |
if(!(((V1298)->str.str_def)==(VV[198]))){ |
6763 |
|
goto T2468;} |
6764 |
|
V1302= STREF(object,(V1298),4); |
6765 |
|
goto T2466; |
6766 |
|
goto T2468; |
6767 |
|
T2468:;{object V1304; |
6768 |
|
V1304= (VV[13]->s.s_dbind); |
6769 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
6770 |
base[4]= (V1261); |
base[4]= (V1298); |
6771 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6772 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
6773 |
vs_top=sup; |
vs_top=sup; |
6774 |
V1268= vs_base[0]; |
V1305= vs_base[0]; |
6775 |
if(!((V1267)==(CMPcar(V1268)))){ |
if(!((V1304)==(CMPcar(V1305)))){ |
6776 |
goto T2475;}} |
goto T2473;}} |
6777 |
V1265= CMPcar(((V1261))->cc.cc_turbo[12]); |
V1302= CMPcar(((V1298))->cc.cc_turbo[12]); |
6778 |
goto T2468; |
goto T2466; |
6779 |
goto T2475; |
goto T2473; |
6780 |
T2475:; |
T2473:; |
6781 |
V1265= Cnil; |
V1302= Cnil; |
6782 |
goto T2468; |
goto T2466; |
6783 |
T2468:; |
T2466:; |
6784 |
{register object V1270; |
{register object V1307; |
6785 |
{register object V1271; |
{register object V1308; |
6786 |
V1271= ((V1263))->v.v_self[2]; |
V1308= ((V1300))->v.v_self[2]; |
6787 |
if(!(type_of(V1271)==t_fixnum)){ |
if(!(type_of(V1308)==t_fixnum)){ |
6788 |
goto T2487;} |
goto T2485;} |
6789 |
V1271= ((V1265))->v.v_self[fix((V1271))]; |
V1308= ((V1302))->v.v_self[fix((V1308))]; |
6790 |
goto T2485; |
goto T2483; |
|
goto T2487; |
|
|
T2487:; |
|
|
V1271= VV[14]; |
|
6791 |
goto T2485; |
goto T2485; |
6792 |
T2485:; |
T2485:; |
6793 |
if(!(((V1271))==(VV[14]))){ |
V1308= VV[14]; |
6794 |
goto T2490;} |
goto T2483; |
6795 |
base[3]= (V1261); |
T2483:; |
6796 |
|
if(!(((V1308))==(VV[14]))){ |
6797 |
|
goto T2488;} |
6798 |
|
base[3]= (V1298); |
6799 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6800 |
(void) (*Lnk362)(Lclptr362); |
(void) (*Lnk357)(Lclptr357); |
6801 |
vs_top=sup; |
vs_top=sup; |
6802 |
V1270= vs_base[0]; |
V1307= vs_base[0]; |
6803 |
goto T2482; |
goto T2480; |
6804 |
goto T2490; |
goto T2488; |
6805 |
T2490:; |
T2488:; |
6806 |
V1270= (V1271);} |
V1307= (V1308);} |
6807 |
goto T2482; |
goto T2480; |
6808 |
T2482:; |
T2480:; |
6809 |
if(!(((V1270))==Cnil)){ |
if(!(((V1307))==Cnil)){ |
6810 |
goto T2494;} |
goto T2492;} |
6811 |
{object V1273; |
{object V1310; |
6812 |
base[3]= (V1261); |
base[3]= (V1298); |
6813 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6814 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
6815 |
vs_top=sup; |
vs_top=sup; |
6816 |
V1273= vs_base[0]; |
V1310= vs_base[0]; |
6817 |
if(!(((V1273))==(VV[115]))){ |
if(!(((V1310))==(VV[115]))){ |
6818 |
goto T2498;} |
goto T2496;} |
6819 |
(void)((*(LnkLI363))((V1261))); |
(void)((*(LnkLI358))((V1298))); |
6820 |
goto T2498; |
goto T2496; |
6821 |
T2498:; |
T2496:; |
6822 |
if(!(((V1273))==(VV[199]))){ |
if(!(((V1310))==(VV[199]))){ |
6823 |
goto T2502;} |
goto T2500;} |
6824 |
base[3]= (V1261); |
base[3]= (V1298); |
6825 |
base[4]= VV[119]; |
base[4]= VV[119]; |
6826 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6827 |
(void) (*Lnk364)(); |
(void) (*Lnk359)(); |
6828 |
vs_top=sup; |
vs_top=sup; |
6829 |
base[3]= (VV[365]->s.s_gfdef); |
base[3]= (VV[360]->s.s_gfdef); |
6830 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6831 |
return; |
return; |
6832 |
goto T2502; |
goto T2500; |
6833 |
T2502:; |
T2500:; |
6834 |
if(!(equal((V1273),VV[200]))){ |
if(!(equal((V1310),VV[200]))){ |
6835 |
goto T2508;} |
goto T2506;} |
6836 |
base[3]= (V1261); |
base[3]= (V1298); |
6837 |
base[4]= VV[121]; |
base[4]= VV[121]; |
6838 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6839 |
(void) (*Lnk364)(); |
(void) (*Lnk359)(); |
6840 |
vs_top=sup; |
vs_top=sup; |
6841 |
base[3]= (VV[366]->s.s_gfdef); |
base[3]= (VV[361]->s.s_gfdef); |
6842 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6843 |
return; |
return; |
6844 |
goto T2508; |
goto T2506; |
6845 |
T2508:; |
T2506:; |
6846 |
if(!(((V1273))==(VV[201]))){ |
if(!(((V1310))==(VV[201]))){ |
6847 |
goto T2514;} |
goto T2512;} |
6848 |
base[3]= (V1261); |
base[3]= (V1298); |
6849 |
base[4]= VV[123]; |
base[4]= VV[123]; |
6850 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6851 |
(void) (*Lnk364)(); |
(void) (*Lnk359)(); |
6852 |
vs_top=sup; |
vs_top=sup; |
6853 |
base[3]= (VV[367]->s.s_gfdef); |
base[3]= (VV[362]->s.s_gfdef); |
6854 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6855 |
return; |
return; |
6856 |
goto T2514; |
goto T2512; |
6857 |
T2514:; |
T2512:; |
6858 |
{register object V1275; |
{register object V1312; |
6859 |
V1275= ((V1263))->v.v_self[1]; |
V1312= ((V1300))->v.v_self[1]; |
6860 |
if(!(type_of(V1275)==t_fixnum)){ |
if(!(type_of(V1312)==t_fixnum)){ |
6861 |
goto T2527;} |
goto T2525;} |
6862 |
V1275= ((V1265))->v.v_self[fix((V1275))]; |
V1312= ((V1302))->v.v_self[fix((V1312))]; |
6863 |
goto T2525; |
goto T2523; |
|
goto T2527; |
|
|
T2527:; |
|
|
V1275= VV[14]; |
|
6864 |
goto T2525; |
goto T2525; |
6865 |
T2525:; |
T2525:; |
6866 |
if(!(((V1275))==(VV[14]))){ |
V1312= VV[14]; |
6867 |
goto T2530;} |
goto T2523; |
6868 |
base[3]= (V1261); |
T2523:; |
6869 |
|
if(!(((V1312))==(VV[14]))){ |
6870 |
|
goto T2528;} |
6871 |
|
base[3]= (V1298); |
6872 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6873 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk284)(Lclptr284); |
6874 |
vs_top=sup; |
vs_top=sup; |
6875 |
V1274= vs_base[0]; |
V1311= vs_base[0]; |
6876 |
goto T2522; |
goto T2520; |
6877 |
goto T2530; |
goto T2528; |
6878 |
T2530:; |
T2528:; |
6879 |
V1274= (V1275);} |
V1311= (V1312);} |
|
goto T2522; |
|
|
T2522:; |
|
|
if((STREF(object,V1274,28))==Cnil){ |
|
|
goto T2520;} |
|
|
base[3]= (VFUN_NARGS=1,(*(LnkLI368))((V1261))); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
6880 |
goto T2520; |
goto T2520; |
6881 |
T2520:; |
T2520:; |
6882 |
base[3]= (*(LnkLI369))((V1261)); |
if((STREF(object,V1311,28))==Cnil){ |
6883 |
|
goto T2518;} |
6884 |
|
base[3]= (VFUN_NARGS=1,(*(LnkLI363))((V1298))); |
6885 |
|
vs_top=(vs_base=base+3)+1; |
6886 |
|
return; |
6887 |
|
goto T2518; |
6888 |
|
T2518:; |
6889 |
|
base[3]= (*(LnkLI364))((V1298)); |
6890 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6891 |
return;} |
return;} |
6892 |
goto T2494; |
goto T2492; |
6893 |
T2494:; |
T2492:; |
6894 |
base[3]= (V1270); |
base[3]= (V1307); |
6895 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6896 |
Lfunctionp(); |
Lfunctionp(); |
6897 |
vs_top=sup; |
vs_top=sup; |
6898 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6899 |
goto T2534;} |
goto T2532;} |
6900 |
{register object V1277; |
{register object V1314; |
6901 |
V1277= ((V1263))->v.v_self[2]; |
V1314= ((V1300))->v.v_self[2]; |
6902 |
if(!(type_of(V1277)==t_fixnum)){ |
if(!(type_of(V1314)==t_fixnum)){ |
6903 |
goto T2541;} |
goto T2539;} |
6904 |
V1277= ((V1265))->v.v_self[fix((V1277))]; |
V1314= ((V1302))->v.v_self[fix((V1314))]; |
6905 |
goto T2539; |
goto T2537; |
|
goto T2541; |
|
|
T2541:; |
|
|
V1277= VV[14]; |
|
6906 |
goto T2539; |
goto T2539; |
6907 |
T2539:; |
T2539:; |
6908 |
if(!(((V1277))==(VV[14]))){ |
V1314= VV[14]; |
6909 |
goto T2544;} |
goto T2537; |
6910 |
base[3]= (V1261); |
T2537:; |
6911 |
|
if(!(((V1314))==(VV[14]))){ |
6912 |
|
goto T2542;} |
6913 |
|
base[3]= (V1298); |
6914 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6915 |
(void) (*Lnk362)(Lclptr362); |
(void) (*Lnk357)(Lclptr357); |
6916 |
return; |
return; |
6917 |
goto T2544; |
goto T2542; |
6918 |
T2544:; |
T2542:; |
6919 |
base[3]= (V1277); |
base[3]= (V1314); |
6920 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6921 |
return;} |
return;} |
6922 |
goto T2534; |
goto T2532; |
6923 |
T2534:; |
T2532:; |
6924 |
if(!(type_of((V1270))==t_cons)){ |
if(!(type_of((V1307))==t_cons)){ |
6925 |
goto T2548;} |
goto T2546;} |
6926 |
{register object V1280; |
{register object V1317; |
6927 |
V1280= ((V1263))->v.v_self[2]; |
V1317= ((V1300))->v.v_self[2]; |
6928 |
if(!(type_of(V1280)==t_fixnum)){ |
if(!(type_of(V1317)==t_fixnum)){ |
6929 |
goto T2555;} |
goto T2553;} |
6930 |
V1280= ((V1265))->v.v_self[fix((V1280))]; |
V1317= ((V1302))->v.v_self[fix((V1317))]; |
6931 |
goto T2553; |
goto T2551; |
|
goto T2555; |
|
|
T2555:; |
|
|
V1280= VV[14]; |
|
6932 |
goto T2553; |
goto T2553; |
6933 |
T2553:; |
T2553:; |
6934 |
if(!(((V1280))==(VV[14]))){ |
V1317= VV[14]; |
6935 |
goto T2558;} |
goto T2551; |
6936 |
base[3]= (V1261); |
T2551:; |
6937 |
|
if(!(((V1317))==(VV[14]))){ |
6938 |
|
goto T2556;} |
6939 |
|
base[3]= (V1298); |
6940 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6941 |
(void) (*Lnk362)(Lclptr362); |
(void) (*Lnk357)(Lclptr357); |
6942 |
vs_top=sup; |
vs_top=sup; |
6943 |
V1279= vs_base[0]; |
V1316= vs_base[0]; |
6944 |
goto T2550; |
goto T2548; |
6945 |
goto T2558; |
goto T2556; |
6946 |
T2558:; |
T2556:; |
6947 |
V1279= (V1280);} |
V1316= (V1317);} |
|
goto T2550; |
|
|
T2550:; |
|
|
base[3]= CMPcar(V1279); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
6948 |
goto T2548; |
goto T2548; |
6949 |
T2548:; |
T2548:; |
6950 |
|
base[3]= CMPcar(V1316); |
6951 |
|
vs_top=(vs_base=base+3)+1; |
6952 |
|
return; |
6953 |
|
goto T2546; |
6954 |
|
T2546:; |
6955 |
base[3]= Cnil; |
base[3]= Cnil; |
6956 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6957 |
return;}}} |
return;}}} |
6959 |
} |
} |
6960 |
/* local entry for function (FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T)) */ |
/* local entry for function (FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T)) */ |
6961 |
|
|
6962 |
static object LI118(V1286,V1287,V1288,V1289) |
static object LI118(V1323,V1324,V1325,V1326) |
6963 |
|
|
6964 |
object V1286;object V1287;object V1288;register object V1289; |
object V1323;object V1324;object V1325;register object V1326; |
6965 |
{ VMB104 VMS104 VMV104 |
{ VMB104 VMS104 VMV104 |
6966 |
bds_check; |
bds_check; |
6967 |
goto TTL; |
goto TTL; |
6968 |
TTL:; |
TTL:; |
6969 |
{object V1291; |
{object V1328; |
6970 |
base[1]= (V1289); |
base[1]= (V1326); |
6971 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6972 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk310)(Lclptr310); |
6973 |
vs_top=sup; |
vs_top=sup; |
6974 |
V1291= vs_base[0]; |
V1328= vs_base[0]; |
6975 |
bds_bind(VV[126],(V1288)); |
bds_bind(VV[126],(V1325)); |
6976 |
if((STREF(object,(V1291),28))==Cnil){ |
if((STREF(object,(V1328),28))==Cnil){ |
6977 |
goto T2567;} |
goto T2565;} |
6978 |
{object V1292; |
{object V1329; |
6979 |
object V1293; |
object V1330; |
6980 |
object V1294; |
object V1331; |
6981 |
base[1]= (V1289); |
base[1]= (V1326); |
6982 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6983 |
(void) (*Lnk370)(); |
(void) (*Lnk365)(); |
6984 |
if(vs_base>=vs_top){vs_top=sup;goto T2571;} |
if(vs_base>=vs_top){vs_top=sup;goto T2569;} |
6985 |
V1292= vs_base[0]; |
V1329= vs_base[0]; |
6986 |
vs_base++; |
vs_base++; |
6987 |
if(vs_base>=vs_top){vs_top=sup;goto T2572;} |
if(vs_base>=vs_top){vs_top=sup;goto T2570;} |
6988 |
V1293= vs_base[0]; |
V1330= vs_base[0]; |
6989 |
vs_base++; |
vs_base++; |
6990 |
if(vs_base>=vs_top){vs_top=sup;goto T2573;} |
if(vs_base>=vs_top){vs_top=sup;goto T2571;} |
6991 |
V1294= vs_base[0]; |
V1331= vs_base[0]; |
6992 |
vs_top=sup; |
vs_top=sup; |
6993 |
goto T2574; |
goto T2572; |
6994 |
|
goto T2569; |
6995 |
|
T2569:; |
6996 |
|
V1329= Cnil; |
6997 |
|
goto T2570; |
6998 |
|
T2570:; |
6999 |
|
V1330= Cnil; |
7000 |
goto T2571; |
goto T2571; |
7001 |
T2571:; |
T2571:; |
7002 |
V1292= Cnil; |
V1331= Cnil; |
7003 |
goto T2572; |
goto T2572; |
7004 |
T2572:; |
T2572:; |
7005 |
V1293= Cnil; |
(void)((VFUN_NARGS=4,(*(LnkLI366))((V1326),(V1329),(V1330),(V1331)))); |
7006 |
goto T2573; |
{object V1332 = (VFUN_NARGS=4,(*(LnkLI287))((V1326),(V1329),(V1330),(V1331))); |
|
T2573:; |
|
|
V1294= Cnil; |
|
|
goto T2574; |
|
|
T2574:; |
|
|
(void)((VFUN_NARGS=4,(*(LnkLI371))((V1289),(V1292),(V1293),(V1294)))); |
|
|
{object V1295 = (VFUN_NARGS=4,(*(LnkLI288))((V1289),(V1292),(V1293),(V1294))); |
|
7007 |
bds_unwind1; |
bds_unwind1; |
7008 |
VMR104(V1295)}} |
VMR104(V1332)}} |
7009 |
goto T2567; |
goto T2565; |
7010 |
T2567:; |
T2565:; |
7011 |
{object V1296 = Cnil; |
{object V1333 = Cnil; |
7012 |
bds_unwind1; |
bds_unwind1; |
7013 |
VMR104(V1296)}} |
VMR104(V1333)}} |
7014 |
base[0]=base[0]; |
base[0]=base[0]; |
7015 |
return Cnil; |
return Cnil; |
7016 |
} |
} |
7020 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7021 |
register object *sup=base+VM105; VC105 |
register object *sup=base+VM105; VC105 |
7022 |
vs_check; |
vs_check; |
7023 |
{object V1297; |
{object V1334; |
7024 |
object V1298; |
object V1335; |
7025 |
register object V1299; |
register object V1336; |
7026 |
check_arg(3); |
check_arg(3); |
7027 |
V1297=(base[0]); |
V1334=(base[0]); |
7028 |
V1298=(base[1]); |
V1335=(base[1]); |
7029 |
V1299=(base[2]); |
V1336=(base[2]); |
7030 |
vs_top=sup; |
vs_top=sup; |
7031 |
goto TTL; |
goto TTL; |
7032 |
TTL:; |
TTL:; |
7033 |
{object V1301; |
{object V1338; |
7034 |
object V1302; |
object V1339; |
7035 |
object V1303; |
object V1340; |
7036 |
object V1304; |
object V1341; |
7037 |
object V1305; |
object V1342; |
7038 |
object V1306; |
object V1343; |
7039 |
if(!(type_of((V1299))==t_cons)){ |
if(!(type_of((V1336))==t_cons)){ |
7040 |
goto T2582;} |
goto T2580;} |
7041 |
base[3]= (*(LnkLI372))((V1299)); |
base[3]= (*(LnkLI367))((V1336)); |
7042 |
|
goto T2578; |
7043 |
goto T2580; |
goto T2580; |
7044 |
goto T2582; |
T2580:; |
7045 |
T2582:; |
base[4]= (V1336); |
|
base[4]= (V1299); |
|
7046 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7047 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk282)(Lclptr282); |
7048 |
vs_top=sup; |
vs_top=sup; |
7049 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
7050 |
goto T2580; |
goto T2578; |
7051 |
T2580:; |
T2578:; |
7052 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7053 |
(void) (*Lnk373)(); |
(void) (*Lnk368)(); |
7054 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2583;} |
7055 |
|
V1338= vs_base[0]; |
7056 |
|
vs_base++; |
7057 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2584;} |
7058 |
|
V1339= vs_base[0]; |
7059 |
|
vs_base++; |
7060 |
if(vs_base>=vs_top){vs_top=sup;goto T2585;} |
if(vs_base>=vs_top){vs_top=sup;goto T2585;} |
7061 |
V1301= vs_base[0]; |
V1340= vs_base[0]; |
7062 |
vs_base++; |
vs_base++; |
7063 |
if(vs_base>=vs_top){vs_top=sup;goto T2586;} |
if(vs_base>=vs_top){vs_top=sup;goto T2586;} |
7064 |
V1302= vs_base[0]; |
V1341= vs_base[0]; |
7065 |
vs_base++; |
vs_base++; |
7066 |
if(vs_base>=vs_top){vs_top=sup;goto T2587;} |
if(vs_base>=vs_top){vs_top=sup;goto T2587;} |
7067 |
V1303= vs_base[0]; |
V1342= vs_base[0]; |
7068 |
vs_base++; |
vs_base++; |
7069 |
if(vs_base>=vs_top){vs_top=sup;goto T2588;} |
if(vs_base>=vs_top){vs_top=sup;goto T2588;} |
7070 |
V1304= vs_base[0]; |
V1343= vs_base[0]; |
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T2589;} |
|
|
V1305= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T2590;} |
|
|
V1306= vs_base[0]; |
|
7071 |
vs_top=sup; |
vs_top=sup; |
7072 |
goto T2591; |
goto T2589; |
7073 |
|
goto T2583; |
7074 |
|
T2583:; |
7075 |
|
V1338= Cnil; |
7076 |
|
goto T2584; |
7077 |
|
T2584:; |
7078 |
|
V1339= Cnil; |
7079 |
goto T2585; |
goto T2585; |
7080 |
T2585:; |
T2585:; |
7081 |
V1301= Cnil; |
V1340= Cnil; |
7082 |
goto T2586; |
goto T2586; |
7083 |
T2586:; |
T2586:; |
7084 |
V1302= Cnil; |
V1341= Cnil; |
7085 |
goto T2587; |
goto T2587; |
7086 |
T2587:; |
T2587:; |
7087 |
V1303= Cnil; |
V1342= Cnil; |
7088 |
goto T2588; |
goto T2588; |
7089 |
T2588:; |
T2588:; |
7090 |
V1304= Cnil; |
V1343= Cnil; |
7091 |
goto T2589; |
goto T2589; |
7092 |
T2589:; |
T2589:; |
7093 |
V1305= Cnil; |
base[3]= (V1343); |
7094 |
goto T2590; |
base[4]= (V1342); |
|
T2590:; |
|
|
V1306= Cnil; |
|
|
goto T2591; |
|
|
T2591:; |
|
|
base[3]= (V1306); |
|
|
base[4]= (V1305); |
|
7095 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7096 |
return;} |
return;} |
7097 |
} |
} |
7098 |
} |
} |
7099 |
/* local entry for function METHOD-LL->GENERIC-FUNCTION-LL */ |
/* local entry for function METHOD-LL->GENERIC-FUNCTION-LL */ |
7100 |
|
|
7101 |
static object LI120(V1308) |
static object LI120(V1345) |
7102 |
|
|
7103 |
object V1308; |
object V1345; |
7104 |
{ VMB106 VMS106 VMV106 |
{ VMB106 VMS106 VMV106 |
7105 |
goto TTL; |
goto TTL; |
7106 |
TTL:; |
TTL:; |
7107 |
{object V1309; |
{object V1346; |
7108 |
object V1310; |
object V1347; |
7109 |
object V1311; |
object V1348; |
7110 |
object V1312; |
object V1349; |
7111 |
object V1313; |
object V1350; |
7112 |
object V1314; |
object V1351; |
7113 |
base[1]= (V1308); |
base[1]= (V1345); |
7114 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7115 |
(void) (*Lnk373)(); |
(void) (*Lnk368)(); |
7116 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2594;} |
7117 |
|
V1346= vs_base[0]; |
7118 |
|
vs_base++; |
7119 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2595;} |
7120 |
|
V1347= vs_base[0]; |
7121 |
|
vs_base++; |
7122 |
if(vs_base>=vs_top){vs_top=sup;goto T2596;} |
if(vs_base>=vs_top){vs_top=sup;goto T2596;} |
7123 |
V1309= vs_base[0]; |
V1348= vs_base[0]; |
7124 |
vs_base++; |
vs_base++; |
7125 |
if(vs_base>=vs_top){vs_top=sup;goto T2597;} |
if(vs_base>=vs_top){vs_top=sup;goto T2597;} |
7126 |
V1310= vs_base[0]; |
V1349= vs_base[0]; |
7127 |
vs_base++; |
vs_base++; |
7128 |
if(vs_base>=vs_top){vs_top=sup;goto T2598;} |
if(vs_base>=vs_top){vs_top=sup;goto T2598;} |
7129 |
V1311= vs_base[0]; |
V1350= vs_base[0]; |
7130 |
vs_base++; |
vs_base++; |
7131 |
if(vs_base>=vs_top){vs_top=sup;goto T2599;} |
if(vs_base>=vs_top){vs_top=sup;goto T2599;} |
7132 |
V1312= vs_base[0]; |
V1351= vs_base[0]; |
7133 |
vs_base++; |
vs_base++; |
7134 |
if(vs_base>=vs_top){vs_top=sup;goto T2600;} |
if(vs_base>=vs_top){vs_top=sup;goto T2600;} |
|
V1313= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T2601;} |
|
|
V1314= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T2602;} |
|
7135 |
base[0]=MMcons(vs_base[0],Cnil); |
base[0]=MMcons(vs_base[0],Cnil); |
7136 |
vs_top=sup; |
vs_top=sup; |
7137 |
goto T2603; |
goto T2601; |
7138 |
|
goto T2594; |
7139 |
|
T2594:; |
7140 |
|
V1346= Cnil; |
7141 |
|
goto T2595; |
7142 |
|
T2595:; |
7143 |
|
V1347= Cnil; |
7144 |
goto T2596; |
goto T2596; |
7145 |
T2596:; |
T2596:; |
7146 |
V1309= Cnil; |
V1348= Cnil; |
7147 |
goto T2597; |
goto T2597; |
7148 |
T2597:; |
T2597:; |
7149 |
V1310= Cnil; |
V1349= Cnil; |
7150 |
goto T2598; |
goto T2598; |
7151 |
T2598:; |
T2598:; |
7152 |
V1311= Cnil; |
V1350= Cnil; |
7153 |
goto T2599; |
goto T2599; |
7154 |
T2599:; |
T2599:; |
7155 |
V1312= Cnil; |
V1351= Cnil; |
7156 |
goto T2600; |
goto T2600; |
7157 |
T2600:; |
T2600:; |
7158 |
V1313= Cnil; |
base[0]=MMcons(Cnil,Cnil); |
7159 |
goto T2601; |
goto T2601; |
7160 |
T2601:; |
T2601:; |
|
V1314= Cnil; |
|
|
goto T2602; |
|
|
T2602:; |
|
|
base[0]=MMcons(Cnil,Cnil); |
|
|
goto T2603; |
|
|
T2603:; |
|
7161 |
base[1]= |
base[1]= |
7162 |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
7163 |
base[2]= (V1308); |
base[2]= (V1345); |
7164 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7165 |
(void) (*Lnk374)(); |
(void) (*Lnk369)(); |
7166 |
vs_top=sup; |
vs_top=sup; |
7167 |
{object V1315 = vs_base[0]; |
{object V1352 = vs_base[0]; |
7168 |
VMR106(V1315)}} |
VMR106(V1352)}} |
7169 |
base[0]=base[0]; |
base[0]=base[0]; |
7170 |
return Cnil; |
return Cnil; |
7171 |
} |
} |
7172 |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION)) */ |
7173 |
|
|
7174 |
static object LI121(V1319,V1320,V1321) |
static object LI121(V1356,V1357,V1358) |
7175 |
|
|
7176 |
object V1319;object V1320;object V1321; |
object V1356;object V1357;object V1358; |
7177 |
{ VMB107 VMS107 VMV107 |
{ VMB107 VMS107 VMV107 |
7178 |
goto TTL; |
goto TTL; |
7179 |
TTL:; |
TTL:; |
7180 |
{object V1323; |
{object V1360; |
7181 |
object V1324; |
object V1361; |
7182 |
base[0]= (V1321); |
base[0]= (V1358); |
7183 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7184 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk257)(Lclptr257); |
7185 |
vs_top=sup; |
vs_top=sup; |
7186 |
V1323= vs_base[0]; |
V1360= vs_base[0]; |
7187 |
V1324= Cnil; |
V1361= Cnil; |
7188 |
if(((V1323))==Cnil){ |
if(((V1360))==Cnil){ |
7189 |
goto T2612;} |
goto T2610;} |
7190 |
{object V1325; |
{object V1362; |
7191 |
object V1326; |
object V1363; |
7192 |
object V1327; |
object V1364; |
7193 |
register object V1328; |
register object V1365; |
7194 |
register object V1329; |
register object V1366; |
7195 |
base[0]= CMPcar((V1323)); |
base[0]= CMPcar((V1360)); |
7196 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7197 |
(void) (*Lnk375)(Lclptr375); |
(void) (*Lnk370)(Lclptr370); |
7198 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2614;} |
7199 |
|
V1362= vs_base[0]; |
7200 |
|
vs_base++; |
7201 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2615;} |
7202 |
|
V1363= vs_base[0]; |
7203 |
|
vs_base++; |
7204 |
if(vs_base>=vs_top){vs_top=sup;goto T2616;} |
if(vs_base>=vs_top){vs_top=sup;goto T2616;} |
7205 |
V1325= vs_base[0]; |
V1364= vs_base[0]; |
7206 |
vs_base++; |
vs_base++; |
7207 |
if(vs_base>=vs_top){vs_top=sup;goto T2617;} |
if(vs_base>=vs_top){vs_top=sup;goto T2617;} |
7208 |
V1326= vs_base[0]; |
V1365= vs_base[0]; |
7209 |
vs_base++; |
vs_base++; |
7210 |
if(vs_base>=vs_top){vs_top=sup;goto T2618;} |
if(vs_base>=vs_top){vs_top=sup;goto T2618;} |
7211 |
V1327= vs_base[0]; |
V1366= vs_base[0]; |
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T2619;} |
|
|
V1328= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T2620;} |
|
|
V1329= vs_base[0]; |
|
7212 |
vs_top=sup; |
vs_top=sup; |
7213 |
goto T2621; |
goto T2619; |
7214 |
|
goto T2614; |
7215 |
|
T2614:; |
7216 |
|
V1362= Cnil; |
7217 |
|
goto T2615; |
7218 |
|
T2615:; |
7219 |
|
V1363= Cnil; |
7220 |
goto T2616; |
goto T2616; |
7221 |
T2616:; |
T2616:; |
7222 |
V1325= Cnil; |
V1364= Cnil; |
7223 |
goto T2617; |
goto T2617; |
7224 |
T2617:; |
T2617:; |
7225 |
V1326= Cnil; |
V1365= Cnil; |
7226 |
goto T2618; |
goto T2618; |
7227 |
T2618:; |
T2618:; |
7228 |
V1327= Cnil; |
V1366= Cnil; |
7229 |
goto T2619; |
goto T2619; |
7230 |
T2619:; |
T2619:; |
7231 |
V1328= Cnil; |
{register object V1367; |
7232 |
|
register object V1368; |
7233 |
|
V1367= CMPcdr((V1360)); |
7234 |
|
V1368= CMPcar((V1367)); |
7235 |
|
goto T2624; |
7236 |
|
T2624:; |
7237 |
|
if(!(((V1367))==Cnil)){ |
7238 |
|
goto T2625;} |
7239 |
goto T2620; |
goto T2620; |
7240 |
T2620:; |
goto T2625; |
7241 |
V1329= Cnil; |
T2625:; |
7242 |
goto T2621; |
{register object V1369; |
7243 |
T2621:; |
register object V1370; |
7244 |
{register object V1330; |
register object V1371; |
7245 |
register object V1331; |
base[2]= (V1368); |
|
V1330= CMPcdr((V1323)); |
|
|
V1331= CMPcar((V1330)); |
|
|
goto T2626; |
|
|
T2626:; |
|
|
if(!(((V1330))==Cnil)){ |
|
|
goto T2627;} |
|
|
goto T2622; |
|
|
goto T2627; |
|
|
T2627:; |
|
|
{register object V1332; |
|
|
register object V1333; |
|
|
register object V1334; |
|
|
base[2]= (V1331); |
|
7246 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7247 |
(void) (*Lnk376)(Lclptr376); |
(void) (*Lnk371)(Lclptr371); |
7248 |
if(vs_base>=vs_top){vs_top=sup;goto T2634;} |
if(vs_base>=vs_top){vs_top=sup;goto T2632;} |
7249 |
V1332= vs_base[0]; |
V1369= vs_base[0]; |
7250 |
vs_base++; |
vs_base++; |
7251 |
if(vs_base>=vs_top){vs_top=sup;goto T2635;} |
if(vs_base>=vs_top){vs_top=sup;goto T2633;} |
7252 |
V1333= vs_base[0]; |
V1370= vs_base[0]; |
7253 |
vs_base++; |
vs_base++; |
7254 |
if(vs_base>=vs_top){vs_top=sup;goto T2636;} |
if(vs_base>=vs_top){vs_top=sup;goto T2634;} |
7255 |
V1334= vs_base[0]; |
V1371= vs_base[0]; |
7256 |
vs_top=sup; |
vs_top=sup; |
7257 |
goto T2637; |
goto T2635; |
7258 |
|
goto T2632; |
7259 |
|
T2632:; |
7260 |
|
V1369= Cnil; |
7261 |
|
goto T2633; |
7262 |
|
T2633:; |
7263 |
|
V1370= Cnil; |
7264 |
goto T2634; |
goto T2634; |
7265 |
T2634:; |
T2634:; |
7266 |
V1332= Cnil; |
V1371= Cnil; |
7267 |
goto T2635; |
goto T2635; |
7268 |
T2635:; |
T2635:; |
7269 |
V1333= Cnil; |
base[2]= (V1365); |
7270 |
goto T2636; |
base[3]= (V1371); |
|
T2636:; |
|
|
V1334= Cnil; |
|
|
goto T2637; |
|
|
T2637:; |
|
|
base[2]= (V1328); |
|
|
base[3]= (V1334); |
|
7271 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7272 |
(void) (*Lnk377)(); |
(void) (*Lnk372)(); |
7273 |
vs_top=sup; |
vs_top=sup; |
7274 |
V1328= vs_base[0]; |
V1365= vs_base[0]; |
7275 |
if((V1329)!=Cnil){ |
if((V1366)!=Cnil){ |
7276 |
goto T2642;} |
goto T2640;} |
7277 |
V1329= (V1333); |
V1366= (V1370); |
7278 |
goto T2642; |
goto T2640; |
7279 |
T2642:;} |
T2640:;} |
7280 |
V1330= CMPcdr((V1330)); |
V1367= CMPcdr((V1367)); |
7281 |
V1331= CMPcar((V1330)); |
V1368= CMPcar((V1367)); |
7282 |
goto T2626;} |
goto T2624;} |
7283 |
goto T2622; |
goto T2620; |
7284 |
T2622:; |
T2620:; |
7285 |
if(((V1329))==Cnil){ |
if(((V1366))==Cnil){ |
7286 |
goto T2648;} |
goto T2646;} |
7287 |
V1324= VV[203]; |
V1361= VV[203]; |
7288 |
goto T2648; |
goto T2646; |
7289 |
T2648:; |
T2646:; |
7290 |
if(((V1328))==Cnil){ |
if(((V1365))==Cnil){ |
7291 |
goto T2652;} |
goto T2650;} |
7292 |
base[0]= make_cons(VV[204],Cnil); |
base[0]= make_cons(VV[204],Cnil); |
7293 |
base[1]= (V1328); |
base[1]= (V1365); |
7294 |
base[2]= (V1324); |
base[2]= (V1361); |
7295 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
7296 |
Lnconc(); |
Lnconc(); |
7297 |
vs_top=sup; |
vs_top=sup; |
7298 |
V1324= vs_base[0]; |
V1361= vs_base[0]; |
7299 |
goto T2652; |
goto T2650; |
7300 |
T2652:; |
T2650:; |
7301 |
if(((V1327))==Cnil){ |
if(((V1364))==Cnil){ |
7302 |
goto T2659;} |
goto T2657;} |
7303 |
V1335= list(2,VV[97],(V1327)); |
V1372= list(2,VV[97],(V1364)); |
7304 |
V1324= nconc(/* INLINE-ARGS */V1335,(V1324)); |
V1361= nconc(/* INLINE-ARGS */V1372,(V1361)); |
7305 |
goto T2659; |
goto T2657; |
7306 |
T2659:; |
T2657:; |
7307 |
if(((V1326))==Cnil){ |
if(((V1363))==Cnil){ |
7308 |
goto T2663;} |
goto T2661;} |
7309 |
base[0]= make_cons(VV[205],Cnil); |
base[0]= make_cons(VV[205],Cnil); |
7310 |
base[1]= (V1326); |
base[1]= (V1363); |
7311 |
base[2]= (V1324); |
base[2]= (V1361); |
7312 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
7313 |
Lnconc(); |
Lnconc(); |
7314 |
vs_top=sup; |
vs_top=sup; |
7315 |
V1324= vs_base[0]; |
V1361= vs_base[0]; |
7316 |
goto T2663; |
goto T2661; |
7317 |
T2663:; |
T2661:; |
7318 |
{object V1336 = nconc((V1325),(V1324)); |
{object V1373 = nconc((V1362),(V1361)); |
7319 |
VMR107(V1336)}} |
VMR107(V1373)}} |
7320 |
goto T2612; |
goto T2610; |
7321 |
T2612:; |
T2610:; |
7322 |
{object V1337 = Cnil; |
{object V1374 = Cnil; |
7323 |
VMR107(V1337)}} |
VMR107(V1374)}} |
7324 |
base[0]=base[0]; |
base[0]=base[0]; |
7325 |
return Cnil; |
return Cnil; |
7326 |
} |
} |
7330 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7331 |
register object *sup=base+VM108; VC108 |
register object *sup=base+VM108; VC108 |
7332 |
vs_check; |
vs_check; |
7333 |
{object V1338; |
{object V1375; |
7334 |
object V1339; |
object V1376; |
7335 |
object V1340; |
object V1377; |
7336 |
check_arg(3); |
check_arg(3); |
7337 |
V1338=(base[0]); |
V1375=(base[0]); |
7338 |
V1339=(base[1]); |
V1376=(base[1]); |
7339 |
V1340=(base[2]); |
V1377=(base[2]); |
7340 |
vs_top=sup; |
vs_top=sup; |
7341 |
goto TTL; |
goto TTL; |
7342 |
TTL:; |
TTL:; |
7343 |
{register object V1342; |
{register object V1379; |
7344 |
register object V1343; |
register object V1380; |
7345 |
object V1344; |
object V1381; |
7346 |
register object V1345; |
register object V1382; |
7347 |
object V1346; |
object V1383; |
7348 |
register object V1347; |
register object V1384; |
7349 |
object V1348; |
object V1385; |
7350 |
base[3]= (V1340); |
base[3]= (V1377); |
7351 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7352 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk282)(Lclptr282); |
7353 |
vs_top=sup; |
vs_top=sup; |
7354 |
V1348= vs_base[0]; |
V1385= vs_base[0]; |
7355 |
V1342= Cnil; |
V1379= Cnil; |
7356 |
V1343= Cnil; |
V1380= Cnil; |
7357 |
V1344= Cnil; |
V1381= Cnil; |
7358 |
V1345= Cnil; |
V1382= Cnil; |
7359 |
V1346= Cnil; |
V1383= Cnil; |
7360 |
V1347= VV[206]; |
V1384= VV[206]; |
7361 |
{register object V1349; |
{register object V1386; |
7362 |
register object V1350; |
register object V1387; |
7363 |
V1349= (V1348); |
V1386= (V1385); |
7364 |
V1350= CMPcar((V1349)); |
V1387= CMPcar((V1386)); |
7365 |
goto T2679; |
goto T2677; |
7366 |
T2679:; |
T2677:; |
7367 |
if(!(((V1349))==Cnil)){ |
if(!(((V1386))==Cnil)){ |
7368 |
goto T2680;} |
goto T2678;} |
7369 |
goto T2675; |
goto T2673; |
7370 |
goto T2680; |
goto T2678; |
7371 |
T2680:; |
T2678:; |
7372 |
if(!(((V1350))==(VV[205]))){ |
if(!(((V1387))==(VV[205]))){ |
7373 |
goto T2686;} |
goto T2684;} |
7374 |
V1347= VV[207]; |
V1384= VV[207]; |
7375 |
goto T2684; |
goto T2682; |
|
goto T2686; |
|
|
T2686:; |
|
|
if(!(((V1350))==(VV[97]))){ |
|
|
goto T2690;} |
|
|
V1347= VV[208]; |
|
|
goto T2684; |
|
|
goto T2690; |
|
|
T2690:; |
|
|
if(!(((V1350))==(VV[204]))){ |
|
|
goto T2694;} |
|
|
V1347= VV[209]; |
|
|
goto T2684; |
|
|
goto T2694; |
|
|
T2694:; |
|
|
if(!(((V1350))==(VV[202]))){ |
|
|
goto T2698;} |
|
|
V1346= Ct; |
|
7376 |
goto T2684; |
goto T2684; |
7377 |
goto T2698; |
T2684:; |
7378 |
T2698:; |
if(!(((V1387))==(VV[97]))){ |
7379 |
{register object V1351; |
goto T2688;} |
7380 |
{register object x= (V1350),V1352= VV[90]; |
V1384= VV[208]; |
7381 |
while(V1352!=Cnil) |
goto T2682; |
7382 |
if(x==(V1352->c.c_car)){ |
goto T2688; |
7383 |
V1351= V1352; |
T2688:; |
7384 |
goto T2701; |
if(!(((V1387))==(VV[204]))){ |
7385 |
}else V1352=V1352->c.c_cdr; |
goto T2692;} |
7386 |
V1351= Cnil;} |
V1384= VV[209]; |
7387 |
|
goto T2682; |
7388 |
|
goto T2692; |
7389 |
|
T2692:; |
7390 |
|
if(!(((V1387))==(VV[202]))){ |
7391 |
|
goto T2696;} |
7392 |
|
V1383= Ct; |
7393 |
|
goto T2682; |
7394 |
|
goto T2696; |
7395 |
|
T2696:; |
7396 |
|
{register object V1388; |
7397 |
|
{register object x= (V1387),V1389= VV[90]; |
7398 |
|
while(V1389!=Cnil) |
7399 |
|
if(x==(V1389->c.c_car)){ |
7400 |
|
V1388= V1389; |
7401 |
|
goto T2699; |
7402 |
|
}else V1389=V1389->c.c_cdr; |
7403 |
|
V1388= Cnil;} |
7404 |
|
goto T2699; |
7405 |
|
T2699:; |
7406 |
|
if(((V1388))==Cnil){ |
7407 |
|
goto T2701;} |
7408 |
|
goto T2682; |
7409 |
goto T2701; |
goto T2701; |
7410 |
T2701:; |
T2701:; |
7411 |
if(((V1351))==Cnil){ |
{object V1390= (V1384); |
7412 |
goto T2703;} |
if((V1390!= VV[206]))goto T2703; |
7413 |
goto T2684; |
V1379= make_cons(V1387,(V1379)); |
7414 |
|
goto T2682; |
7415 |
goto T2703; |
goto T2703; |
7416 |
T2703:; |
T2703:; |
7417 |
{object V1353= (V1347); |
if((V1390!= VV[207]))goto T2705; |
7418 |
if((V1353!= VV[206]))goto T2705; |
V1380= make_cons(V1387,(V1380)); |
7419 |
V1342= make_cons(V1350,(V1342)); |
goto T2682; |
|
goto T2684; |
|
7420 |
goto T2705; |
goto T2705; |
7421 |
T2705:; |
T2705:; |
7422 |
if((V1353!= VV[207]))goto T2707; |
if((V1390!= VV[209]))goto T2707; |
7423 |
V1343= make_cons(V1350,(V1343)); |
V1382= make_cons(V1387,(V1382)); |
7424 |
goto T2684; |
goto T2682; |
7425 |
goto T2707; |
goto T2707; |
7426 |
T2707:; |
T2707:; |
7427 |
if((V1353!= VV[209]))goto T2709; |
if((V1390!= VV[208]))goto T2709; |
7428 |
V1345= make_cons(V1350,(V1345)); |
V1381= (V1387); |
7429 |
goto T2684; |
goto T2682; |
7430 |
goto T2709; |
goto T2709; |
7431 |
T2709:; |
T2709:; |
7432 |
if((V1353!= VV[208]))goto T2711; |
FEerror("The ECASE key value ~s is illegal.",1,V1390); |
7433 |
V1344= (V1350); |
goto T2682;}} |
7434 |
goto T2684; |
goto T2682; |
7435 |
goto T2711; |
T2682:; |
7436 |
T2711:; |
V1386= CMPcdr((V1386)); |
7437 |
FEerror("The ECASE key value ~s is illegal.",1,V1353); |
V1387= CMPcar((V1386)); |
7438 |
goto T2684;}} |
goto T2677;} |
7439 |
goto T2684; |
goto T2673; |
7440 |
T2684:; |
T2673:; |
7441 |
V1349= CMPcdr((V1349)); |
base[3]= nreverse((V1379)); |
7442 |
V1350= CMPcar((V1349)); |
base[4]= nreverse((V1380)); |
7443 |
goto T2679;} |
base[5]= (V1381); |
7444 |
goto T2675; |
base[6]= nreverse((V1382)); |
7445 |
T2675:; |
base[7]= (V1383); |
|
base[3]= nreverse((V1342)); |
|
|
base[4]= nreverse((V1343)); |
|
|
base[5]= (V1344); |
|
|
base[6]= nreverse((V1345)); |
|
|
base[7]= (V1346); |
|
7446 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
7447 |
return;} |
return;} |
7448 |
} |
} |
7454 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7455 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM109; VC109 |
7456 |
vs_check; |
vs_check; |
7457 |
{object V1357; |
{object V1394; |
7458 |
check_arg(1); |
check_arg(1); |
7459 |
V1357=(base[0]); |
V1394=(base[0]); |
7460 |
vs_top=sup;{object V1358; |
vs_top=sup;{object V1395; |
7461 |
{register object x= (V1357),V1359= (base0[0]->c.c_car); |
{register object x= (V1394),V1396= (base0[0]->c.c_car); |
7462 |
while(V1359!=Cnil) |
while(V1396!=Cnil) |
7463 |
if(x==(V1359->c.c_car)){ |
if(x==(V1396->c.c_car)){ |
7464 |
V1358= V1359; |
V1395= V1396; |
7465 |
goto T2724; |
goto T2722; |
7466 |
}else V1359=V1359->c.c_cdr; |
}else V1396=V1396->c.c_cdr; |
7467 |
V1358= Cnil;} |
V1395= Cnil;} |
7468 |
goto T2724; |
goto T2722; |
7469 |
T2724:; |
T2722:; |
7470 |
if(V1358==Cnil)goto T2723; |
if(V1395==Cnil)goto T2721; |
7471 |
base[1]= V1358; |
base[1]= V1395; |
7472 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7473 |
return; |
return; |
7474 |
goto T2723; |
goto T2721; |
7475 |
T2723:;} |
T2721:;} |
7476 |
base[1]= (((V1357))==(VV[202])?Ct:Cnil); |
base[1]= (((V1394))==(VV[202])?Ct:Cnil); |
7477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7478 |
return; |
return; |
7479 |
} |
} |
7485 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7486 |
register object *sup=base+VM110; VC110 |
register object *sup=base+VM110; VC110 |
7487 |
vs_check; |
vs_check; |
7488 |
{object V1360; |
{object V1397; |
7489 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
7490 |
{object *p=vs_top; |
{object *p=vs_top; |
7491 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
7492 |
V1360=(base[0]); |
V1397=(base[0]); |
7493 |
vs_top=sup; |
vs_top=sup; |
7494 |
{object V1361; |
{object V1398; |
7495 |
object V1362; |
object V1399; |
7496 |
object V1363; |
object V1400; |
7497 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
7498 |
base[5]= (V1360); |
base[5]= (V1397); |
7499 |
base[6]= VV[108]; |
base[6]= VV[108]; |
7500 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
7501 |
(void) (*Lnk297)(); |
(void) (*Lnk294)(); |
7502 |
vs_top=sup; |
vs_top=sup; |
7503 |
V1361= vs_base[0]; |
V1398= vs_base[0]; |
7504 |
V1362= (*(LnkLI378))((base0[0]->c.c_car),(base0[1]->c.c_car),(V1361)); |
V1399= (*(LnkLI373))((base0[0]->c.c_car),(base0[1]->c.c_car),(V1398)); |
7505 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
7506 |
base[5]= (V1362); |
base[5]= (V1399); |
7507 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7508 |
(void) (*Lnk312)(); |
(void) (*Lnk307)(); |
7509 |
vs_top=sup; |
vs_top=sup; |
7510 |
V1363= vs_base[0]; |
V1400= vs_base[0]; |
7511 |
base[4]= (V1363); |
base[4]= (V1400); |
7512 |
base[5]= (V1360); |
base[5]= (V1397); |
7513 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7514 |
(void) (*Lnk379)(); |
(void) (*Lnk374)(); |
7515 |
return;} |
return;} |
7516 |
} |
} |
7517 |
} |
} |
7522 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7523 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM111; VC111 |
7524 |
vs_check; |
vs_check; |
7525 |
{object V1364; |
{object V1401; |
7526 |
object V1365; |
object V1402; |
7527 |
check_arg(2); |
check_arg(2); |
7528 |
V1364=(base[0]); |
V1401=(base[0]); |
7529 |
V1365=(base[1]); |
V1402=(base[1]); |
7530 |
vs_top=sup; |
vs_top=sup; |
7531 |
{object V1366; |
{object V1403; |
7532 |
object V1367; |
object V1404; |
7533 |
V1366= make_cons(Cnil,Cnil); |
V1403= make_cons(Cnil,Cnil); |
7534 |
V1367= (V1366); |
V1404= (V1403); |
7535 |
{register object V1368; |
{register object V1405; |
7536 |
register object V1369; |
register object V1406; |
7537 |
V1368= (base0[0]->c.c_car); |
V1405= (base0[0]->c.c_car); |
7538 |
V1369= CMPcar((V1368)); |
V1406= CMPcar((V1405)); |
7539 |
goto T2741; |
goto T2739; |
7540 |
T2741:; |
T2739:; |
7541 |
if(!(((V1368))==Cnil)){ |
if(!(((V1405))==Cnil)){ |
7542 |
goto T2742;} |
goto T2740;} |
7543 |
goto T2737; |
goto T2735; |
7544 |
goto T2742; |
goto T2740; |
7545 |
T2742:; |
T2740:; |
7546 |
{object V1370; |
{object V1407; |
7547 |
register object V1371;{object V1372; |
register object V1408;{object V1409; |
7548 |
{register object V1373; |
{register object V1410; |
7549 |
register object V1374; |
register object V1411; |
7550 |
V1373= (V1366); |
V1410= (V1403); |
7551 |
V1374= CMPcar((V1373)); |
V1411= CMPcar((V1410)); |
7552 |
goto T2753; |
goto T2751; |
7553 |
T2753:; |
T2751:; |
7554 |
if(!(((V1373))==Cnil)){ |
if(!(((V1410))==Cnil)){ |
7555 |
goto T2754;} |
goto T2752;} |
7556 |
V1372= Cnil; |
V1409= Cnil; |
|
goto T2749; |
|
|
goto T2754; |
|
|
T2754:; |
|
|
if(!((CMPcar((V1374)))==((V1369)))){ |
|
|
goto T2758;} |
|
|
V1372= (V1374); |
|
|
goto T2749; |
|
|
goto T2758; |
|
|
T2758:; |
|
|
V1373= CMPcdr((V1373)); |
|
|
V1374= CMPcar((V1373)); |
|
|
goto T2753;} |
|
|
goto T2749; |
|
|
T2749:; |
|
|
if(V1372==Cnil)goto T2748; |
|
|
V1370= V1372; |
|
7557 |
goto T2747; |
goto T2747; |
7558 |
goto T2748; |
goto T2752; |
7559 |
T2748:;} |
T2752:; |
7560 |
V1375 = (V1369);{object V1377; |
if(!((CMPcar((V1411)))==((V1406)))){ |
7561 |
V1377= (*(LnkLI380))((V1369),(V1364),(V1365)); |
goto T2756;} |
7562 |
if(V1377==Cnil)goto T2767; |
V1409= (V1411); |
7563 |
V1376= V1377; |
goto T2747; |
7564 |
goto T2766; |
goto T2756; |
7565 |
goto T2767; |
T2756:; |
7566 |
T2767:;} |
V1410= CMPcdr((V1410)); |
7567 |
base[6]= (V1369); |
V1411= CMPcar((V1410)); |
7568 |
base[7]= (V1364); |
goto T2751;} |
|
base[8]= (V1365); |
|
|
vs_top=(vs_base=base+6)+3; |
|
|
(void) (*Lnk352)(); |
|
|
vs_top=sup; |
|
|
V1376= vs_base[0]; |
|
|
goto T2766; |
|
|
T2766:; |
|
|
V1370= make_cons(V1375,V1376); |
|
7569 |
goto T2747; |
goto T2747; |
7570 |
T2747:; |
T2747:; |
7571 |
V1371= make_cons((V1370),Cnil); |
if(V1409==Cnil)goto T2746; |
7572 |
{register object V1379; |
V1407= V1409; |
7573 |
V1379= (V1371); |
goto T2745; |
7574 |
(V1367)->c.c_cdr = (V1379);} |
goto T2746; |
7575 |
V1367= (V1371);} |
T2746:;} |
7576 |
V1368= CMPcdr((V1368)); |
V1412 = (V1406);{object V1414; |
7577 |
V1369= CMPcar((V1368)); |
V1414= (*(LnkLI375))((V1406),(V1401),(V1402)); |
7578 |
goto T2741;} |
if(V1414==Cnil)goto T2765; |
7579 |
goto T2737; |
V1413= V1414; |
7580 |
T2737:; |
goto T2764; |
7581 |
{object V1380; |
goto T2765; |
7582 |
|
T2765:;} |
7583 |
|
base[6]= (V1406); |
7584 |
|
base[7]= (V1401); |
7585 |
|
base[8]= (V1402); |
7586 |
|
vs_top=(vs_base=base+6)+3; |
7587 |
|
(void) (*Lnk347)(); |
7588 |
|
vs_top=sup; |
7589 |
|
V1413= vs_base[0]; |
7590 |
|
goto T2764; |
7591 |
|
T2764:; |
7592 |
|
V1407= make_cons(V1412,V1413); |
7593 |
|
goto T2745; |
7594 |
|
T2745:; |
7595 |
|
V1408= make_cons((V1407),Cnil); |
7596 |
|
{register object V1416; |
7597 |
|
V1416= (V1408); |
7598 |
|
(V1404)->c.c_cdr = (V1416);} |
7599 |
|
V1404= (V1408);} |
7600 |
|
V1405= CMPcdr((V1405)); |
7601 |
|
V1406= CMPcar((V1405)); |
7602 |
|
goto T2739;} |
7603 |
|
goto T2735; |
7604 |
|
T2735:; |
7605 |
|
{object V1417; |
7606 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
7607 |
{object V1381; |
{object V1418; |
7608 |
{object V1382; |
{object V1419; |
7609 |
object V1383= CMPcdr((V1366)); |
object V1420= CMPcdr((V1403)); |
7610 |
if(V1383==Cnil){ |
if(V1420==Cnil){ |
7611 |
V1381= Cnil; |
V1418= Cnil; |
7612 |
goto T2784;} |
goto T2782;} |
7613 |
base[4]=V1382=MMcons(Cnil,Cnil); |
base[4]=V1419=MMcons(Cnil,Cnil); |
7614 |
goto T2785; |
goto T2783; |
7615 |
T2785:; |
T2783:; |
7616 |
(V1382->c.c_car)= CMPcdr((V1383->c.c_car)); |
(V1419->c.c_car)= CMPcdr((V1420->c.c_car)); |
7617 |
if((V1383=MMcdr(V1383))==Cnil){ |
if((V1420=MMcdr(V1420))==Cnil){ |
7618 |
V1381= base[4]; |
V1418= base[4]; |
7619 |
goto T2784;} |
goto T2782;} |
7620 |
V1382=MMcdr(V1382)=MMcons(Cnil,Cnil); |
V1419=MMcdr(V1419)=MMcons(Cnil,Cnil); |
7621 |
goto T2785;} |
goto T2783;} |
7622 |
goto T2784; |
goto T2782; |
7623 |
T2784:; |
T2782:; |
7624 |
vs_top=base+4; |
vs_top=base+4; |
7625 |
while(V1381!=Cnil) |
while(V1418!=Cnil) |
7626 |
{vs_push((V1381)->c.c_car);V1381=(V1381)->c.c_cdr;} |
{vs_push((V1418)->c.c_car);V1418=(V1418)->c.c_cdr;} |
7627 |
vs_base=base+4;} |
vs_base=base+4;} |
7628 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7629 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7630 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
7631 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
7632 |
vs_top=sup; |
vs_top=sup; |
7633 |
V1380= vs_base[0]; |
V1417= vs_base[0]; |
7634 |
if(((base0[4]->c.c_car))==Cnil){ |
if(((base0[4]->c.c_car))==Cnil){ |
7635 |
goto T2788;} |
goto T2786;} |
7636 |
base[3]= (V1380); |
base[3]= (V1417); |
7637 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7638 |
return; |
return; |
7639 |
goto T2788; |
goto T2786; |
7640 |
T2788:; |
T2786:; |
7641 |
base[3]= (V1380); |
base[3]= (V1417); |
7642 |
base[4]= list(2,VV[194],(base0[3]->c.c_car)); |
base[4]= list(2,VV[194],(base0[3]->c.c_car)); |
7643 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7644 |
(void) (*Lnk259)(); |
(void) (*Lnk258)(); |
7645 |
vs_top=sup; |
vs_top=sup; |
7646 |
V1384= vs_base[0]; |
V1421= vs_base[0]; |
7647 |
V1385 = (base0[2]->c.c_car); |
V1422 = (base0[2]->c.c_car); |
7648 |
base[3]= (VFUN_NARGS=4,(*(LnkLI381))(VV[54],V1384,VV[195],V1385)); |
base[3]= (VFUN_NARGS=4,(*(LnkLI376))(VV[54],V1421,VV[195],V1422)); |
7649 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7650 |
return;}} |
return;}} |
7651 |
} |
} |
7657 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7658 |
register object *sup=base+VM112; VC112 |
register object *sup=base+VM112; VC112 |
7659 |
vs_check; |
vs_check; |
7660 |
{object V1386; |
{object V1423; |
7661 |
check_arg(1); |
check_arg(1); |
7662 |
V1386=(base[0]); |
V1423=(base[0]); |
7663 |
vs_top=sup; |
vs_top=sup; |
7664 |
base[1]= (*(LnkLI382))((V1386),(base0[3]->c.c_car)); |
base[1]= (*(LnkLI377))((V1423),(base0[3]->c.c_car)); |
7665 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7666 |
return; |
return; |
7667 |
} |
} |
7678 |
goto TTL; |
goto TTL; |
7679 |
TTL:; |
TTL:; |
7680 |
if((base[1])!=Cnil){ |
if((base[1])!=Cnil){ |
7681 |
goto T2794;} |
goto T2792;} |
7682 |
base[5]= CMPcdr(base[0]); |
base[5]= CMPcdr(base[0]); |
7683 |
base[6]= base[3]; |
base[6]= base[3]; |
7684 |
V1387= make_cons(CMPcar(base[0]),base[2]); |
V1424= make_cons(CMPcar(base[0]),base[2]); |
7685 |
base[7]= make_cons(/* INLINE-ARGS */V1387,base[4]); |
base[7]= make_cons(/* INLINE-ARGS */V1424,base[4]); |
7686 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
7687 |
L100(base0); |
L100(base0); |
7688 |
return; |
return; |
7689 |
goto T2794; |
goto T2792; |
7690 |
T2794:; |
T2792:; |
7691 |
{object V1388; |
{object V1425; |
7692 |
object V1389; |
object V1426; |
7693 |
V1388= CMPcar(base[0]); |
V1425= CMPcar(base[0]); |
7694 |
base[6]= CMPcar(base[1]); |
base[6]= CMPcar(base[1]); |
7695 |
V1390 = (V1388); |
V1427 = (V1425); |
7696 |
base[9]= base[6]; |
base[9]= base[6]; |
7697 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7698 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk277)(Lclptr277); |
7699 |
vs_top=sup; |
vs_top=sup; |
7700 |
V1391= vs_base[0]; |
V1428= vs_base[0]; |
7701 |
V1389= nth(fix(V1390),V1391); |
V1426= nth(fix(V1427),V1428); |
7702 |
base[10]= (V1389); |
base[10]= (V1426); |
7703 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
7704 |
(void) (*Lnk383)(); |
(void) (*Lnk378)(); |
7705 |
vs_top=sup; |
vs_top=sup; |
7706 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
7707 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7714 |
base[11]= base[8]; |
base[11]= base[8]; |
7715 |
base[12]= base[2]; |
base[12]= base[2]; |
7716 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
7717 |
(void) (*Lnk384)(); |
(void) (*Lnk379)(); |
7718 |
if(vs_base>=vs_top){vs_top=sup;goto T2810;} |
if(vs_base>=vs_top){vs_top=sup;goto T2808;} |
7719 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
7720 |
vs_base++; |
vs_base++; |
7721 |
if(vs_base>=vs_top){vs_top=sup;goto T2811;} |
if(vs_base>=vs_top){vs_top=sup;goto T2809;} |
7722 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
7723 |
vs_top=sup; |
vs_top=sup; |
|
goto T2812; |
|
7724 |
goto T2810; |
goto T2810; |
7725 |
T2810:; |
goto T2808; |
7726 |
|
T2808:; |
7727 |
base[9]= Cnil; |
base[9]= Cnil; |
7728 |
goto T2811; |
goto T2809; |
7729 |
T2811:; |
T2809:; |
7730 |
base[10]= Cnil; |
base[10]= Cnil; |
7731 |
goto T2812; |
goto T2810; |
7732 |
T2812:; |
T2810:; |
7733 |
base[11]= Cnil; |
base[11]= Cnil; |
7734 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
7735 |
L98(base0,base); |
L98(base0,base); |
7736 |
vs_top=sup; |
vs_top=sup; |
7737 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7738 |
goto T2814;} |
goto T2812;} |
7739 |
base[11]= Cnil; |
base[11]= Cnil; |
7740 |
base[12]= Ct; |
base[12]= Ct; |
7741 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
7742 |
L99(base0,base); |
L99(base0,base); |
7743 |
return; |
return; |
7744 |
goto T2814; |
goto T2812; |
7745 |
T2814:; |
T2812:; |
7746 |
base[11]= Ct; |
base[11]= Ct; |
7747 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
7748 |
L98(base0,base); |
L98(base0,base); |
7749 |
vs_top=sup; |
vs_top=sup; |
7750 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7751 |
goto T2820;} |
goto T2818;} |
7752 |
base[11]= Ct; |
base[11]= Ct; |
7753 |
base[12]= Ct; |
base[12]= Ct; |
7754 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
7755 |
L99(base0,base); |
L99(base0,base); |
7756 |
return; |
return; |
7757 |
goto T2820; |
goto T2818; |
7758 |
T2820:; |
T2818:; |
7759 |
base[11]= (V1388); |
base[11]= (V1425); |
7760 |
base[12]= base[8]; |
base[12]= base[8]; |
7761 |
base[14]= Ct; |
base[14]= Ct; |
7762 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
7782 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7783 |
register object *sup=base+VM114; VC114 |
register object *sup=base+VM114; VC114 |
7784 |
vs_check; |
vs_check; |
7785 |
{object V1392; |
{object V1429; |
7786 |
object V1393; |
object V1430; |
7787 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
7788 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
7789 |
V1392=(base[0]); |
V1429=(base[0]); |
7790 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
7791 |
if(vs_base>=vs_top){vs_top=sup;goto T2831;} |
if(vs_base>=vs_top){vs_top=sup;goto T2829;} |
7792 |
V1393=(base[1]); |
V1430=(base[1]); |
7793 |
vs_top=sup; |
vs_top=sup; |
7794 |
|
goto T2830; |
7795 |
|
goto T2829; |
7796 |
|
T2829:; |
7797 |
|
V1430= Cnil; |
7798 |
|
goto T2830; |
7799 |
|
T2830:; |
7800 |
|
{object V1431; |
7801 |
|
if(((V1429))==Cnil){ |
7802 |
|
goto T2834;} |
7803 |
|
V1431= base1[8]; |
7804 |
goto T2832; |
goto T2832; |
|
goto T2831; |
|
|
T2831:; |
|
|
V1393= Cnil; |
|
|
goto T2832; |
|
|
T2832:; |
|
|
{object V1394; |
|
|
if(((V1392))==Cnil){ |
|
|
goto T2836;} |
|
|
V1394= base1[8]; |
|
|
goto T2834; |
|
|
goto T2836; |
|
|
T2836:; |
|
|
V1394= list(2,VV[144],base1[8]); |
|
7805 |
goto T2834; |
goto T2834; |
7806 |
T2834:; |
T2834:; |
7807 |
|
V1431= list(2,VV[144],base1[8]); |
7808 |
|
goto T2832; |
7809 |
|
T2832:; |
7810 |
base[2]= base1[0]; |
base[2]= base1[0]; |
7811 |
base[3]= CMPcdr(base1[1]); |
base[3]= CMPcdr(base1[1]); |
7812 |
if(((V1393))==Cnil){ |
if(((V1430))==Cnil){ |
7813 |
goto T2842;} |
goto T2840;} |
7814 |
base[4]= base1[2]; |
base[4]= base1[2]; |
7815 |
goto T2840; |
goto T2838; |
|
goto T2842; |
|
|
T2842:; |
|
|
base[4]= (*(LnkLI385))((V1394),base1[2]); |
|
7816 |
goto T2840; |
goto T2840; |
7817 |
T2840:; |
T2840:; |
7818 |
if(((V1392))==Cnil){ |
base[4]= (*(LnkLI380))((V1431),base1[2]); |
7819 |
goto T2846;} |
goto T2838; |
7820 |
V1395= make_cons(base1[6],Cnil); |
T2838:; |
7821 |
base[5]= append(base1[3],/* INLINE-ARGS */V1395); |
if(((V1429))==Cnil){ |
7822 |
goto T2844; |
goto T2844;} |
7823 |
goto T2846; |
V1432= make_cons(base1[6],Cnil); |
7824 |
T2846:; |
base[5]= append(base1[3],/* INLINE-ARGS */V1432); |
7825 |
base[5]= base1[3]; |
goto T2842; |
7826 |
goto T2844; |
goto T2844; |
7827 |
T2844:; |
T2844:; |
7828 |
|
base[5]= base1[3]; |
7829 |
|
goto T2842; |
7830 |
|
T2842:; |
7831 |
base[6]= base1[4]; |
base[6]= base1[4]; |
7832 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
7833 |
L101(base0); |
L101(base0); |
7841 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7842 |
register object *sup=base+VM115; VC115 |
register object *sup=base+VM115; VC115 |
7843 |
vs_check; |
vs_check; |
7844 |
{object V1396; |
{object V1433; |
7845 |
check_arg(1); |
check_arg(1); |
7846 |
V1396=(base[0]); |
V1433=(base[0]); |
7847 |
vs_top=sup; |
vs_top=sup; |
7848 |
goto TTL; |
goto TTL; |
7849 |
TTL:; |
TTL:; |
7850 |
if(((V1396))==Cnil){ |
if(((V1433))==Cnil){ |
7851 |
goto T2850;} |
goto T2848;} |
7852 |
base[1]= base1[9]; |
base[1]= base1[9]; |
7853 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7854 |
return; |
return; |
7855 |
goto T2850; |
goto T2848; |
7856 |
T2850:; |
T2848:; |
7857 |
base[1]= ((base1[10])==Cnil?Ct:Cnil); |
base[1]= ((base1[10])==Cnil?Ct:Cnil); |
7858 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7859 |
return; |
return; |
7866 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7867 |
register object *sup=base+VM116; VC116 |
register object *sup=base+VM116; VC116 |
7868 |
vs_check; |
vs_check; |
7869 |
{object V1397; |
{object V1434; |
7870 |
object V1398; |
object V1435; |
7871 |
object V1399; |
object V1436; |
7872 |
check_arg(3); |
check_arg(3); |
7873 |
V1397=(base[0]); |
V1434=(base[0]); |
7874 |
V1398=(base[1]); |
V1435=(base[1]); |
7875 |
V1399=(base[2]); |
V1436=(base[2]); |
7876 |
vs_top=sup; |
vs_top=sup; |
7877 |
goto TTL; |
goto TTL; |
7878 |
TTL:; |
TTL:; |
7879 |
if(((V1397))==Cnil){ |
if(((V1434))==Cnil){ |
7880 |
goto T2853;} |
goto T2851;} |
7881 |
{object V1400; |
{object V1437; |
7882 |
object V1401; |
object V1438; |
7883 |
V1400= CMPcar((V1397));{object V1402; |
V1437= CMPcar((V1434));{object V1439; |
7884 |
V1402= nth(fix((V1400)),base0[2]); |
V1439= nth(fix((V1437)),base0[2]); |
7885 |
if(V1402==Cnil)goto T2857; |
if(V1439==Cnil)goto T2855; |
7886 |
V1401= V1402; |
V1438= V1439; |
7887 |
goto T2856; |
goto T2854; |
7888 |
goto T2857; |
goto T2855; |
7889 |
T2857:;} |
T2855:;} |
7890 |
V1401= Ct; |
V1438= Ct; |
7891 |
goto T2856; |
goto T2854; |
7892 |
T2856:; |
T2854:; |
7893 |
if(!((nth(fix((V1400)),base0[9]))==(Ct))){ |
if(!((nth(fix((V1437)),base0[9]))==(Ct))){ |
7894 |
goto T2860;} |
goto T2858;} |
7895 |
V1397= CMPcdr((V1397)); |
V1434= CMPcdr((V1434)); |
7896 |
V1403= make_cons((V1400),(V1401)); |
V1440= make_cons((V1437),(V1438)); |
7897 |
V1399= make_cons(/* INLINE-ARGS */V1403,(V1399)); |
V1436= make_cons(/* INLINE-ARGS */V1440,(V1436)); |
7898 |
goto TTL; |
goto TTL; |
7899 |
return; |
return; |
7900 |
goto T2860; |
goto T2858; |
7901 |
T2860:; |
T2858:; |
7902 |
base[5]= (V1397); |
base[5]= (V1434); |
7903 |
base[6]= (V1398); |
base[6]= (V1435); |
7904 |
base[7]= (V1401); |
base[7]= (V1438); |
7905 |
base[8]= Cnil; |
base[8]= Cnil; |
7906 |
base[9]= (V1399); |
base[9]= (V1436); |
7907 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
7908 |
L101(base0); |
L101(base0); |
7909 |
return;} |
return;} |
7910 |
goto T2853; |
goto T2851; |
7911 |
T2853:; |
T2851:; |
7912 |
base[3]= (V1398); |
base[3]= (V1435); |
7913 |
{register object V1404; |
{register object V1441; |
7914 |
base[5]= base0[8]; |
base[5]= base0[8]; |
7915 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7916 |
Lmake_list(); |
Lmake_list(); |
7917 |
vs_top=sup; |
vs_top=sup; |
7918 |
V1404= vs_base[0]; |
V1441= vs_base[0]; |
7919 |
{register object V1405; |
{register object V1442; |
7920 |
register object V1406; |
register object V1443; |
7921 |
V1405= (V1399); |
V1442= (V1436); |
7922 |
V1406= CMPcar((V1405)); |
V1443= CMPcar((V1442)); |
7923 |
goto T2879; |
goto T2877; |
7924 |
T2879:; |
T2877:; |
7925 |
if(!(((V1405))==Cnil)){ |
if(!(((V1442))==Cnil)){ |
7926 |
goto T2880;} |
goto T2878;} |
7927 |
goto T2875; |
goto T2873; |
7928 |
goto T2880; |
goto T2878; |
7929 |
T2880:; |
T2878:; |
7930 |
{register object V1407; |
{register object V1444; |
7931 |
register object V1408; |
register object V1445; |
7932 |
register object V1409; |
register object V1446; |
7933 |
V1407= CMPcar((V1406)); |
V1444= CMPcar((V1443)); |
7934 |
V1408= (V1404); |
V1445= (V1441); |
7935 |
V1409= CMPcdr((V1406)); |
V1446= CMPcdr((V1443)); |
7936 |
(nthcdr(fix((V1407)),(V1408)))->c.c_car = (V1409); |
(nthcdr(fix((V1444)),(V1445)))->c.c_car = (V1446); |
7937 |
(void)(nthcdr(fix((V1407)),(V1408)));} |
(void)(nthcdr(fix((V1444)),(V1445)));} |
7938 |
V1405= CMPcdr((V1405)); |
V1442= CMPcdr((V1442)); |
7939 |
V1406= CMPcar((V1405)); |
V1443= CMPcar((V1442)); |
7940 |
goto T2879;} |
goto T2877;} |
7941 |
goto T2875; |
goto T2873; |
7942 |
T2875:; |
T2873:; |
7943 |
base[4]= (V1404);} |
base[4]= (V1441);} |
7944 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7945 |
{object _funobj = base0[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base0[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7946 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7956 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7957 |
register object *sup=base+VM117; VC117 |
register object *sup=base+VM117; VC117 |
7958 |
vs_check; |
vs_check; |
7959 |
{register object V1410; |
{register object V1447; |
7960 |
check_arg(1); |
check_arg(1); |
7961 |
V1410=(base[0]); |
V1447=(base[0]); |
7962 |
vs_top=sup; |
vs_top=sup; |
7963 |
if(!(type_of((V1410))==t_cons)){ |
if(!(type_of((V1447))==t_cons)){ |
7964 |
goto T2895;} |
goto T2893;} |
7965 |
if(!((CMPcar((V1410)))==(VV[108]))){ |
if(!((CMPcar((V1447)))==(VV[108]))){ |
7966 |
goto T2895;} |
goto T2893;} |
7967 |
base[1]= list(2,VV[109],(*(LnkLI149))(CMPcadr((V1410)))); |
base[1]= list(2,VV[109],(*(LnkLI149))(CMPcadr((V1447)))); |
7968 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7969 |
return; |
return; |
7970 |
goto T2895; |
goto T2893; |
7971 |
T2895:; |
T2893:; |
7972 |
base[1]= (V1410); |
base[1]= (V1447); |
7973 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7974 |
return; |
return; |
7975 |
} |
} |
7981 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7982 |
register object *sup=base+VM118; VC118 |
register object *sup=base+VM118; VC118 |
7983 |
vs_check; |
vs_check; |
7984 |
{object V1411; |
{object V1448; |
7985 |
object V1412; |
object V1449; |
7986 |
object V1413; |
object V1450; |
7987 |
object V1414; |
object V1451; |
7988 |
check_arg(4); |
check_arg(4); |
7989 |
V1411=(base[0]); |
V1448=(base[0]); |
7990 |
V1412=(base[1]); |
V1449=(base[1]); |
7991 |
V1413=(base[2]); |
V1450=(base[2]); |
7992 |
V1414=(base[3]); |
V1451=(base[3]); |
7993 |
vs_top=sup; |
vs_top=sup; |
7994 |
base[4]= Cnil; |
base[4]= Cnil; |
7995 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8003 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8004 |
register object *sup=base+VM119; VC119 |
register object *sup=base+VM119; VC119 |
8005 |
vs_check; |
vs_check; |
8006 |
{object V1415; |
{object V1452; |
8007 |
check_arg(2); |
check_arg(2); |
8008 |
V1415=(base[0]); |
V1452=(base[0]); |
8009 |
base[1]=MMcons(base[1],base0[0]); |
base[1]=MMcons(base[1],base0[0]); |
8010 |
vs_top=sup; |
vs_top=sup; |
8011 |
if(((V1415))==Cnil){ |
if(((V1452))==Cnil){ |
8012 |
goto T2900;} |
goto T2898;} |
8013 |
if(((base0[2]->c.c_car))==Cnil){ |
if(((base0[2]->c.c_car))==Cnil){ |
8014 |
goto T2902;} |
goto T2900;} |
8015 |
{object V1416; |
{object V1453; |
8016 |
{object V1417; |
{object V1454; |
8017 |
object V1418= (base[1]->c.c_car); |
object V1455= (base[1]->c.c_car); |
8018 |
if(V1418==Cnil){ |
if(V1455==Cnil){ |
8019 |
V1416= Cnil; |
V1453= Cnil; |
8020 |
goto T2905;} |
goto T2903;} |
8021 |
base[3]=V1417=MMcons(Cnil,Cnil); |
base[3]=V1454=MMcons(Cnil,Cnil); |
8022 |
goto T2906; |
goto T2904; |
8023 |
T2906:; |
T2904:; |
8024 |
(V1417->c.c_car)= (*(LnkLI386))((V1418->c.c_car)); |
(V1454->c.c_car)= (*(LnkLI381))((V1455->c.c_car)); |
8025 |
if((V1418=MMcdr(V1418))==Cnil){ |
if((V1455=MMcdr(V1455))==Cnil){ |
8026 |
V1416= base[3]; |
V1453= base[3]; |
8027 |
goto T2905;} |
goto T2903;} |
8028 |
V1417=MMcdr(V1417)=MMcons(Cnil,Cnil); |
V1454=MMcdr(V1454)=MMcons(Cnil,Cnil); |
8029 |
goto T2906;} |
goto T2904;} |
8030 |
goto T2905; |
goto T2903; |
8031 |
T2905:; |
T2903:; |
8032 |
(base0[0]->c.c_car)= make_cons((V1416),(base0[0]->c.c_car));} |
(base0[0]->c.c_car)= make_cons((V1453),(base0[0]->c.c_car));} |
8033 |
goto T2902; |
goto T2900; |
8034 |
T2902:; |
T2900:; |
8035 |
V1419= (*(LnkLI387))((V1415)); |
V1456= (*(LnkLI382))((V1452)); |
8036 |
base[2]= ((/* INLINE-ARGS */V1419)==Cnil?Ct:Cnil); |
base[2]= ((/* INLINE-ARGS */V1456)==Cnil?Ct:Cnil); |
8037 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
8038 |
V1420 = (V1415); |
V1457 = (V1452); |
8039 |
V1421 = (base0[1]->c.c_car); |
V1458 = (base0[1]->c.c_car); |
8040 |
V1422= |
V1459= |
8041 |
make_cclosure_new(LC136,Cnil,base[2],Cdata); |
make_cclosure_new(LC136,Cnil,base[2],Cdata); |
8042 |
base[3]= (*(LnkLI388))(V1420,V1421,V1422); |
base[3]= (*(LnkLI383))(V1457,V1458,V1459); |
8043 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8044 |
return; |
return; |
8045 |
goto T2900; |
goto T2898; |
8046 |
T2900:; |
T2898:; |
8047 |
base[2]= Cnil; |
base[2]= Cnil; |
8048 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8049 |
return; |
return; |
8056 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8057 |
register object *sup=base+VM120; VC120 |
register object *sup=base+VM120; VC120 |
8058 |
vs_check; |
vs_check; |
8059 |
{object V1423; |
{object V1460; |
8060 |
check_arg(1); |
check_arg(1); |
8061 |
V1423=(base[0]); |
V1460=(base[0]); |
8062 |
vs_top=sup; |
vs_top=sup; |
8063 |
base[1]= (VFUN_NARGS=6,(*(LnkLI307))((base0[6]->c.c_car),(V1423),(base0[1]->c.c_car),Cnil,(base0[5]->c.c_car),(base0[0]->c.c_car))); |
base[1]= (VFUN_NARGS=6,(*(LnkLI303))((base0[6]->c.c_car),(V1460),(base0[1]->c.c_car),Cnil,(base0[5]->c.c_car),(base0[0]->c.c_car))); |
8064 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8065 |
return; |
return; |
8066 |
} |
} |
8072 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8073 |
register object *sup=base+VM121; VC121 |
register object *sup=base+VM121; VC121 |
8074 |
vs_check; |
vs_check; |
8075 |
{object V1424; |
{object V1461; |
8076 |
register object V1425; |
register object V1462; |
8077 |
object V1426; |
object V1463; |
8078 |
register object V1427; |
register object V1464; |
8079 |
check_arg(4); |
check_arg(4); |
8080 |
V1424=(base[0]); |
V1461=(base[0]); |
8081 |
V1425=(base[1]); |
V1462=(base[1]); |
8082 |
V1426=(base[2]); |
V1463=(base[2]); |
8083 |
V1427=(base[3]); |
V1464=(base[3]); |
8084 |
vs_top=sup; |
vs_top=sup; |
8085 |
{object V1428; |
{object V1465; |
8086 |
V1428= (*(LnkLI389))((V1424)); |
V1465= (*(LnkLI384))((V1461)); |
8087 |
if(!((CMPcar((V1425)))==(VV[108]))){ |
if(!((CMPcar((V1462)))==(VV[108]))){ |
8088 |
goto T2913;} |
goto T2911;} |
8089 |
{object V1429; |
{object V1466; |
8090 |
object V1430; |
object V1467; |
8091 |
object V1431; |
object V1468; |
8092 |
object V1432; |
object V1469; |
8093 |
if(type_of((V1427))==t_cons){ |
if(type_of((V1464))==t_cons){ |
8094 |
|
goto T2914;} |
8095 |
|
V1466= Cnil; |
8096 |
|
goto T2913; |
8097 |
|
goto T2914; |
8098 |
|
T2914:; |
8099 |
|
if(!((CMPcar((V1464)))==(VV[163]))){ |
8100 |
|
goto T2918;} |
8101 |
|
goto T2916; |
8102 |
|
goto T2918; |
8103 |
|
T2918:; |
8104 |
|
if((CMPcar((V1464)))==(VV[164])){ |
8105 |
goto T2916;} |
goto T2916;} |
8106 |
V1429= Cnil; |
V1466= Cnil; |
8107 |
goto T2915; |
goto T2913; |
8108 |
goto T2916; |
goto T2916; |
8109 |
T2916:; |
T2916:; |
8110 |
if(!((CMPcar((V1427)))==(VV[163]))){ |
V1466= (((V1465))==(CMPcadr((V1464)))?Ct:Cnil); |
8111 |
goto T2920;} |
goto T2913; |
8112 |
goto T2918; |
T2913:; |
8113 |
|
if(((V1466))==Cnil){ |
8114 |
|
goto T2922;} |
8115 |
|
V1467= CMPcddr((V1464)); |
8116 |
goto T2920; |
goto T2920; |
|
T2920:; |
|
|
if((CMPcar((V1427)))==(VV[164])){ |
|
|
goto T2918;} |
|
|
V1429= Cnil; |
|
|
goto T2915; |
|
|
goto T2918; |
|
|
T2918:; |
|
|
V1429= (((V1428))==(CMPcadr((V1427)))?Ct:Cnil); |
|
|
goto T2915; |
|
|
T2915:; |
|
|
if(((V1429))==Cnil){ |
|
|
goto T2924;} |
|
|
V1430= CMPcddr((V1427)); |
|
|
goto T2922; |
|
|
goto T2924; |
|
|
T2924:; |
|
|
V1433= list(2,Ct,(V1427)); |
|
|
V1430= make_cons(/* INLINE-ARGS */V1433,Cnil); |
|
8117 |
goto T2922; |
goto T2922; |
8118 |
T2922:; |
T2922:; |
8119 |
if(((*(LnkLI390))((V1426)))==Cnil){ |
V1470= list(2,Ct,(V1464)); |
8120 |
goto T2928;} |
V1467= make_cons(/* INLINE-ARGS */V1470,Cnil); |
8121 |
if(((V1429))==Cnil){ |
goto T2920; |
8122 |
goto T2933;} |
T2920:; |
8123 |
if(!((CMPcar((V1427)))==(VV[164]))){ |
if(((*(LnkLI385))((V1463)))==Cnil){ |
8124 |
goto T2928;} |
goto T2926;} |
8125 |
goto T2931; |
if(((V1466))==Cnil){ |
8126 |
goto T2933; |
goto T2931;} |
8127 |
T2933:; |
if(!((CMPcar((V1464)))==(VV[164]))){ |
8128 |
if(((*(LnkLI390))((V1427)))==Cnil){ |
goto T2926;} |
8129 |
goto T2928;} |
goto T2929; |
8130 |
goto T2931; |
goto T2931; |
8131 |
T2931:; |
T2931:; |
8132 |
V1431= VV[164]; |
if(((*(LnkLI385))((V1464)))==Cnil){ |
8133 |
goto T2926; |
goto T2926;} |
8134 |
goto T2928; |
goto T2929; |
8135 |
T2928:; |
T2929:; |
8136 |
V1431= VV[163]; |
V1468= VV[164]; |
8137 |
|
goto T2924; |
8138 |
goto T2926; |
goto T2926; |
8139 |
T2926:; |
T2926:; |
8140 |
V1432= make_cons(CMPcadr((V1425)),Cnil); |
V1468= VV[163]; |
8141 |
base[8]= listA(4,(V1431),(V1428),list(2,(V1432),(V1426)),(V1430)); |
goto T2924; |
8142 |
|
T2924:; |
8143 |
|
V1469= make_cons(CMPcadr((V1462)),Cnil); |
8144 |
|
base[8]= listA(4,(V1468),(V1465),list(2,(V1469),(V1463)),(V1467)); |
8145 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
8146 |
return;} |
return;} |
8147 |
goto T2913; |
goto T2911; |
8148 |
T2913:; |
T2911:; |
8149 |
{object V1435; |
{object V1472; |
8150 |
V1435= (*(LnkLI389))((V1424)); |
V1472= (*(LnkLI384))((V1461)); |
8151 |
{object V1436= CMPcar((V1425)); |
{object V1473= CMPcar((V1462)); |
8152 |
if((V1436!= VV[340]))goto T2938; |
if((V1473!= VV[335]))goto T2936; |
8153 |
V1434= list(3,VV[166],(V1435),CMPcadr((V1425))); |
V1471= list(3,VV[166],(V1472),CMPcadr((V1462))); |
8154 |
goto T2936; |
goto T2934; |
|
goto T2938; |
|
|
T2938:; |
|
|
if((V1436!= VV[109]))goto T2939; |
|
|
V1434= list(3,VV[167],(V1435),CMPcadr((V1425))); |
|
|
goto T2936; |
|
|
goto T2939; |
|
|
T2939:; |
|
|
V1434= Cnil;}} |
|
8155 |
goto T2936; |
goto T2936; |
8156 |
T2936:; |
T2936:; |
8157 |
V1437 = (V1426); |
if((V1473!= VV[109]))goto T2937; |
8158 |
V1438 = (V1427); |
V1471= list(3,VV[167],(V1472),CMPcadr((V1462))); |
8159 |
base[4]= list(4,VV[165],V1434,V1437,V1438); |
goto T2934; |
8160 |
|
goto T2937; |
8161 |
|
T2937:; |
8162 |
|
V1471= Cnil;}} |
8163 |
|
goto T2934; |
8164 |
|
T2934:; |
8165 |
|
V1474 = (V1463); |
8166 |
|
V1475 = (V1464); |
8167 |
|
base[4]= list(4,VV[165],V1471,V1474,V1475); |
8168 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8169 |
return;} |
return;} |
8170 |
} |
} |
8176 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8177 |
register object *sup=base+VM122; VC122 |
register object *sup=base+VM122; VC122 |
8178 |
vs_check; |
vs_check; |
8179 |
{register object V1439; |
{register object V1476; |
8180 |
object V1440; |
object V1477; |
8181 |
check_arg(2); |
check_arg(2); |
8182 |
V1439=(base[0]); |
V1476=(base[0]); |
8183 |
V1440=(base[1]); |
V1477=(base[1]); |
8184 |
vs_top=sup; |
vs_top=sup; |
8185 |
if(((base0[1]->c.c_car))!=Cnil){ |
if(((base0[1]->c.c_car))!=Cnil){ |
8186 |
goto T2940;} |
goto T2938;} |
8187 |
base[2]=alloc_frame_id(); |
base[2]=alloc_frame_id(); |
8188 |
base[2]=MMcons(base[2],base0[0]); |
base[2]=MMcons(base[2],base0[0]); |
8189 |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
8191 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
8192 |
vs_top=sup; |
vs_top=sup; |
8193 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8194 |
goto T2941;} |
goto T2939;} |
8195 |
goto T2944;} |
goto T2942;} |
8196 |
else{ |
else{ |
8197 |
base[3]=MMcons(Cnil,base[2]); |
base[3]=MMcons(Cnil,base[2]); |
8198 |
base[4]= (V1439); |
base[4]= (V1476); |
8199 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8200 |
Lcopy_list(); |
Lcopy_list(); |
8201 |
vs_top=sup; |
vs_top=sup; |
8202 |
V1441= vs_base[0]; |
V1478= vs_base[0]; |
8203 |
V1442 = (base0[0]->c.c_car); |
V1479 = (base0[0]->c.c_car); |
8204 |
V1443= |
V1480= |
8205 |
make_cclosure_new(LC137,Cnil,base[3],Cdata); |
make_cclosure_new(LC137,Cnil,base[3],Cdata); |
8206 |
(void)((*(LnkLI388))(V1441,V1442,V1443)); |
(void)((*(LnkLI383))(V1478,V1479,V1480)); |
8207 |
V1439= (base[3]->c.c_car); |
V1476= (base[3]->c.c_car); |
8208 |
frs_pop(); |
frs_pop(); |
8209 |
} |
} |
8210 |
goto T2944; |
goto T2942; |
8211 |
T2944:; |
T2942:; |
8212 |
goto T2940; |
goto T2938; |
8213 |
T2940:; |
T2938:; |
8214 |
base[2]= list(3,VV[67],(V1439),(V1440)); |
base[2]= list(3,VV[67],(V1476),(V1477)); |
8215 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8216 |
return; |
return; |
8217 |
goto T2941; |
goto T2939; |
8218 |
T2941:; |
T2939:; |
8219 |
base[2]= list(3,VV[157],(V1439),(V1440)); |
base[2]= list(3,VV[157],(V1476),(V1477)); |
8220 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8221 |
return; |
return; |
8222 |
} |
} |
8228 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8229 |
register object *sup=base+VM123; VC123 |
register object *sup=base+VM123; VC123 |
8230 |
vs_check; |
vs_check; |
8231 |
{object V1444; |
{object V1481; |
8232 |
check_arg(1); |
check_arg(1); |
8233 |
V1444=(base[0]); |
V1481=(base[0]); |
8234 |
vs_top=sup; |
vs_top=sup; |
8235 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
8236 |
goto T2951;} |
goto T2949;} |
8237 |
{frame_ptr fr; |
{frame_ptr fr; |
8238 |
fr=frs_sch((base0[1]->c.c_car)); |
fr=frs_sch((base0[1]->c.c_car)); |
8239 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[391]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[386]); |
8240 |
base[1]= Cnil; |
base[1]= Cnil; |
8241 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8242 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
8243 |
goto T2951; |
goto T2949; |
8244 |
T2951:; |
T2949:; |
8245 |
(base0[0]->c.c_car)= (V1444); |
(base0[0]->c.c_car)= (V1481); |
8246 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8247 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8248 |
return; |
return; |
8255 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8256 |
register object *sup=base+VM124; VC124 |
register object *sup=base+VM124; VC124 |
8257 |
vs_check; |
vs_check; |
8258 |
{register object V1445; |
{register object V1482; |
8259 |
check_arg(1); |
check_arg(1); |
8260 |
V1445=(base[0]); |
V1482=(base[0]); |
8261 |
vs_top=sup; |
vs_top=sup; |
8262 |
goto TTL; |
goto TTL; |
8263 |
TTL:; |
TTL:; |
8264 |
if((base0[0])==Cnil){ |
if((base0[0])==Cnil){ |
8265 |
goto T2956;} |
goto T2954;} |
8266 |
{register object x= base0[0],V1446= (V1445); |
{register object x= base0[0],V1483= (V1482); |
8267 |
while(V1446!=Cnil) |
while(V1483!=Cnil) |
8268 |
if(x==(V1446->c.c_car)){ |
if(x==(V1483->c.c_car)){ |
8269 |
goto T2960; |
goto T2958; |
8270 |
}else V1446=V1446->c.c_cdr; |
}else V1483=V1483->c.c_cdr; |
8271 |
goto T2957;} |
goto T2955;} |
8272 |
goto T2960; |
goto T2958; |
8273 |
T2960:; |
T2958:; |
8274 |
goto T2956; |
goto T2954; |
8275 |
T2956:; |
T2954:; |
8276 |
{object V1447; |
{object V1484; |
8277 |
V1447= (*(LnkLI392))(base0[5],base0[7],(V1445),base0[6]); |
V1484= (*(LnkLI387))(base0[5],base0[7],(V1482),base0[6]); |
8278 |
if(((V1447))==Cnil){ |
if(((V1484))==Cnil){ |
8279 |
goto T2963;} |
goto T2961;} |
8280 |
V1448 = base0[9]; |
V1485 = base0[9]; |
8281 |
V1449= (VFUN_NARGS=3,(*(LnkLI393))(base0[1],(V1447),base0[9])); |
V1486= (VFUN_NARGS=3,(*(LnkLI388))(base0[1],(V1484),base0[9])); |
8282 |
if(!((V1448)==(/* INLINE-ARGS */V1449))){ |
if(!((V1485)==(/* INLINE-ARGS */V1486))){ |
8283 |
goto T2963;} |
goto T2961;} |
8284 |
{object V1450; |
{object V1487; |
8285 |
if(!((base0[2])==(Ct))){ |
if(!((base0[2])==(Ct))){ |
8286 |
goto T2969;} |
goto T2967;} |
8287 |
base[1]= base0[3]; |
base[1]= base0[3]; |
8288 |
base[2]= (V1445); |
base[2]= (V1482); |
8289 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8290 |
(void) (*Lnk394)(); |
(void) (*Lnk389)(); |
8291 |
vs_top=sup; |
vs_top=sup; |
8292 |
V1450= vs_base[0]; |
V1487= vs_base[0]; |
8293 |
goto T2967; |
goto T2965; |
|
goto T2969; |
|
|
T2969:; |
|
|
if(!((base0[2])==(VV[112]))){ |
|
|
goto T2974;} |
|
|
V1450= (*(LnkLI395))(base0[3],(V1445)); |
|
|
goto T2967; |
|
|
goto T2974; |
|
|
T2974:; |
|
|
V1450= Cnil; |
|
8294 |
goto T2967; |
goto T2967; |
8295 |
T2967:; |
T2967:; |
8296 |
base0[1]= (VFUN_NARGS=4,(*(LnkLI396))(base0[1],(V1447),(V1450),Ct)); |
if(!((base0[2])==(VV[112]))){ |
8297 |
|
goto T2972;} |
8298 |
|
V1487= (*(LnkLI390))(base0[3],(V1482)); |
8299 |
|
goto T2965; |
8300 |
|
goto T2972; |
8301 |
|
T2972:; |
8302 |
|
V1487= Cnil; |
8303 |
|
goto T2965; |
8304 |
|
T2965:; |
8305 |
|
base0[1]= (VFUN_NARGS=4,(*(LnkLI391))(base0[1],(V1484),(V1487),Ct)); |
8306 |
base[1]= base0[1]; |
base[1]= base0[1]; |
8307 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8308 |
return;} |
return;} |
8309 |
goto T2963; |
goto T2961; |
8310 |
T2963:; |
T2961:; |
8311 |
base[1]= Cnil; |
base[1]= Cnil; |
8312 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8313 |
return;} |
return;} |
8314 |
goto T2957; |
goto T2955; |
8315 |
T2957:; |
T2955:; |
8316 |
base[1]= Cnil; |
base[1]= Cnil; |
8317 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8318 |
return; |
return; |
8325 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8326 |
register object *sup=base+VM125; VC125 |
register object *sup=base+VM125; VC125 |
8327 |
vs_check; |
vs_check; |
8328 |
{object V1451; |
{object V1488; |
8329 |
check_arg(1); |
check_arg(1); |
8330 |
V1451=(base[0]); |
V1488=(base[0]); |
8331 |
vs_top=sup; |
vs_top=sup; |
8332 |
base[1]= (V1451); |
base[1]= (V1488); |
8333 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8334 |
(void) (*Lnk397)(Lclptr397); |
(void) (*Lnk392)(Lclptr392); |
8335 |
vs_top=sup; |
vs_top=sup; |
8336 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8337 |
goto T2978;} |
goto T2976;} |
8338 |
{register object V1452; |
{register object V1489; |
8339 |
register object V1453; |
register object V1490; |
8340 |
base[3]= (V1451); |
base[3]= (V1488); |
8341 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8342 |
(void) (*Lnk398)(Lclptr398); |
(void) (*Lnk393)(Lclptr393); |
8343 |
vs_top=sup; |
vs_top=sup; |
8344 |
V1452= vs_base[0]; |
V1489= vs_base[0]; |
8345 |
V1453= CMPcar((V1452)); |
V1490= CMPcar((V1489)); |
8346 |
goto T2985; |
goto T2983; |
8347 |
T2985:; |
T2983:; |
8348 |
if(!(((V1452))==Cnil)){ |
if(!(((V1489))==Cnil)){ |
8349 |
goto T2986;} |
goto T2984;} |
8350 |
base[3]= Cnil; |
base[3]= Cnil; |
8351 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8352 |
return; |
return; |
8353 |
goto T2986; |
goto T2984; |
8354 |
T2986:; |
T2984:; |
8355 |
base[3]= (V1453); |
base[3]= (V1490); |
8356 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
8357 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
8358 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
8359 |
(void) (*Lnk399)(Lclptr399); |
(void) (*Lnk394)(Lclptr394); |
8360 |
vs_top=sup; |
vs_top=sup; |
8361 |
V1452= CMPcdr((V1452)); |
V1489= CMPcdr((V1489)); |
8362 |
V1453= CMPcar((V1452)); |
V1490= CMPcar((V1489)); |
8363 |
goto T2985;} |
goto T2983;} |
8364 |
goto T2978; |
goto T2976; |
8365 |
T2978:; |
T2976:; |
8366 |
base[1]= Cnil; |
base[1]= Cnil; |
8367 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8368 |
return; |
return; |
8375 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8376 |
register object *sup=base+VM126; VC126 |
register object *sup=base+VM126; VC126 |
8377 |
vs_check; |
vs_check; |
8378 |
{object V1454; |
{object V1491; |
8379 |
check_arg(1); |
check_arg(1); |
8380 |
V1454=(base[0]); |
V1491=(base[0]); |
8381 |
vs_top=sup; |
vs_top=sup; |
8382 |
goto TTL; |
goto TTL; |
8383 |
TTL:; |
TTL:; |
8384 |
base[1]= (V1454); |
base[1]= (V1491); |
8385 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8386 |
(void) (*Lnk397)(Lclptr397); |
(void) (*Lnk392)(Lclptr392); |
8387 |
vs_top=sup; |
vs_top=sup; |
8388 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8389 |
goto T3000;} |
goto T2998;} |
8390 |
{register object V1455; |
{register object V1492; |
8391 |
register object V1456; |
register object V1493; |
8392 |
base[3]= (V1454); |
base[3]= (V1491); |
8393 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8394 |
(void) (*Lnk398)(Lclptr398); |
(void) (*Lnk393)(Lclptr393); |
8395 |
vs_top=sup; |
vs_top=sup; |
8396 |
V1455= vs_base[0]; |
V1492= vs_base[0]; |
8397 |
V1456= CMPcar((V1455)); |
V1493= CMPcar((V1492)); |
8398 |
goto T3007; |
goto T3005; |
8399 |
T3007:; |
T3005:; |
8400 |
if(!(((V1455))==Cnil)){ |
if(!(((V1492))==Cnil)){ |
8401 |
goto T3008;} |
goto T3006;} |
8402 |
base[3]= Cnil; |
base[3]= Cnil; |
8403 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8404 |
return; |
return; |
8405 |
goto T3008; |
goto T3006; |
8406 |
T3008:; |
T3006:; |
8407 |
base[3]= (V1456); |
base[3]= (V1493); |
8408 |
base[4]= (base0[1]->c.c_car); |
base[4]= (base0[1]->c.c_car); |
8409 |
base[5]= (base0[0]->c.c_car); |
base[5]= (base0[0]->c.c_car); |
8410 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
8411 |
(void) (*Lnk399)(Lclptr399); |
(void) (*Lnk394)(Lclptr394); |
8412 |
vs_top=sup; |
vs_top=sup; |
8413 |
V1455= CMPcdr((V1455)); |
V1492= CMPcdr((V1492)); |
8414 |
V1456= CMPcar((V1455)); |
V1493= CMPcar((V1492)); |
8415 |
goto T3007;} |
goto T3005;} |
8416 |
goto T3000; |
goto T2998; |
8417 |
T3000:; |
T2998:; |
8418 |
base[1]= Cnil; |
base[1]= Cnil; |
8419 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8420 |
return; |
return; |
8427 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8428 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM127; VC127 |
8429 |
vs_check; |
vs_check; |
8430 |
{object V1457; |
{object V1494; |
8431 |
check_arg(1); |
check_arg(1); |
8432 |
V1457=(base[0]); |
V1494=(base[0]); |
8433 |
vs_top=sup; |
vs_top=sup; |
8434 |
{register object x= (V1457),V1458= (base0[1]->c.c_car); |
{register object x= (V1494),V1495= (base0[1]->c.c_car); |
8435 |
while(V1458!=Cnil) |
while(V1495!=Cnil) |
8436 |
if(eql(x,V1458->c.c_car)){ |
if(eql(x,V1495->c.c_car)){ |
8437 |
goto T3021; |
goto T3019; |
8438 |
}else V1458=V1458->c.c_cdr;} |
}else V1495=V1495->c.c_cdr;} |
8439 |
{register object V1459; |
{register object V1496; |
8440 |
register object V1460; |
register object V1497; |
8441 |
V1459= (base0[0]->c.c_car); |
V1496= (base0[0]->c.c_car); |
8442 |
V1460= CMPcar((V1459)); |
V1497= CMPcar((V1496)); |
8443 |
goto T3029; |
goto T3027; |
8444 |
T3029:; |
T3027:; |
8445 |
if(!(((V1459))==Cnil)){ |
if(!(((V1496))==Cnil)){ |
8446 |
goto T3030;} |
goto T3028;} |
8447 |
goto T3022; |
goto T3020; |
8448 |
goto T3030; |
goto T3028; |
8449 |
T3030:; |
T3028:; |
8450 |
V1462 = (V1460); |
V1499 = (V1497); |
8451 |
base[2]= (*(LnkLI149))((V1457)); |
base[2]= (*(LnkLI149))((V1494)); |
8452 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8453 |
(void) (*Lnk155)(Lclptr155); |
(void) (*Lnk155)(Lclptr155); |
8454 |
vs_top=sup; |
vs_top=sup; |
8455 |
V1463= vs_base[0]; |
V1500= vs_base[0]; |
8456 |
{register object x= V1462,V1461= V1463; |
{register object x= V1499,V1498= V1500; |
8457 |
while(V1461!=Cnil) |
while(V1498!=Cnil) |
8458 |
if(eql(x,V1461->c.c_car)){ |
if(eql(x,V1498->c.c_car)){ |
8459 |
goto T3034; |
goto T3032; |
8460 |
}else V1461=V1461->c.c_cdr;} |
}else V1498=V1498->c.c_cdr;} |
8461 |
goto T3034; |
goto T3032; |
8462 |
T3034:; |
T3032:; |
8463 |
V1459= CMPcdr((V1459)); |
V1496= CMPcdr((V1496)); |
8464 |
V1460= CMPcar((V1459)); |
V1497= CMPcar((V1496)); |
8465 |
goto T3029;} |
goto T3027;} |
8466 |
goto T3021; |
goto T3019; |
8467 |
T3021:; |
T3019:; |
8468 |
base[1]= (*(LnkLI317))((V1457)); |
base[1]= (*(LnkLI312))((V1494)); |
8469 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8470 |
return; |
return; |
8471 |
goto T3022; |
goto T3020; |
8472 |
T3022:; |
T3020:; |
8473 |
base[1]= Cnil; |
base[1]= Cnil; |
8474 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8475 |
return; |
return; |
8482 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8483 |
register object *sup=base+VM128; VC128 |
register object *sup=base+VM128; VC128 |
8484 |
vs_check; |
vs_check; |
8485 |
{object V1464; |
{object V1501; |
8486 |
check_arg(1); |
check_arg(1); |
8487 |
V1464=(base[0]); |
V1501=(base[0]); |
8488 |
vs_top=sup; |
vs_top=sup; |
8489 |
{register object x= (V1464),V1465= (base0[0]->c.c_car); |
{register object x= (V1501),V1502= (base0[0]->c.c_car); |
8490 |
while(V1465!=Cnil) |
while(V1502!=Cnil) |
8491 |
if(eql(x,V1465->c.c_car)){ |
if(eql(x,V1502->c.c_car)){ |
8492 |
base[1]= V1465; |
base[1]= V1502; |
8493 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8494 |
return; |
return; |
8495 |
}else V1465=V1465->c.c_cdr; |
}else V1502=V1502->c.c_cdr; |
8496 |
base[1]= Cnil; |
base[1]= Cnil; |
8497 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8498 |
return;} |
return;} |
8505 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8506 |
register object *sup=base+VM129; VC129 |
register object *sup=base+VM129; VC129 |
8507 |
vs_check; |
vs_check; |
8508 |
{object V1466; |
{object V1503; |
8509 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8510 |
{object *p=vs_top; |
{object *p=vs_top; |
8511 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8512 |
V1466=(base[0]); |
V1503=(base[0]); |
8513 |
vs_top=sup; |
vs_top=sup; |
8514 |
{object V1467; |
{object V1504; |
8515 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8516 |
base[2]= (V1466); |
base[2]= (V1503); |
8517 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8518 |
(void) (*Lnk115)(Lclptr115); |
(void) (*Lnk115)(Lclptr115); |
8519 |
vs_top=sup; |
vs_top=sup; |
8520 |
V1467= vs_base[0]; |
V1504= vs_base[0]; |
8521 |
if(((V1467))==Cnil){ |
if(((V1504))==Cnil){ |
8522 |
goto T3046;} |
goto T3044;} |
8523 |
{object V1468; |
{object V1505; |
8524 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8525 |
base[2]= (V1467); |
base[2]= (V1504); |
8526 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8527 |
(void) (*Lnk312)(); |
(void) (*Lnk307)(); |
8528 |
vs_top=sup; |
vs_top=sup; |
8529 |
V1468= vs_base[0]; |
V1505= vs_base[0]; |
8530 |
base[1]= (V1468); |
base[1]= (V1505); |
8531 |
base[2]= (V1466); |
base[2]= (V1503); |
8532 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8533 |
(void) (*Lnk379)(); |
(void) (*Lnk374)(); |
8534 |
return;} |
return;} |
8535 |
goto T3046; |
goto T3044; |
8536 |
T3046:; |
T3044:; |
8537 |
base[1]=VV[400]->s.s_gfdef; |
base[1]=VV[395]->s.s_gfdef; |
8538 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8539 |
{object V1469; |
{object V1506; |
8540 |
V1469= (V1466); |
V1506= (V1503); |
8541 |
vs_top=base+3; |
vs_top=base+3; |
8542 |
while(V1469!=Cnil) |
while(V1506!=Cnil) |
8543 |
{vs_push((V1469)->c.c_car);V1469=(V1469)->c.c_cdr;} |
{vs_push((V1506)->c.c_car);V1506=(V1506)->c.c_cdr;} |
8544 |
vs_base=base+2;} |
vs_base=base+2;} |
8545 |
(void) (*Lnk400)(Lclptr400); |
(void) (*Lnk395)(Lclptr395); |
8546 |
return;} |
return;} |
8547 |
} |
} |
8548 |
} |
} |
8553 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8554 |
register object *sup=base+VM130; VC130 |
register object *sup=base+VM130; VC130 |
8555 |
vs_check; |
vs_check; |
8556 |
{object V1470; |
{object V1507; |
8557 |
object V1471; |
object V1508; |
8558 |
check_arg(2); |
check_arg(2); |
8559 |
V1470=(base[0]); |
V1507=(base[0]); |
8560 |
V1471=(base[1]); |
V1508=(base[1]); |
8561 |
vs_top=sup; |
vs_top=sup; |
8562 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8563 |
{object V1472; |
{object V1509; |
8564 |
V1472= (V1470); |
V1509= (V1507); |
8565 |
vs_top=base+3; |
vs_top=base+3; |
8566 |
while(V1472!=Cnil) |
while(V1509!=Cnil) |
8567 |
{vs_push((V1472)->c.c_car);V1472=(V1472)->c.c_cdr;} |
{vs_push((V1509)->c.c_car);V1509=(V1509)->c.c_cdr;} |
8568 |
vs_base=base+3;} |
vs_base=base+3;} |
8569 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8570 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8580 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8581 |
register object *sup=base+VM131; VC131 |
register object *sup=base+VM131; VC131 |
8582 |
vs_check; |
vs_check; |
8583 |
{object V1473; |
{object V1510; |
8584 |
object V1474; |
object V1511; |
8585 |
object V1475; |
object V1512; |
8586 |
check_arg(3); |
check_arg(3); |
8587 |
V1473=(base[0]); |
V1510=(base[0]); |
8588 |
V1474=(base[1]); |
V1511=(base[1]); |
8589 |
V1475=(base[2]); |
V1512=(base[2]); |
8590 |
vs_top=sup; |
vs_top=sup; |
8591 |
goto TTL; |
goto TTL; |
8592 |
TTL:; |
TTL:; |
8593 |
base[3]= VV[84]; |
base[3]= VV[84]; |
8594 |
base[4]= base0[2]; |
base[4]= base0[2]; |
8595 |
base[5]= (V1473); |
base[5]= (V1510); |
8596 |
base[6]= (V1474); |
base[6]= (V1511); |
8597 |
base[7]= (V1475); |
base[7]= (V1512); |
8598 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
8599 |
Lerror(); |
Lerror(); |
8600 |
return; |
return; |
8607 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8608 |
register object *sup=base+VM132; VC132 |
register object *sup=base+VM132; VC132 |
8609 |
vs_check; |
vs_check; |
8610 |
{object V1476; |
{object V1513; |
8611 |
object V1477; |
object V1514; |
8612 |
object V1478; |
object V1515; |
8613 |
check_arg(3); |
check_arg(3); |
8614 |
V1476=(base[0]); |
V1513=(base[0]); |
8615 |
V1477=(base[1]); |
V1514=(base[1]); |
8616 |
V1478=(base[2]); |
V1515=(base[2]); |
8617 |
vs_top=sup; |
vs_top=sup; |
8618 |
goto TTL; |
goto TTL; |
8619 |
TTL:; |
TTL:; |
8620 |
base[3]= VV[57]; |
base[3]= VV[57]; |
8621 |
base[4]= base0[2]; |
base[4]= base0[2]; |
8622 |
base[5]= (V1476); |
base[5]= (V1513); |
8623 |
base[6]= (V1477); |
base[6]= (V1514); |
8624 |
base[7]= (V1478); |
base[7]= (V1515); |
8625 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
8626 |
Lerror(); |
Lerror(); |
8627 |
return; |
return; |
8657 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
8658 |
unwind(frs_sch(base0[4]),Cnil); |
unwind(frs_sch(base0[4]),Cnil); |
8659 |
} |
} |
8660 |
static void LnkT400(ptr) object *ptr;{ call_or_link_closure(VV[400],(void **)(void *)&Lnk400,(void **)(void *)&Lclptr400);} /* NO-APPLICABLE-METHOD */ |
static void LnkT395(ptr) object *ptr;{ call_or_link_closure(VV[395],(void **)(void *)&Lnk395,(void **)(void *)&Lclptr395);} /* NO-APPLICABLE-METHOD */ |
8661 |
static void LnkT115(ptr) object *ptr;{ call_or_link_closure(VV[115],(void **)(void *)&Lnk115,(void **)(void *)&Lclptr115);} /* COMPUTE-APPLICABLE-METHODS */ |
static void LnkT115(ptr) object *ptr;{ call_or_link_closure(VV[115],(void **)(void *)&Lnk115,(void **)(void *)&Lclptr115);} /* COMPUTE-APPLICABLE-METHODS */ |
8662 |
static void LnkT399(ptr) object *ptr;{ call_or_link_closure(VV[399],(void **)(void *)&Lnk399,(void **)(void *)&Lclptr399);} /* COMPUTE-SLOT-ACCESSOR-INFO */ |
static void LnkT394(ptr) object *ptr;{ call_or_link_closure(VV[394],(void **)(void *)&Lnk394,(void **)(void *)&Lclptr394);} /* COMPUTE-SLOT-ACCESSOR-INFO */ |
8663 |
static void LnkT398(ptr) object *ptr;{ call_or_link_closure(VV[398],(void **)(void *)&Lnk398,(void **)(void *)&Lclptr398);} /* CLASS-SLOTS */ |
static void LnkT393(ptr) object *ptr;{ call_or_link_closure(VV[393],(void **)(void *)&Lnk393,(void **)(void *)&Lclptr393);} /* CLASS-SLOTS */ |
8664 |
static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)(void *)&Lnk397,(void **)(void *)&Lclptr397);} /* CLASS-FINALIZED-P */ |
static void LnkT392(ptr) object *ptr;{ call_or_link_closure(VV[392],(void **)(void *)&Lnk392,(void **)(void *)&Lclptr392);} /* CLASS-FINALIZED-P */ |
8665 |
static object LnkTLI396(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[396],(void **)(void *)&LnkLI396,first,ap);va_end(ap);return V1;} /* FILL-CACHE */ |
static object LnkTLI391(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[391],(void **)(void *)&LnkLI391,first,ap);va_end(ap);return V1;} /* FILL-CACHE */ |
8666 |
static object LnkTLI395(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[395],(void **)(void *)&LnkLI395,2,first,ap);va_end(ap);return V1;} /* VALUE-FOR-CACHING */ |
static object LnkTLI390(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[390],(void **)(void *)&LnkLI390,2,first,ap);va_end(ap);return V1;} /* VALUE-FOR-CACHING */ |
8667 |
static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* SDFUN-FOR-CACHING */ |
static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* SDFUN-FOR-CACHING */ |
8668 |
static object LnkTLI393(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[393],(void **)(void *)&LnkLI393,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */ |
static object LnkTLI388(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[388],(void **)(void *)&LnkLI388,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */ |
8669 |
static object LnkTLI392(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[392],(void **)(void *)&LnkLI392,4,first,ap);va_end(ap);return V1;} /* GET-WRAPPERS-FROM-CLASSES */ |
static object LnkTLI387(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[387],(void **)(void *)&LnkLI387,4,first,ap);va_end(ap);return V1;} /* GET-WRAPPERS-FROM-CLASSES */ |
8670 |
static object LnkTLI390(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[390],(void **)(void *)&LnkLI390,1,first,ap);va_end(ap);return V1;} /* DNET-METHODS-P */ |
static object LnkTLI385(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[385],(void **)(void *)&LnkLI385,1,first,ap);va_end(ap);return V1;} /* DNET-METHODS-P */ |
8671 |
static object LnkTLI389(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[389],(void **)(void *)&LnkLI389,1,first,ap);va_end(ap);return V1;} /* DFUN-ARG-SYMBOL */ |
static object LnkTLI384(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[384],(void **)(void *)&LnkLI384,1,first,ap);va_end(ap);return V1;} /* DFUN-ARG-SYMBOL */ |
8672 |
static object LnkTLI388(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[388],(void **)(void *)&LnkLI388,3,first,ap);va_end(ap);return V1;} /* MAP-ALL-ORDERS */ |
static object LnkTLI383(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[383],(void **)(void *)&LnkLI383,3,first,ap);va_end(ap);return V1;} /* MAP-ALL-ORDERS */ |
8673 |
static object LnkTLI387(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[387],(void **)(void *)&LnkLI387,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
static object LnkTLI382(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[382],(void **)(void *)&LnkLI382,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
8674 |
static object LnkTLI386(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[386],(void **)(void *)&LnkLI386,1,first,ap);va_end(ap);return V1;} /* CLASS-FROM-TYPE */ |
static object LnkTLI381(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[381],(void **)(void *)&LnkLI381,1,first,ap);va_end(ap);return V1;} /* CLASS-FROM-TYPE */ |
8675 |
static object LnkTLI385(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[385],(void **)(void *)&LnkLI385,2,first,ap);va_end(ap);return V1;} /* AUGMENT-TYPE */ |
static object LnkTLI380(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[380],(void **)(void *)&LnkLI380,2,first,ap);va_end(ap);return V1;} /* AUGMENT-TYPE */ |
8676 |
static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */ |
static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */ |
8677 |
static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* TYPE-FROM-SPECIALIZER */ |
static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* TYPE-FROM-SPECIALIZER */ |
8678 |
static object LnkTLI382(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[382],(void **)(void *)&LnkLI382,2,first,ap);va_end(ap);return V1;} /* NET-CONSTANT-CONVERTER */ |
static object LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[377],(void **)(void *)&LnkLI377,2,first,ap);va_end(ap);return V1;} /* NET-CONSTANT-CONVERTER */ |
8679 |
static object LnkTLI381(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[381],(void **)(void *)&LnkLI381,first,ap);va_end(ap);return V1;} /* MAKE-FAST-METHOD-CALL */ |
static object LnkTLI376(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[376],(void **)(void *)&LnkLI376,first,ap);va_end(ap);return V1;} /* MAKE-FAST-METHOD-CALL */ |
8680 |
static object LnkTLI380(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[380],(void **)(void *)&LnkLI380,3,first,ap);va_end(ap);return V1;} /* CONVERT-TABLE */ |
static object LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[375],(void **)(void *)&LnkLI375,3,first,ap);va_end(ap);return V1;} /* CONVERT-TABLE */ |
8681 |
static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* INVOKE-EMF */ |
static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* INVOKE-EMF */ |
8682 |
static object LnkTLI378(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[378],(void **)(void *)&LnkLI378,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */ |
static object LnkTLI373(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[373],(void **)(void *)&LnkLI373,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */ |
8683 |
static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* UNION */ |
static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* UNION */ |
8684 |
static void LnkT376(ptr) object *ptr;{ call_or_link_closure(VV[376],(void **)(void *)&Lnk376,(void **)(void *)&Lclptr376);} /* FUNCTION-KEYWORDS */ |
static void LnkT371(ptr) object *ptr;{ call_or_link_closure(VV[371],(void **)(void *)&Lnk371,(void **)(void *)&Lclptr371);} /* FUNCTION-KEYWORDS */ |
8685 |
static void LnkT375(ptr) object *ptr;{ call_or_link_closure(VV[375],(void **)(void *)&Lnk375,(void **)(void *)&Lclptr375);} /* METHOD-PRETTY-ARGLIST */ |
static void LnkT370(ptr) object *ptr;{ call_or_link_closure(VV[370],(void **)(void *)&Lnk370,(void **)(void *)&Lclptr370);} /* METHOD-PRETTY-ARGLIST */ |
8686 |
static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* REMOVE-IF */ |
static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* REMOVE-IF */ |
8687 |
static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* ANALYZE-LAMBDA-LIST */ |
static void LnkT368(){ call_or_link(VV[368],(void **)(void *)&Lnk368);} /* ANALYZE-LAMBDA-LIST */ |
8688 |
static object LnkTLI372(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[372],(void **)(void *)&LnkLI372,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */ |
static object LnkTLI367(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[367],(void **)(void *)&LnkLI367,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */ |
8689 |
static object LnkTLI371(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[371],(void **)(void *)&LnkLI371,first,ap);va_end(ap);return V1;} /* SET-DFUN */ |
static object LnkTLI366(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[366],(void **)(void *)&LnkLI366,first,ap);va_end(ap);return V1;} /* SET-DFUN */ |
8690 |
static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* MAKE-FINAL-DFUN-INTERNAL */ |
static void LnkT365(){ call_or_link(VV[365],(void **)(void *)&Lnk365);} /* MAKE-FINAL-DFUN-INTERNAL */ |
8691 |
static object LnkTLI369(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[369],(void **)(void *)&LnkLI369,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */ |
static object LnkTLI364(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[364],(void **)(void *)&LnkLI364,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */ |
8692 |
static object LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-DFUN */ |
static object LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[363],(void **)(void *)&LnkLI363,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-DFUN */ |
8693 |
static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* UPDATE-SLOT-VALUE-GF-INFO */ |
static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* UPDATE-SLOT-VALUE-GF-INFO */ |
8694 |
static object LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,1,first,ap);va_end(ap);return V1;} /* UPDATE-ALL-C-A-M-GF-INFO */ |
static object LnkTLI358(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[358],(void **)(void *)&LnkLI358,1,first,ap);va_end(ap);return V1;} /* UPDATE-ALL-C-A-M-GF-INFO */ |
8695 |
static void LnkT362(ptr) object *ptr;{ call_or_link_closure(VV[362],(void **)(void *)&Lnk362,(void **)(void *)&Lclptr362);} /* PCL DFUN-STATE slot READER */ |
static void LnkT357(ptr) object *ptr;{ call_or_link_closure(VV[357],(void **)(void *)&Lnk357,(void **)(void *)&Lclptr357);} /* PCL DFUN-STATE slot READER */ |
8696 |
static void LnkT361(ptr) object *ptr;{ call_or_link_closure(VV[361],(void **)(void *)&Lnk361,(void **)(void *)&Lclptr361);} /* SLOT-DEFINITION-BOUNDP-FUNCTION */ |
static void LnkT356(ptr) object *ptr;{ call_or_link_closure(VV[356],(void **)(void *)&Lnk356,(void **)(void *)&Lclptr356);} /* SLOT-DEFINITION-BOUNDP-FUNCTION */ |
8697 |
static void LnkT360(ptr) object *ptr;{ call_or_link_closure(VV[360],(void **)(void *)&Lnk360,(void **)(void *)&Lclptr360);} /* SLOT-DEFINITION-WRITER-FUNCTION */ |
static void LnkT355(ptr) object *ptr;{ call_or_link_closure(VV[355],(void **)(void *)&Lnk355,(void **)(void *)&Lclptr355);} /* SLOT-DEFINITION-WRITER-FUNCTION */ |
8698 |
static void LnkT359(ptr) object *ptr;{ call_or_link_closure(VV[359],(void **)(void *)&Lnk359,(void **)(void *)&Lclptr359);} /* SLOT-DEFINITION-READER-FUNCTION */ |
static void LnkT354(ptr) object *ptr;{ call_or_link_closure(VV[354],(void **)(void *)&Lnk354,(void **)(void *)&Lclptr354);} /* SLOT-DEFINITION-READER-FUNCTION */ |
8699 |
static void LnkT358(){ call_or_link(VV[358],(void **)(void *)&Lnk358);} /* GET-FUNCTION1 */ |
static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* GET-FUNCTION1 */ |
8700 |
static object LnkTLI355(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[355],(void **)(void *)&LnkLI355,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CALL */ |
static object LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[350],(void **)(void *)&LnkLI350,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CALL */ |
8701 |
static object LnkTLI354(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[354],(void **)(void *)&LnkLI354,4,first,ap);va_end(ap);return V1;} /* MAKE-DISPATCH-LAMBDA */ |
static object LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,4,first,ap);va_end(ap);return V1;} /* MAKE-DISPATCH-LAMBDA */ |
8702 |
static object LnkTLI353(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[353],(void **)(void *)&LnkLI353,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */ |
static object LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */ |
8703 |
static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* CONVERT-METHODS */ |
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* CONVERT-METHODS */ |
8704 |
static object LnkTLI351(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[351],(void **)(void *)&LnkLI351,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
8705 |
static object LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[350],(void **)(void *)&LnkLI350,first,ap);va_end(ap);return V1;} /* GET-EFFECTIVE-METHOD-FUNCTION1 */ |
static object LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[345],(void **)(void *)&LnkLI345,first,ap);va_end(ap);return V1;} /* GET-EFFECTIVE-METHOD-FUNCTION1 */ |
8706 |
static object LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,1,first,ap);va_end(ap);return V1;} /* DEFAULT-CONSTANT-CONVERTER */ |
static object LnkTLI344(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[344],(void **)(void *)&LnkLI344,1,first,ap);va_end(ap);return V1;} /* DEFAULT-CONSTANT-CONVERTER */ |
8707 |
static object LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,2,first,ap);va_end(ap);return V1;} /* METHODS-CONVERTER */ |
static object LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)(void *)&LnkLI343,2,first,ap);va_end(ap);return V1;} /* METHODS-CONVERTER */ |
8708 |
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* DEFAULT-CODE-CONVERTER */ |
static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* DEFAULT-CODE-CONVERTER */ |
8709 |
static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,1,first,ap);va_end(ap);return V1;} /* COMPUTE-MCASE-PARAMETERS */ |
static object LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,1,first,ap);va_end(ap);return V1;} /* COMPUTE-MCASE-PARAMETERS */ |
8710 |
static object LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)(void *)&LnkLI343,1,first,ap);va_end(ap);return V1;} /* DEFAULT-TEST-CONVERTER */ |
static object LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,1,first,ap);va_end(ap);return V1;} /* DEFAULT-TEST-CONVERTER */ |
8711 |
static object LnkTLI342(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[342],(void **)(void *)&LnkLI342,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)(void *)&LnkLI337,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
8712 |
static object LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */ |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */ |
8713 |
static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */ |
static void LnkT334(){ call_or_link(VV[334],(void **)(void *)&Lnk334);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */ |
8714 |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)(void *)&LnkLI337,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */ |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */ |
8715 |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,2,first,ap);va_end(ap);return V1;} /* MEC-ALL-CLASS-LISTS */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,2,first,ap);va_end(ap);return V1;} /* MEC-ALL-CLASS-LISTS */ |
8716 |
static object LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[335],(void **)(void *)&LnkLI335,2,first,ap);va_end(ap);return V1;} /* MEC-ALL-CLASSES */ |
static object LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,2,first,ap);va_end(ap);return V1;} /* MEC-ALL-CLASSES */ |
8717 |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[334],(void **)(void *)&LnkLI334,2,first,ap);va_end(ap);return V1;} /* MEC-ALL-CLASSES-INTERNAL */ |
static object LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,2,first,ap);va_end(ap);return V1;} /* MEC-ALL-CLASSES-INTERNAL */ |
8718 |
static void LnkT333(ptr) object *ptr;{ call_or_link_closure(VV[333],(void **)(void *)&Lnk333,(void **)(void *)&Lclptr333);} /* CLASS-DIRECT-SUBCLASSES */ |
static void LnkT328(ptr) object *ptr;{ call_or_link_closure(VV[328],(void **)(void *)&Lnk328,(void **)(void *)&Lclptr328);} /* CLASS-DIRECT-SUBCLASSES */ |
8719 |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,2,first,ap);va_end(ap);return V1;} /* SET-STRUCTURE-SVUC-METHOD */ |
static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,2,first,ap);va_end(ap);return V1;} /* SET-STRUCTURE-SVUC-METHOD */ |
8720 |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,2,first,ap);va_end(ap);return V1;} /* SET-STANDARD-SVUC-METHOD */ |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* SET-STANDARD-SVUC-METHOD */ |
8721 |
static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* MAP-ALL-CLASSES */ |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* MAP-ALL-CLASSES */ |
8722 |
static object LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,2,first,ap);va_end(ap);return V1;} /* UPDATE-STD-OR-STR-METHODS */ |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* UPDATE-STD-OR-STR-METHODS */ |
8723 |
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION */ |
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* GET-ACCESSOR-FROM-SVUC-METHOD-FUNCTION */ |
8724 |
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
8725 |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
static object LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
8726 |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION */ |
static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION */ |
8727 |
static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION */ |
static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION */ |
8728 |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SVUC-METHOD */ |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SVUC-METHOD */ |
8729 |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,1,first,ap);va_end(ap);return V1;} /* STANDARD-SVUC-METHOD */ |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,1,first,ap);va_end(ap);return V1;} /* STANDARD-SVUC-METHOD */ |
8730 |
static void LnkT321(ptr) object *ptr;{ call_or_link_closure(VV[321],(void **)(void *)&Lnk321,(void **)(void *)&Lclptr321);} /* GENERIC-FUNCTION-METHOD-COMBINATION */ |
static void LnkT316(ptr) object *ptr;{ call_or_link_closure(VV[316],(void **)(void *)&Lnk316,(void **)(void *)&Lclptr316);} /* GENERIC-FUNCTION-METHOD-COMBINATION */ |
8731 |
static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* COMPUTE-APPLICABLE-METHODS-EMF */ |
static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* COMPUTE-APPLICABLE-METHODS-EMF */ |
8732 |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */ |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */ |
8733 |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,1,first,ap);va_end(ap);return V1;} /* UPDATE-GF-SIMPLE-ACCESSOR-TYPE */ |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,1,first,ap);va_end(ap);return V1;} /* UPDATE-GF-SIMPLE-ACCESSOR-TYPE */ |
8734 |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,1,first,ap);va_end(ap);return V1;} /* UPDATE-C-A-M-GF-INFO */ |
static object LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,1,first,ap);va_end(ap);return V1;} /* UPDATE-C-A-M-GF-INFO */ |
8735 |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */ |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */ |
8736 |
static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* GF-ARG-INFO */ |
static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* GF-ARG-INFO */ |
8737 |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,2,first,ap);va_end(ap);return V1;} /* LIST-EQ */ |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,2,first,ap);va_end(ap);return V1;} /* LIST-EQ */ |
8738 |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* GET-EFFECTIVE-METHOD-FUNCTION */ |
static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* GET-EFFECTIVE-METHOD-FUNCTION */ |
8739 |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
8740 |
static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* METHOD-FUNCTION */ |
static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* METHOD-FUNCTION */ |
8741 |
static void LnkT309(ptr) object *ptr;{ call_or_link_closure(VV[309],(void **)(void *)&Lnk309,(void **)(void *)&Lclptr309);} /* METHOD-FAST-FUNCTION */ |
static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* METHOD-FAST-FUNCTION */ |
8742 |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[308],(void **)(void *)&LnkLI308,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[304],(void **)(void *)&LnkLI304,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
8743 |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[307],(void **)(void *)&LnkLI307,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */ |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)(void *)&LnkLI303,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */ |
8744 |
static void LnkT306(){ call_or_link(VV[306],(void **)(void *)&Lnk306);} /* CLASS-EQ-TYPE */ |
static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* CLASS-EQ-TYPE */ |
8745 |
static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* CLASS-WRAPPER */ |
static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* CLASS-WRAPPER */ |
8746 |
static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* GET-GENERIC-FUNCTION-INFO */ |
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* GET-GENERIC-FUNCTION-INFO */ |
8747 |
static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* LISP OBJECT slot READER */ |
static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* LISP OBJECT slot READER */ |
8748 |
static void LnkT302(ptr) object *ptr;{ call_or_link_closure(VV[302],(void **)(void *)&Lnk302,(void **)(void *)&Lclptr302);} /* SPECIALIZER-OBJECT */ |
static void LnkT298(ptr) object *ptr;{ call_or_link_closure(VV[298],(void **)(void *)&Lnk298,(void **)(void *)&Lclptr298);} /* SPECIALIZER-OBJECT */ |
8749 |
static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* SPECIALIZER-CLASS */ |
static void LnkT297(ptr) object *ptr;{ call_or_link_closure(VV[297],(void **)(void *)&Lnk297,(void **)(void *)&Lclptr297);} /* SPECIALIZER-CLASS */ |
8750 |
static void LnkT155(ptr) object *ptr;{ call_or_link_closure(VV[155],(void **)(void *)&Lnk155,(void **)(void *)&Lclptr155);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT155(ptr) object *ptr;{ call_or_link_closure(VV[155],(void **)(void *)&Lnk155,(void **)(void *)&Lclptr155);} /* CLASS-PRECEDENCE-LIST */ |
8751 |
static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* SETF PCL CLASS-INCOMPATIBLE-SUPERCLASS-LIST */ |
static void LnkT296(ptr) object *ptr;{ call_or_link_closure(VV[296],(void **)(void *)&Lnk296,(void **)(void *)&Lclptr296);} /* CLASS-INCOMPATIBLE-SUPERCLASS-LIST */ |
8752 |
static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* CLASS-INCOMPATIBLE-SUPERCLASS-LIST */ |
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */ |
8753 |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */ |
static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* TYPES-FROM-ARGUMENTS */ |
8754 |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* TYPES-FROM-ARGUMENTS */ |
static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* REMOVE-DIRECT-METHOD */ |
8755 |
static void LnkT296(ptr) object *ptr;{ call_or_link_closure(VV[296],(void **)(void *)&Lnk296,(void **)(void *)&Lclptr296);} /* REMOVE-DIRECT-METHOD */ |
static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* REMOVE */ |
8756 |
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* REMOVE */ |
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */ |
8757 |
static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* UPDATE-MAKE-INSTANCE-FUNCTION-TABLE */ |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */ |
8758 |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */ |
static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* ADD-DIRECT-METHOD */ |
8759 |
static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* ADD-DIRECT-METHOD */ |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[288],(void **)(void *)&LnkLI288,first,ap);va_end(ap);return V1;} /* REAL-ADD-METHOD */ |
8760 |
static void LnkT291(ptr) object *ptr;{ call_or_link_closure(VV[291],(void **)(void *)&Lnk291,(void **)(void *)&Lclptr291);} /* SETF PCL METHOD-GENERIC-FUNCTION */ |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[287],(void **)(void *)&LnkLI287,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
8761 |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)(void *)&LnkLI290,first,ap);va_end(ap);return V1;} /* REAL-ADD-METHOD */ |
static object LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */ |
8762 |
static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* SETF PCL GENERIC-FUNCTION-METHODS */ |
static object LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[285],(void **)(void *)&LnkLI285,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */ |
8763 |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[288],(void **)(void *)&LnkLI288,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* PCL ARG-INFO slot READER */ |
8764 |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */ |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */ |
8765 |
static object LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[286],(void **)(void *)&LnkLI286,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */ |
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* METHOD-LAMBDA-LIST */ |
8766 |
static void LnkT285(ptr) object *ptr;{ call_or_link_closure(VV[285],(void **)(void *)&Lnk285,(void **)(void *)&Lclptr285);} /* PCL ARG-INFO slot READER */ |
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* SORT */ |
8767 |
static object LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */ |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL */ |
8768 |
static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* METHOD-LAMBDA-LIST */ |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* EVERY */ |
8769 |
static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* SORT */ |
static void LnkT277(ptr) object *ptr;{ call_or_link_closure(VV[277],(void **)(void *)&Lnk277,(void **)(void *)&Lclptr277);} /* METHOD-SPECIALIZERS */ |
|
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL */ |
|
|
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* EVERY */ |
|
|
static void LnkT278(ptr) object *ptr;{ call_or_link_closure(VV[278],(void **)(void *)&Lnk278,(void **)(void *)&Lclptr278);} /* METHOD-SPECIALIZERS */ |
|
|
static void LnkT275(ptr) object *ptr;{ call_or_link_closure(VV[275],(void **)(void *)&Lnk275,(void **)(void *)&Lclptr275);} /* SETF PCL GF-PRETTY-ARGLIST */ |
|
|
static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,2,first,ap);va_end(ap);return V1;} /* SETF PCL GDEFINITION */ |
|
8770 |
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* FUNCTION-ARGLIST */ |
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* FUNCTION-ARGLIST */ |
8771 |
static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* MAKE-INSTANCE */ |
static void LnkT270(ptr) object *ptr;{ call_or_link_closure(VV[270],(void **)(void *)&Lnk270,(void **)(void *)&Lclptr270);} /* MAKE-INSTANCE */ |
8772 |
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* METHOD-PROTOTYPE-FOR-GF */ |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* METHOD-PROTOTYPE-FOR-GF */ |
8773 |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* ENSURE-GENERIC-FUNCTION */ |
static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* ENSURE-GENERIC-FUNCTION */ |
8774 |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */ |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[266],(void **)(void *)&LnkLI266,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */ |
8775 |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)(void *)&LnkLI265,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
8776 |
static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* GENERIC-FUNCTION-P */ |
static void LnkT264(ptr) object *ptr;{ call_or_link_closure(VV[264],(void **)(void *)&Lnk264,(void **)(void *)&Lclptr264);} /* GENERIC-FUNCTION-P */ |
8777 |
static void LnkT264(ptr) object *ptr;{ call_or_link_closure(VV[264],(void **)(void *)&Lnk264,(void **)(void *)&Lclptr264);} /* METHOD-COMBINATION-P */ |
static void LnkT263(ptr) object *ptr;{ call_or_link_closure(VV[263],(void **)(void *)&Lnk263,(void **)(void *)&Lclptr263);} /* METHOD-COMBINATION-P */ |
8778 |
static void LnkT263(ptr) object *ptr;{ call_or_link_closure(VV[263],(void **)(void *)&Lnk263,(void **)(void *)&Lclptr263);} /* PCL METHOD-CLASS slot WRITER */ |
static void LnkT262(ptr) object *ptr;{ call_or_link_closure(VV[262],(void **)(void *)&Lnk262,(void **)(void *)&Lclptr262);} /* PCL METHOD-CLASS slot WRITER */ |
8779 |
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* *SUBTYPEP */ |
static void LnkT261(){ call_or_link(VV[261],(void **)(void *)&Lnk261);} /* *SUBTYPEP */ |
8780 |
static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* CLASS-EQ-SPECIALIZER */ |
static void LnkT260(ptr) object *ptr;{ call_or_link_closure(VV[260],(void **)(void *)&Lnk260,(void **)(void *)&Lclptr260);} /* CLASS-EQ-SPECIALIZER */ |
8781 |
static object LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[260],(void **)(void *)&LnkLI260,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI259(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[259],(void **)(void *)&LnkLI259,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
8782 |
static void LnkT259(){ call_or_link(VV[259],(void **)(void *)&Lnk259);} /* SET-FUNCTION-NAME */ |
static void LnkT258(){ call_or_link(VV[258],(void **)(void *)&Lnk258);} /* SET-FUNCTION-NAME */ |
8783 |
static void LnkT258(ptr) object *ptr;{ call_or_link_closure(VV[258],(void **)(void *)&Lnk258,(void **)(void *)&Lclptr258);} /* GENERIC-FUNCTION-METHODS */ |
static void LnkT257(ptr) object *ptr;{ call_or_link_closure(VV[257],(void **)(void *)&Lnk257,(void **)(void *)&Lclptr257);} /* GENERIC-FUNCTION-METHODS */ |
8784 |
static object LnkTLI257(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[257],(void **)(void *)&LnkLI257,2,first,ap);va_end(ap);return V1;} /* PLIST-VALUE */ |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,2,first,ap);va_end(ap);return V1;} /* PLIST-VALUE */ |
8785 |
static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* PCL SLOT-NAME slot WRITER */ |
static void LnkT256(ptr) object *ptr;{ call_or_link_closure(VV[256],(void **)(void *)&Lnk256,(void **)(void *)&Lclptr256);} /* PCL SLOT-NAME slot WRITER */ |
8786 |
static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* SLOT-DEFINITION-NAME */ |
static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* SLOT-DEFINITION-NAME */ |
8787 |
static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* PCL SLOT-DEFINITION slot WRITER */ |
static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* PCL SLOT-DEFINITION slot WRITER */ |
8791 |
static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* SLOT-CLASS-P */ |
static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* SLOT-CLASS-P */ |
8792 |
static void LnkT249(ptr) object *ptr;{ call_or_link_closure(VV[249],(void **)(void *)&Lnk249,(void **)(void *)&Lclptr249);} /* ACCESSOR-METHOD-CLASS */ |
static void LnkT249(ptr) object *ptr;{ call_or_link_closure(VV[249],(void **)(void *)&Lnk249,(void **)(void *)&Lclptr249);} /* ACCESSOR-METHOD-CLASS */ |
8793 |
static void LnkT248(ptr) object *ptr;{ call_or_link_closure(VV[248],(void **)(void *)&Lnk248,(void **)(void *)&Lclptr248);} /* PCL SLOT-DEFINITION slot READER */ |
static void LnkT248(ptr) object *ptr;{ call_or_link_closure(VV[248],(void **)(void *)&Lnk248,(void **)(void *)&Lclptr248);} /* PCL SLOT-DEFINITION slot READER */ |
|
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,3,first,ap);va_end(ap);return V1;} /* SETF PCL PLIST-VALUE */ |
|
8794 |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[246],(void **)(void *)&LnkLI246,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */ |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[246],(void **)(void *)&LnkLI246,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */ |
8795 |
static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* LEGAL-SLOT-NAME-P */ |
static void LnkT245(ptr) object *ptr;{ call_or_link_closure(VV[245],(void **)(void *)&Lnk245,(void **)(void *)&Lclptr245);} /* LEGAL-SLOT-NAME-P */ |
8796 |
static void LnkT244(ptr) object *ptr;{ call_or_link_closure(VV[244],(void **)(void *)&Lnk244,(void **)(void *)&Lclptr244);} /* LEGAL-DOCUMENTATION-P */ |
static void LnkT244(ptr) object *ptr;{ call_or_link_closure(VV[244],(void **)(void *)&Lnk244,(void **)(void *)&Lclptr244);} /* LEGAL-DOCUMENTATION-P */ |