/[gcl]/gcl/pcl/pcl_methods.c
ViewVC logotype

Diff of /gcl/pcl/pcl_methods.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Fri Oct 3 16:03:18 2003 UTC revision 1.5 by camm, Tue Oct 7 21:07:36 2003 UTC
# Line 1694  TTL:; Line 1694  TTL:;
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  }  }
# Line 1705  static void L29() Line 1715  static void L29()
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;
# Line 1824  T716:; Line 1834  T716:;
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;}}
# Line 1950  T738:; Line 1960  T738:;
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  }  }
# Line 2044  static void L32() Line 2054  static void L32()
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];
# Line 2288  T921:; Line 2298  T921:;
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;}
# Line 2692  static void L38() Line 2714  static void L38()
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;
# Line 2770  static void L39() Line 2792  static void L39()
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;
# Line 2945  T1186:; Line 2967  T1186:;
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;
# Line 3363  T1360:; Line 3388  T1360:;
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;
# Line 3488  TTL:; Line 3521  TTL:;
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  }  }
# Line 3633  static void L50() Line 3674  static void L50()
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  }  }
# Line 3977  static void L59() Line 4020  static void L59()
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  }  }
# Line 4164  static void L61() Line 4207  static void L61()
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);
# Line 4248  T1716:; Line 4291  T1716:;
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  */
# Line 4357  static void L66() Line 4400  static void L66()
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;
# Line 4406  T1748:; Line 4449  T1748:;
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  }  }
# Line 4702  static void L72() Line 4745  static void L72()
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          }          }
# Line 4887  static void L73() Line 4930  static void L73()
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  }  }
# Line 5450  static void L87() Line 5493  static void L87()
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  }  }
# Line 5505  static void L88() Line 5548  static void L88()
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  }  }
# Line 5526  static void L89() Line 5569  static void L89()
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      */
# Line 5570  static void L91() Line 5613  static void L91()
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  }  }
# Line 5640  static void L92() Line 5683  static void L92()
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;
# Line 5655  static void L93() Line 5698  static void L93()
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);
# Line 5803  T2203:; Line 5846  T2203:;
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  }  }
# Line 5892  static void L97() Line 5935  static void L97()
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);
# Line 5924  static void L102() Line 5967  static void L102()
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);
# Line 5961  T2252:; Line 6004  T2252:;
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  }  }
# Line 6048  static void L104() Line 6091  static void L104()
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      */
# Line 6172  static void L106() Line 6215  static void L106()
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 */
# Line 6347  static void L109() Line 6390  static void L109()
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);
# Line 6526  T2426:; Line 6569  T2426:;
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);
# Line 6589  TTL:; Line 6632  TTL:;
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  }  }
# Line 6603  static void L114() Line 6646  static void L114()
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);
# Line 6633  static void L115() Line 6676  static void L115()
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);
# Line 6666  static void L116() Line 6709  static void L116()
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);
# Line 6696  static void L117() Line 6739  static void L117()
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;}}}
# Line 6916  T2548:; Line 6959  T2548:;
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  }  }
# Line 6977  static void L119() Line 7020  static void L119()
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  }  }
# Line 7287  static void L122() Line 7330  static void L122()
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          }          }
# Line 7411  register object *base0; Line 7454  register object *base0;
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          }          }
# Line 7442  register object *base0; Line 7485  register object *base0;
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  }  }
# Line 7479  register object *base0; Line 7522  register object *base0;
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          }          }
# Line 7614  register object *base0; Line 7657  register object *base0;
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          }          }
# Line 7635  register object *base0; Line 7678  register object *base0;
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;
# Line 7671  T2794:; Line 7714  T2794:;
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;
# Line 7739  register object *base0,*base1; Line 7782  register object *base0,*base1;
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);
# Line 7798  register object *base0,*base1; Line 7841  register object *base0,*base1;
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;
# Line 7823  register object *base0; Line 7866  register object *base0;
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);
# Line 7913  register object *base0; Line 7956  register object *base0;
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          }          }
# Line 7938  register object *base0; Line 7981  register object *base0;
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;
# Line 7960  register object *base0; Line 8003  register object *base0;
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;
# Line 8013  register object *base0; Line 8056  register object *base0;
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          }          }
# Line 8029  register object *base0; Line 8072  register object *base0;
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          }          }
# Line 8133  register object *base0; Line 8176  register object *base0;
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));
# Line 8148  register object *base0; Line 8191  register object *base0;
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          }          }
# Line 8185  register object *base0; Line 8228  register object *base0;
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;
# Line 8212  register object *base0; Line 8255  register object *base0;
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;
# Line 8282  register object *base0; Line 8325  register object *base0;
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;
# Line 8332  register object *base0; Line 8375  register object *base0;
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;
# Line 8384  register object *base0; Line 8427  register object *base0;
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;
# Line 8439  register object *base0; Line 8482  register object *base0;
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;}
# Line 8462  register object *base0; Line 8505  register object *base0;
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  }  }
# Line 8510  register object *base0; Line 8553  register object *base0;
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);
# Line 8537  register object *base0; Line 8580  register object *base0;
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;
# Line 8564  register object *base0; Line 8607  register object *base0;
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;
# Line 8614  TTL:; Line 8657  TTL:;
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 */
# Line 8753  static void LnkT251(ptr) object *ptr;{ c Line 8791  static void LnkT251(ptr) object *ptr;{ c
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 */

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26