/[gcl]/gcl/lsp/debug.c
ViewVC logotype

Diff of /gcl/lsp/debug.c

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

revision 1.7 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.8 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 1585  static void L26() Line 1585  static void L26()
1585  {register object *base=vs_base;  {register object *base=vs_base;
1586          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1587          vs_reserve(VM24);          vs_reserve(VM24);
1588          {object V166;          check_arg(0);
         if(vs_top-vs_base>1) too_many_arguments();  
         if(vs_base>=vs_top){vs_top=sup;goto T615;}  
         V166=(base[0]);  
1589          vs_top=sup;          vs_top=sup;
1590          goto T616;  goto TTL;
1591  goto T615;  TTL:;
 T615:;  
         V166= small_fixnum(1);  
 goto T616;  
 T616:;  
1592          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1593          goto T618;}          goto T615;}
1594          vs_base=vs_top;          vs_base=vs_top;
1595          (void) (*Lnk141)();          (void) (*Lnk141)();
1596          vs_top=sup;          vs_top=sup;
1597  goto T618;  goto T615;
1598  T618:;  T615:;
1599          setq(VV[58],VV[59]);          setq(VV[58],VV[59]);
1600          base[1]= VV[60];          base[0]= VV[60];
1601          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
1602          return;          return;
         }  
1603  }  }
1604  /*      function definition for STEP-NEXT       */  /*      function definition for STEP-NEXT       */
1605    
# Line 1615  static void L27() Line 1607  static void L27()
1607  {register object *base=vs_base;  {register object *base=vs_base;
1608          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1609          vs_reserve(VM25);          vs_reserve(VM25);
1610          {object V167;          {object V166;
1611          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
1612          if(vs_base>=vs_top){vs_top=sup;goto T621;}          if(vs_base>=vs_top){vs_top=sup;goto T618;}
1613          V167=(base[0]);          V166=(base[0]);
1614          vs_top=sup;          vs_top=sup;
1615          goto T622;          goto T619;
1616  goto T621;  goto T618;
1617  T621:;  T618:;
1618          V167= small_fixnum(1);          V166= small_fixnum(1);
1619  goto T622;  goto T619;
1620  T622:;  T619:;
1621          {object V168;          {object V167;
1622          vs_base=vs_top;          vs_base=vs_top;
1623          (void) (*Lnk142)();          (void) (*Lnk142)();
1624          vs_top=sup;          vs_top=sup;
1625          V168= vs_base[0];          V167= vs_base[0];
1626          setq(VV[61],make_cons((V167),(V168)));          setq(VV[61],make_cons((V166),(V167)));
1627          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1628          goto T627;}          goto T624;}
1629          vs_base=vs_top;          vs_base=vs_top;
1630          (void) (*Lnk141)();          (void) (*Lnk141)();
1631          vs_top=sup;          vs_top=sup;
1632  goto T627;  goto T624;
1633  T627:;  T624:;
1634          setq(VV[58],VV[62]);          setq(VV[58],VV[62]);
1635          base[1]= VV[60];          base[1]= VV[60];
1636          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1651  static void L28() Line 1643  static void L28()
1643  {register object *base=vs_base;  {register object *base=vs_base;
1644          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1645          vs_reserve(VM26);          vs_reserve(VM26);
1646          {object V169;          {object V168;
1647            object V169;
1648          object V170;          object V170;
1649          object V171;          object V171;
         object V172;  
1650          check_arg(4);          check_arg(4);
1651          V169=(base[0]);          V168=(base[0]);
1652          V170=(base[1]);          V169=(base[1]);
1653          V171=(base[2]);          V170=(base[2]);
1654          V172=(base[3]);          V171=(base[3]);
1655          vs_top=sup;          vs_top=sup;
1656  goto TTL;  goto TTL;
1657  TTL:;  TTL:;
1658          {object V173;          {object V172;
1659          V173= Cnil;          V172= Cnil;
1660          V173= (VFUN_NARGS=2,(*(LnkLI143))((V169),(V170)));          V172= (VFUN_NARGS=2,(*(LnkLI143))((V168),(V169)));
1661          if(((V173))==Cnil){          if(((V172))==Cnil){
1662          goto T632;}          goto T629;}
1663          setq(VV[58],Cnil);          setq(VV[58],Cnil);
1664          if(!(((long)length(symbol_value(VV[53])))>(0))){          if(!(((long)length(symbol_value(VV[53])))>(0))){
1665          goto T638;}          goto T635;}
1666          goto T637;          goto T634;
1667  goto T638;  goto T635;
1668  T638:;  T635:;
1669          setq(VV[53],Cnil);          setq(VV[53],Cnil);
1670  goto T637;  goto T634;
1671  T637:;  T634:;
1672          base[5]= (V171);          base[5]= (V170);
1673          base[6]= (V170);          base[6]= (V169);
1674          base[7]= (V173);          base[7]= (V172);
1675          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1676          (void) (*Lnk138)();          (void) (*Lnk138)();
1677          vs_top=sup;          vs_top=sup;
1678          base[4]= vs_base[0];          base[4]= vs_base[0];
1679          base[5]= (V172);          base[5]= (V171);
1680          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1681          (void) (*Lnk121)();          (void) (*Lnk121)();
1682          vs_top=sup;          vs_top=sup;
1683          base[4]= Ct;          base[4]= Ct;
1684          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1685          return;          return;
1686  goto T632;  goto T629;
1687  T632:;  T629:;
1688          base[4]= Cnil;          base[4]= Cnil;
1689          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1690          return;}          return;}
# Line 1704  static void L29() Line 1696  static void L29()
1696  {register object *base=vs_base;  {register object *base=vs_base;
1697          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1698          vs_reserve(VM27);          vs_reserve(VM27);
1699          {object V174;          {object V173;
1700          object V175;          object V174;
1701          check_arg(2);          check_arg(2);
1702          V174=(base[0]);          V173=(base[0]);
1703          V175=(base[1]);          V174=(base[1]);
1704          vs_top=sup;          vs_top=sup;
1705  goto TTL;  goto TTL;
1706  TTL:;  TTL:;
1707          {object V176;          {object V175;
1708          vs_base=vs_top;          vs_base=vs_top;
1709          (void) (*Lnk142)();          (void) (*Lnk142)();
1710          vs_top=sup;          vs_top=sup;
1711          V176= vs_base[0];          V175= vs_base[0];
1712          {object V177;          {object V176;
1713          V177= get((V176),VV[49],Cnil);          V176= get((V175),VV[49],Cnil);
1714          base[2]= (V174);          base[2]= (V173);
1715          base[3]= (V177);          base[3]= (V176);
1716          base[4]= (V176);          base[4]= (V175);
1717          base[5]= (V175);          base[5]= (V174);
1718          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1719          (void) (*Lnk144)();          (void) (*Lnk144)();
1720          return;}}          return;}}
# Line 1734  static void L30() Line 1726  static void L30()
1726  {register object *base=vs_base;  {register object *base=vs_base;
1727          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1728          vs_reserve(VM28);          vs_reserve(VM28);
1729          {object V178;          {object V177;
1730          object V179;          object V178;
1731          check_arg(2);          check_arg(2);
1732          V178=(base[0]);          V177=(base[0]);
1733          V179=(base[1]);          V178=(base[1]);
1734          vs_top=sup;          vs_top=sup;
1735  goto TTL;  goto TTL;
1736  TTL:;  TTL:;
1737          {object V180;          {object V179;
1738          vs_base=vs_top;          vs_base=vs_top;
1739          (void) (*Lnk142)();          (void) (*Lnk142)();
1740          vs_top=sup;          vs_top=sup;
1741          V180= vs_base[0];          V179= vs_base[0];
1742          if(!(eql(cdr(symbol_value(VV[61])),(V180)))){          if(!(eql(cdr(symbol_value(VV[61])),(V179)))){
1743          goto T655;}          goto T652;}
1744          {object V181;          {object V180;
1745          V181= get((V180),VV[49],Cnil);          V180= get((V179),VV[49],Cnil);
1746          base[2]= (V178);          base[2]= (V177);
1747          base[3]= (V181);          base[3]= (V180);
1748          base[4]= (V180);          base[4]= (V179);
1749          base[5]= (V179);          base[5]= (V178);
1750          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1751          (void) (*Lnk144)();          (void) (*Lnk144)();
1752          return;}          return;}
1753  goto T655;  goto T652;
1754  T655:;  T652:;
1755          base[2]= Cnil;          base[2]= Cnil;
1756          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1757          return;}          return;}
# Line 1771  static void L31() Line 1763  static void L31()
1763  {register object *base=vs_base;  {register object *base=vs_base;
1764          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
1765          vs_reserve(VM29);          vs_reserve(VM29);
1766          {object V182;          {object V181;
1767          object V183;          object V182;
1768          check_arg(2);          check_arg(2);
1769          V182=(base[0]);          V181=(base[0]);
1770          V183=(base[1]);          V182=(base[1]);
1771          vs_top=sup;          vs_top=sup;
1772  goto TTL;  goto TTL;
1773  TTL:;  TTL:;
1774          {object V184;          {object V183;
1775          V184= (VFUN_NARGS=4,(*(LnkLI143))((V182),symbol_value(VV[53]),VV[63],VV[64]));          V183= (VFUN_NARGS=4,(*(LnkLI143))((V181),symbol_value(VV[53]),VV[63],VV[64]));
1776          base[2]= Ct;          base[2]= Ct;
1777          base[3]= VV[65];          base[3]= VV[65];
1778          base[4]= (V184);          base[4]= (V183);
1779          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1780          Lformat();          Lformat();
1781          vs_top=sup;          vs_top=sup;
1782          base[2]= aref1(symbol_value(VV[53]),fixint((V184)));          base[2]= aref1(symbol_value(VV[53]),fixint((V183)));
1783          base[3]= (V183);          base[3]= (V182);
1784          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1785          (void) (*Lnk121)();          (void) (*Lnk121)();
1786          return;}          return;}
# Line 1800  static void L32() Line 1792  static void L32()
1792  {register object *base=vs_base;  {register object *base=vs_base;
1793          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1794          vs_reserve(VM30);          vs_reserve(VM30);
1795          {register object V185;          {register object V184;
1796          check_arg(1);          check_arg(1);
1797          V185=(base[0]);          V184=(base[0]);
1798          vs_top=sup;          vs_top=sup;
1799  goto TTL;  goto TTL;
1800  TTL:;  TTL:;
1801          {register object V186;          {register object V185;
1802          register object V187;          register object V186;
1803          vs_base=vs_top;          vs_base=vs_top;
1804          Llist_all_packages();          Llist_all_packages();
1805          vs_top=sup;          vs_top=sup;
1806          V186= vs_base[0];          V185= vs_base[0];
1807          V187= car((V186));          V186= car((V185));
1808  goto T673;  goto T670;
1809  T673:;  T670:;
1810          if(!(endp_prop((V186)))){          if(!(endp_prop((V185)))){
1811          goto T674;}          goto T671;}
1812          goto T669;          goto T666;
1813  goto T674;  goto T671;
1814  T674:;  T671:;
1815          {register object V188;          {register object V187;
1816          register object V189;          register object V188;
1817          base[3]= symbol_name((V185));          base[3]= symbol_name((V184));
1818          base[4]= (V187);          base[4]= (V186);
1819          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1820          Lintern();          Lintern();
1821          if(vs_base>=vs_top){vs_top=sup;goto T682;}          if(vs_base>=vs_top){vs_top=sup;goto T679;}
1822          V188= vs_base[0];          V187= vs_base[0];
1823          vs_base++;          vs_base++;
1824          if(vs_base>=vs_top){vs_top=sup;goto T683;}          if(vs_base>=vs_top){vs_top=sup;goto T680;}
1825          V189= vs_base[0];          V188= vs_base[0];
1826          vs_top=sup;          vs_top=sup;
1827          goto T684;          goto T681;
1828  goto T682;  goto T679;
1829  T682:;  T679:;
1830            V187= Cnil;
1831    goto T680;
1832    T680:;
1833          V188= Cnil;          V188= Cnil;
1834  goto T683;  goto T681;
1835  T683:;  T681:;
1836          V189= Cnil;          if((get((V187),VV[49],Cnil))==Cnil){
1837  goto T684;          goto T683;}
1838  T684:;          base[3]= (V187);
         if((get((V188),VV[49],Cnil))==Cnil){  
         goto T686;}  
         base[3]= (V188);  
1839          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1840          return;          return;
1841  goto T686;  goto T683;
1842  T686:;  T683:;
1843          if((V189)!=Cnil){          if((V188)!=Cnil){
1844          goto T678;}          goto T675;}
1845          base[3]= (V188);          base[3]= (V187);
1846          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1847          Lunintern();          Lunintern();
1848          vs_top=sup;}          vs_top=sup;}
1849  goto T678;  goto T675;
1850  T678:;  T675:;
1851          V186= cdr((V186));          V185= cdr((V185));
1852          V187= car((V186));          V186= car((V185));
1853          goto T673;}          goto T670;}
1854  goto T669;  goto T666;
1855  T669:;  T666:;
1856          base[1]= Ct;          base[1]= Ct;
1857          base[2]= VV[66];          base[2]= VV[66];
1858          base[3]= (V185);          base[3]= (V184);
1859          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1860          Lformat();          Lformat();
1861          return;          return;
# Line 1875  static void L33() Line 1867  static void L33()
1867  {register object *base=vs_base;  {register object *base=vs_base;
1868          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1869          vs_reserve(VM31);          vs_reserve(VM31);
1870          {register object V190;          {register object V189;
1871          register object V191;          register object V190;
1872          object V192;          object V191;
1873          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1874          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1875          V190=(base[0]);          V189=(base[0]);
1876          vs_base=vs_base+1;          vs_base=vs_base+1;
1877          if(vs_base>=vs_top){vs_top=sup;goto T697;}          if(vs_base>=vs_top){vs_top=sup;goto T694;}
1878          V191=(base[1]);          V190=(base[1]);
1879          vs_base++;          vs_base++;
1880          if(vs_base>=vs_top){vs_top=sup;goto T698;}          if(vs_base>=vs_top){vs_top=sup;goto T695;}
1881          V192=(base[2]);          V191=(base[2]);
1882          vs_top=sup;          vs_top=sup;
1883          goto T699;          goto T696;
1884  goto T697;  goto T694;
1885  T697:;  T694:;
1886          V191= small_fixnum(1);          V190= small_fixnum(1);
1887  goto T698;  goto T695;
1888  T698:;  T695:;
1889            V191= Cnil;
1890    goto T696;
1891    T696:;
1892            {object V192;
1893          V192= Cnil;          V192= Cnil;
1894  goto T699;          {register object V193;
1895  T699:;          V193= get((V189),VV[49],Cnil);
1896          {object V193;          if(((V193))!=Cnil){
1897          V193= Cnil;          goto T701;}
1898          {register object V194;          base[3]= (V189);
         V194= get((V190),VV[49],Cnil);  
         if(((V194))!=Cnil){  
         goto T704;}  
         base[3]= (V190);  
1899          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1900          (void) (*Lnk145)();          (void) (*Lnk145)();
1901          vs_top=sup;          vs_top=sup;
1902          V193= vs_base[0];          V192= vs_base[0];
1903          if(((V193))==Cnil){          if(((V192))==Cnil){
1904          goto T704;}          goto T701;}
1905          base[3]= (V193);          base[3]= (V192);
1906          base[4]= (V191);          base[4]= (V190);
1907          base[5]= (V192);          base[5]= (V191);
1908          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1909          (void) (*Lnk146)();          (void) (*Lnk146)();
1910          return;          return;
1911  goto T704;  goto T701;
1912  T704:;  T701:;
1913          if(!(type_of((V194))==t_array||          if(!(type_of((V193))==t_array||
1914  type_of((V194))==t_vector||  type_of((V193))==t_vector||
1915  type_of((V194))==t_string||  type_of((V193))==t_string||
1916  type_of((V194))==t_bitvector)){  type_of((V193))==t_bitvector)){
1917          goto T716;}          goto T713;}
1918          goto T715;          goto T712;
1919  goto T716;  goto T713;
1920  T716:;  T713:;
1921          base[3]= Ct;          base[3]= Ct;
1922          base[4]= VV[67];          base[4]= VV[67];
1923          base[5]= (V190);          base[5]= (V189);
1924          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1925          Lformat();          Lformat();
1926          vs_top=sup;          vs_top=sup;
1927          base[3]= Cnil;          base[3]= Cnil;
1928          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1929          return;          return;
1930  goto T715;  goto T712;
1931  T715:;  T712:;
1932          {object V195;          {object V194;
1933          V196= aref1((V194),0);          V195= aref1((V193),0);
1934          V195= cdr(/* INLINE-ARGS */V196);          V194= cdr(/* INLINE-ARGS */V195);
1935          if(((V192))==Cnil){          if(((V191))==Cnil){
1936          goto T723;}          goto T720;}
1937          V191= make_fixnum((long)(fix((V191)))-(fix((V195))));          V190= make_fixnum((long)(fix((V190)))-(fix((V194))));
1938  goto T723;  goto T720;
1939  T723:;{object V197;  T720:;{object V196;
1940          if((fix((V191)))>=(1)){          if((fix((V190)))>=(1)){
1941          goto T730;}          goto T727;}
1942          V197= Cnil;          V196= Cnil;
1943          goto T729;          goto T726;
1944  goto T730;  goto T727;
1945  T730:;  T727:;
1946          V197= ((fix((V191)))<((long)length((V194)))?Ct:Cnil);          V196= ((fix((V190)))<((long)length((V193)))?Ct:Cnil);
1947  goto T729;  goto T726;
1948  T729:;  T726:;
1949          if(V197==Cnil)goto T728;          if(V196==Cnil)goto T725;
1950          goto T727;          goto T724;
1951  goto T728;  goto T725;
1952  T728:;}{object V198;  T725:;}{object V197;
1953          base[3]= Ct;          base[3]= Ct;
1954          base[4]= VV[68];          base[4]= VV[68];
1955          base[5]= (V190);          base[5]= (V189);
1956          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1957          Lformat();          Lformat();
1958          vs_top=sup;          vs_top=sup;
1959          V198= vs_base[0];          V197= vs_base[0];
1960          if(V198==Cnil)goto T732;          if(V197==Cnil)goto T729;
1961          goto T727;          goto T724;
1962  goto T732;  goto T729;
1963  T732:;}  T729:;}
1964          base[3]= Cnil;          base[3]= Cnil;
1965          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1966          return;          return;
1967  goto T727;  goto T724;
1968  T727:;  T724:;
1969          if(!(eql((V191),small_fixnum(1)))){          if(!(eql((V190),small_fixnum(1)))){
1970          goto T737;}          goto T734;}
1971          {object V199;          {object V198;
1972          base[3]= (V190);          base[3]= (V189);
1973          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1974          Lsymbol_function();          Lsymbol_function();
1975          vs_top=sup;          vs_top=sup;
1976          V199= vs_base[0];          V198= vs_base[0];
1977          if(!(type_of((V199))==t_cons)){          if(!(type_of((V198))==t_cons)){
1978          goto T737;}          goto T734;}
1979          if(!((car((V199)))==(VV[69]))){          if(!((car((V198)))==(VV[69]))){
1980          goto T737;}          goto T734;}
1981          if((caddr((V199)))==Cnil){          if((caddr((V198)))==Cnil){
1982          goto T737;}          goto T734;}
1983          V191= small_fixnum(2);}          V190= small_fixnum(2);}
1984  goto T737;  goto T734;
1985  T737:;  T734:;
1986          {register object V200;          {register object V199;
1987          register object V201;          register object V200;
1988          V200= make_fixnum((long)((long)length((V194)))-(fix((V191))));          V199= make_fixnum((long)((long)length((V193)))-(fix((V190))));
1989          V201= small_fixnum(0);          V200= small_fixnum(0);
1990  goto T753;  goto T750;
1991  T753:;  T750:;
1992          if(!(number_compare((V201),(V200))>=0)){          if(!(number_compare((V200),(V199))>=0)){
1993          goto T754;}          goto T751;}
1994          goto T749;          goto T746;
1995  goto T754;  goto T751;
1996  T754:;  T751:;
1997          V202= aref1((V194),fixint((V201)));          V201= aref1((V193),fixint((V200)));
1998          if((/* INLINE-ARGS */V202)==(VV[51])){          if((/* INLINE-ARGS */V201)==(VV[51])){
1999          goto T758;}          goto T755;}
2000          base[6]= (V190);          base[6]= (V189);
2001          base[7]= (V194);          base[7]= (V193);
2002          base[8]= make_fixnum((long)(fix((V191)))+(fix((V201))));          base[8]= make_fixnum((long)(fix((V190)))+(fix((V200))));
2003          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2004          (void) (*Lnk138)();          (void) (*Lnk138)();
2005          vs_top=sup;          vs_top=sup;
# Line 2022  T754:; Line 2014  T754:;
2014          vs_base=vs_top=base+4;          vs_base=vs_top=base+4;
2015          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2016          return;          return;
2017  goto T758;  goto T755;
2018  T758:;  T755:;
2019          V201= one_plus((V201));          V200= one_plus((V200));
2020          goto T753;}          goto T750;}
2021  goto T749;  goto T746;
2022  T749:;  T746:;
2023          base[3]= Ct;          base[3]= Ct;
2024          base[4]= VV[70];          base[4]= VV[70];
2025          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2041  static void L34() Line 2033  static void L34()
2033  {register object *base=vs_base;  {register object *base=vs_base;
2034          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2035          vs_reserve(VM32);          vs_reserve(VM32);
2036          {object V203;          {object V202;
2037          check_arg(1);          check_arg(1);
2038          V203=(base[0]);          V202=(base[0]);
2039          vs_top=sup;          vs_top=sup;
2040  goto TTL;  goto TTL;
2041  TTL:;  TTL:;
2042          {register object V204;          {register object V203;
2043          V204= Cnil;          V203= Cnil;
2044          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
2045          goto T773;}          goto T770;}
2046          vs_base=vs_top;          vs_base=vs_top;
2047          (void) (*Lnk141)();          (void) (*Lnk141)();
2048          vs_top=sup;          vs_top=sup;
2049    goto T770;
2050    T770:;{object V204;
2051            V204= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53])));
2052            if(V204==Cnil)goto T773;
2053            V203= V204;
2054            goto T772;
2055  goto T773;  goto T773;
2056  T773:;{object V205;  T773:;}
2057          V205= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53])));          {object V205;
2058          if(V205==Cnil)goto T776;          V205= make_fixnum((long)length(symbol_value(VV[53])));
         V204= V205;  
         goto T775;  
 goto T776;  
 T776:;}  
         {object V206;  
         V206= make_fixnum((long)length(symbol_value(VV[53])));  
2059          (void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53]))));          (void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53]))));
2060          V204= (V206);}          V203= (V205);}
2061  goto T775;  goto T772;
2062  T775:;  T772:;
2063          {object V207;          {object V206;
2064          {object V208= cdr(cdr(cdr((V203))));          {object V207= cdr(cdr(cdr((V202))));
2065          if((type_of(V208)!=t_cons) && ((V203)!= Cnil))          if((type_of(V207)!=t_cons) && ((V202)!= Cnil))
2066           FEwrong_type_argument(Scons,V208);           FEwrong_type_argument(Scons,V207);
2067          V207= (V208->c.c_car);}          V206= (V207->c.c_car);}
2068          {object V211;          {object V210;
2069          V212= get(V207,VV[52],Cnil);          V211= get(V206,VV[52],Cnil);
2070          V211= make_cons((V204),V212);          V210= make_cons((V203),V211);
2071          (void)(sputprop(V207,VV[52],(V211)));}}          (void)(sputprop(V206,VV[52],(V210)));}}
2072          (void)(aset1(symbol_value(VV[53]),fixint((V204)),(V203)));          (void)(aset1(symbol_value(VV[53]),fixint((V203)),(V202)));
2073          base[1]= (V204);          base[1]= (V203);
2074          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2075          return;}          return;}
2076          }          }
# Line 2089  static void L35() Line 2081  static void L35()
2081  {register object *base=vs_base;  {register object *base=vs_base;
2082          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
2083          vs_reserve(VM33);          vs_reserve(VM33);
2084          {object V213;          {object V212;
2085          check_arg(1);          check_arg(1);
2086          V213=(base[0]);          V212=(base[0]);
2087          vs_top=sup;          vs_top=sup;
2088  goto TTL;  goto TTL;
2089  TTL:;  TTL:;
2090          {object V214;          {object V213;
2091          V214= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V213),VV[72],Ct));          V213= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V212),VV[72],Ct));
2092          if(((V214))==Cnil){          if(((V213))==Cnil){
2093          goto T787;}          goto T784;}
2094          base[1]= (V213);          base[1]= (V212);
2095          base[2]= make_fixnum((long)(1)+(fix((V214))));          base[2]= make_fixnum((long)(1)+(fix((V213))));
2096          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2097          Lsubseq();          Lsubseq();
2098          return;          return;
2099  goto T787;  goto T784;
2100  T787:;  T784:;
2101          base[1]= (V213);          base[1]= (V212);
2102          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2103          return;}          return;}
2104          }          }
# Line 2117  static void L36() Line 2109  static void L36()
2109  {register object *base=vs_base;  {register object *base=vs_base;
2110          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2111          vs_reserve(VM34);          vs_reserve(VM34);
2112          {object V215;          {object V214;
2113          check_arg(1);          check_arg(1);
2114          V215=(base[0]);          V214=(base[0]);
2115          vs_top=sup;          vs_top=sup;
2116  goto TTL;  goto TTL;
2117  TTL:;  TTL:;
2118          {object V216;          {object V215;
2119          V216= Cnil;          V215= Cnil;
2120          {register object V217;          {register object V216;
2121          V217= aref1(symbol_value(VV[53]),fixint((V215)));          V216= aref1(symbol_value(VV[53]),fixint((V214)));
2122          if(((V217))==Cnil){          if(((V216))==Cnil){
2123          goto T794;}          goto T791;}
2124          if(!((car((V217)))==(Cnil))){          if(!((car((V216)))==(Cnil))){
2125          goto T796;}          goto T793;}
2126          V216= Ct;          V215= Ct;
2127          V217= cdr((V217));          V216= cdr((V216));
2128  goto T796;  goto T793;
2129  T796:;  T793:;
2130          base[1]= Ct;          base[1]= Ct;
2131          base[2]= VV[73];          base[2]= VV[73];
2132          base[3]= (V215);          base[3]= (V214);
2133          base[5]= cadr((V217));          base[5]= cadr((V216));
2134          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2135          (void) (*Lnk149)();          (void) (*Lnk149)();
2136          vs_top=sup;          vs_top=sup;
2137          base[4]= vs_base[0];          base[4]= vs_base[0];
2138          base[5]= caddr((V217));          base[5]= caddr((V216));
2139          base[6]= (V216);          base[6]= (V215);
2140          vs_top=(vs_base=base+1)+6;          vs_top=(vs_base=base+1)+6;
2141          Lformat();          Lformat();
2142          vs_top=sup;          vs_top=sup;
2143          {object V218;          {object V217;
2144          V218= cadddr((V217));          V217= cadddr((V216));
2145          base[1]= Ct;          base[1]= Ct;
2146          base[2]= VV[74];          base[2]= VV[74];
2147          base[4]= (V218);          base[4]= (V217);
2148          base[5]= caddr((V217));          base[5]= caddr((V216));
2149          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2150          (void) (*Lnk150)();          (void) (*Lnk150)();
2151          vs_top=sup;          vs_top=sup;
2152          base[3]= vs_base[0];          base[3]= vs_base[0];
2153          base[4]= (V218);          base[4]= (V217);
2154          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
2155          Lformat();          Lformat();
2156          return;}          return;}
2157  goto T794;  goto T791;
2158  T794:;  T791:;
2159          base[1]= Cnil;          base[1]= Cnil;
2160          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2161          return;}}          return;}}
# Line 2175  static void L37() Line 2167  static void L37()
2167  {register object *base=vs_base;  {register object *base=vs_base;
2168          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2169          vs_reserve(VM35);          vs_reserve(VM35);
2170          {register object V219;          {register object V218;
2171          register object V220;          register object V219;
2172          check_arg(2);          check_arg(2);
2173          V219=(base[0]);          V218=(base[0]);
2174          V220=(base[1]);          V219=(base[1]);
2175          vs_top=sup;          vs_top=sup;
2176  goto TTL;  goto TTL;
2177  TTL:;  TTL:;
2178          {register object V221;          {register object V220;
2179          register object V222;          register object V221;
2180          V221= make_fixnum((long)length(symbol_value(VV[53])));          V220= make_fixnum((long)length(symbol_value(VV[53])));
2181          V222= small_fixnum(0);          V221= small_fixnum(0);
2182  goto T820;  goto T817;
2183  T820:;  T817:;
2184          if(!(number_compare((V222),(V221))>=0)){          if(!(number_compare((V221),(V220))>=0)){
2185          goto T821;}          goto T818;}
2186          base[3]= Cnil;          base[3]= Cnil;
2187          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2188          return;          return;
2189  goto T821;  goto T818;
2190  T821:;  T818:;
2191          {register object x= (V222),V223= (V219);          {register object x= (V221),V222= (V218);
2192          while(!endp(V223))          while(!endp(V222))
2193          if(eql(x,V223->c.c_car)){          if(eql(x,V222->c.c_car)){
2194          goto T826;          goto T823;
2195          }else V223=V223->c.c_cdr;}          }else V222=V222->c.c_cdr;}
2196          if(((V219))!=Cnil){          if(((V218))!=Cnil){
2197          goto T825;}          goto T822;}
2198  goto T826;  goto T823;
2199  T826:;  T823:;
2200          {register object V224;          {register object V223;
2201          V224= aref1(symbol_value(VV[53]),fixint((V222)));{object V225;          V223= aref1(symbol_value(VV[53]),fixint((V221)));{object V224;
2202          V225= symbol_value(VV[53]);          V224= symbol_value(VV[53]);
2203          {object V227= (V220);          {object V226= (V219);
2204          if((V227!= VV[54]))goto T832;          if((V226!= VV[54]))goto T829;
2205          if(((V224))==Cnil){          if(((V223))==Cnil){
2206          goto T833;}          goto T830;}
2207          {object V229= cdr(cdr(cdr((V224))));          {object V228= cdr(cdr(cdr((V223))));
2208          if((type_of(V229)!=t_cons) && ((V224)!= Cnil))          if((type_of(V228)!=t_cons) && ((V223)!= Cnil))
2209           FEwrong_type_argument(Scons,V229);           FEwrong_type_argument(Scons,V228);
2210          V228= (V229->c.c_car);}          V227= (V228->c.c_car);}
2211          {object V232= cdr(cdr(cdr((V224))));          {object V231= cdr(cdr(cdr((V223))));
2212          if((type_of(V232)!=t_cons) && ((V224)!= Cnil))          if((type_of(V231)!=t_cons) && ((V223)!= Cnil))
2213           FEwrong_type_argument(Scons,V232);           FEwrong_type_argument(Scons,V231);
2214          V231= (V232->c.c_car);}          V230= (V231->c.c_car);}
2215          V230= get(V231,VV[52],Cnil);          V229= get(V230,VV[52],Cnil);
2216          V233= (VFUN_NARGS=2,(*(LnkLI123))((V222),V230));          V232= (VFUN_NARGS=2,(*(LnkLI123))((V221),V229));
2217          (void)(sputprop(V228,VV[52],/* INLINE-ARGS */V233));          (void)(sputprop(V227,VV[52],/* INLINE-ARGS */V232));
2218  goto T833;  goto T830;
2219  T833:;  T830:;
2220          V226= Cnil;          V225= Cnil;
2221          goto T831;          goto T828;
2222  goto T832;  goto T829;
2223  T832:;  T829:;
2224          if((V227!= VV[151]))goto T839;          if((V226!= VV[151]))goto T836;
2225          if(!((car((V224)))==(Cnil))){          if(!((car((V223)))==(Cnil))){
2226          goto T841;}          goto T838;}
2227          V226= cdr((V224));          V225= cdr((V223));
2228          goto T831;          goto T828;
2229  goto T841;  goto T838;
2230  T841:;  T838:;
2231          V226= Cnil;          V225= Cnil;
2232          goto T831;          goto T828;
2233  goto T839;  goto T836;
2234  T839:;  T836:;
2235          if((V227!= VV[152]))goto T843;          if((V226!= VV[152]))goto T840;
2236          if(((V224))==Cnil){          if(((V223))==Cnil){
2237          goto T845;}          goto T842;}
2238          if((car((V224)))==(Cnil)){          if((car((V223)))==(Cnil)){
2239          goto T845;}          goto T842;}
2240          V226= make_cons(Cnil,(V224));          V225= make_cons(Cnil,(V223));
2241          goto T831;          goto T828;
2242  goto T845;  goto T842;
2243  T845:;  T842:;
2244          V226= (V224);          V225= (V223);
2245          goto T831;          goto T828;
2246  goto T843;  goto T840;
2247  T843:;  T840:;
2248          if((V227!= VV[153]))goto T849;          if((V226!= VV[153]))goto T846;
2249          if(((V224))==Cnil){          if(((V223))==Cnil){
2250          goto T850;}          goto T847;}
2251          base[3]= (V222);          base[3]= (V221);
2252          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2253          (void) (*Lnk148)();          (void) (*Lnk148)();
2254          vs_top=sup;          vs_top=sup;
2255          princ_char(10,Cnil);          princ_char(10,Cnil);
2256  goto T850;  goto T847;
2257  T850:;  T847:;
2258          V226= (V224);          V225= (V223);
2259          goto T831;          goto T828;
2260  goto T849;  goto T846;
2261  T849:;  T846:;
2262          V226= Cnil;}          V225= Cnil;}
2263  goto T831;  goto T828;
2264  T831:;  T828:;
2265          (void)(aset1(V225,fixint((V222)),V226));}}          (void)(aset1(V224,fixint((V221)),V225));}}
2266  goto T825;  goto T822;
2267  T825:;  T822:;
2268          V222= one_plus((V222));          V221= one_plus((V221));
2269          goto T820;}          goto T817;}
2270          }          }
2271  }  }
2272  /*      function definition for COMPLETE-PROP   */  /*      function definition for COMPLETE-PROP   */
# Line 2283  static void L38() Line 2275  static void L38()
2275  {register object *base=vs_base;  {register object *base=vs_base;
2276          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2277          vs_reserve(VM36);          vs_reserve(VM36);
2278          {object V234;          {object V233;
2279            object V234;
2280          object V235;          object V235;
2281          object V236;          object V236;
         object V237;  
2282          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
2283          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
2284          V234=(base[0]);          V233=(base[0]);
2285          V235=(base[1]);          V234=(base[1]);
2286          V236=(base[2]);          V235=(base[2]);
2287          vs_base=vs_base+3;          vs_base=vs_base+3;
2288          if(vs_base>=vs_top){vs_top=sup;goto T858;}          if(vs_base>=vs_top){vs_top=sup;goto T855;}
2289          V237=(base[3]);          V236=(base[3]);
2290          vs_top=sup;          vs_top=sup;
2291          goto T859;          goto T856;
2292  goto T858;  goto T855;
2293  T858:;  T855:;
2294          V237= Cnil;          V236= Cnil;
2295  goto T859;  goto T856;
2296  T859:;  T856:;
2297          if(!(type_of((V234))==t_symbol)){          if(!(type_of((V233))==t_symbol)){
2298          goto T861;}          goto T858;}
2299          if((get((V234),(V236),Cnil))==Cnil){          if((get((V233),(V235),Cnil))==Cnil){
2300          goto T861;}          goto T858;}
2301          base[4]= (V234);          base[4]= (V233);
2302          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2303          Lsymbol_package();          Lsymbol_package();
2304          vs_top=sup;          vs_top=sup;
2305          V238= vs_base[0];          V237= vs_base[0];
2306          base[4]= (V235);          base[4]= (V234);
2307          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2308          Lfind_package();          Lfind_package();
2309          vs_top=sup;          vs_top=sup;
2310          V239= vs_base[0];          V238= vs_base[0];
2311          if(!(equal(V238,V239))){          if(!(equal(V237,V238))){
2312          goto T861;}          goto T858;}
2313          base[4]= (V234);          base[4]= (V233);
2314          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2315          return;          return;
2316  goto T861;  goto T858;
2317  T861:;  T858:;
2318          {object V240;          {object V239;
2319          register object V241;          register object V240;
2320            V239= Cnil;
2321          V240= Cnil;          V240= Cnil;
2322          V241= Cnil;          {object V241;
2323          {object V242;          register object V242;
2324          register object V243;          register object V243;
2325          register object V244;          {object V244;
2326          {object V245;          base[4]= (V234);
         base[4]= (V235);  
2327          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2328          Lfind_package();          Lfind_package();
2329          vs_top=sup;          vs_top=sup;
2330          V245= vs_base[0];          V244= vs_base[0];
2331          base[4]= (V245);          base[4]= (V244);
2332          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2333          Lpackagep();          Lpackagep();
2334          vs_top=sup;          vs_top=sup;
2335          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2336          goto T877;}          goto T874;}
2337          V242= (V245);          V241= (V244);
2338          goto T873;          goto T870;
2339  goto T877;  goto T874;
2340  T877:;  T874:;
2341          base[4]= coerce_to_string((V245));          base[4]= coerce_to_string((V244));
2342          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2343          Lfind_package();          Lfind_package();
2344          vs_top=sup;          vs_top=sup;
2345          V242= vs_base[0];}          V241= vs_base[0];}
2346  goto T873;  goto T870;
2347  T873:;  T870:;
2348            V242= Cnil;
2349          V243= Cnil;          V243= Cnil;
2350          V244= Cnil;          {long V245;
2351          {long V246;          long V246;
2352          long V247;          base[4]= (V241);
         base[4]= (V242);  
2353          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2354          (void) (*Lnk154)();          (void) (*Lnk154)();
2355          if(vs_base>=vs_top){vs_top=sup;goto T883;}          if(vs_base>=vs_top){vs_top=sup;goto T880;}
2356          V246= fix(vs_base[0]);          V245= fix(vs_base[0]);
2357          vs_base++;          vs_base++;
2358          if(vs_base>=vs_top){vs_top=sup;goto T884;}          if(vs_base>=vs_top){vs_top=sup;goto T881;}
2359          V247= fix(vs_base[0]);          V246= fix(vs_base[0]);
2360          vs_top=sup;          vs_top=sup;
2361          goto T885;          goto T882;
2362  goto T883;  goto T880;
2363  T883:;  T880:;
2364            V245= fix(Cnil);
2365    goto T881;
2366    T881:;
2367          V246= fix(Cnil);          V246= fix(Cnil);
2368  goto T884;  goto T882;
2369  T884:;  T882:;
2370          V247= fix(Cnil);          {object V247;
2371  goto T885;          register object V248;
2372  T885:;          V249 = make_fixnum(V246);
2373          {object V248;          V250 = make_fixnum(V245);
2374          register object V249;          V247= number_plus(V249,V250);
2375          V250 = make_fixnum(V247);          V248= small_fixnum(0);
2376    goto T886;
2377    T886:;
2378            if(!(number_compare((V248),(V247))>=0)){
2379            goto T887;}
2380            V242= Cnil;
2381            goto T869;
2382    goto T887;
2383    T887:;
2384          V251 = make_fixnum(V246);          V251 = make_fixnum(V246);
2385          V248= number_plus(V250,V251);          if(!(number_compare((V248),V251)<0)){
2386          V249= small_fixnum(0);          goto T898;}
2387  goto T889;          base[5]= (V241);
2388  T889:;          base[6]= (V248);
         if(!(number_compare((V249),(V248))>=0)){  
         goto T890;}  
         V243= Cnil;  
         goto T872;  
 goto T890;  
 T890:;  
         V252 = make_fixnum(V247);  
         if(!(number_compare((V249),V252)<0)){  
         goto T901;}  
         base[5]= (V242);  
         base[6]= (V249);  
2389          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2390          siLpackage_internal();          siLpackage_internal();
2391          vs_top=sup;          vs_top=sup;
2392          V244= vs_base[0];          V243= vs_base[0];
2393          goto T899;          goto T896;
2394  goto T901;  goto T898;
2395  T901:;  T898:;
2396          base[5]= (V242);          base[5]= (V241);
2397          V253 = make_fixnum(V247);          V252 = make_fixnum(V246);
2398          base[6]= number_minus((V249),V253);          base[6]= number_minus((V248),V252);
2399          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2400          siLpackage_external();          siLpackage_external();
2401          vs_top=sup;          vs_top=sup;
2402          V244= vs_base[0];          V243= vs_base[0];
2403  goto T899;  goto T896;
2404  T899:;  T896:;
2405  goto T897;  goto T894;
2406  T897:;  T894:;
2407          if(((V244))!=Cnil){          if(((V243))!=Cnil){
2408          goto T907;}          goto T904;}
2409          goto T898;          goto T895;
2410  goto T907;  goto T904;
2411  T907:;  T904:;
2412          V243= car((V244));          V242= car((V243));
2413          if((get((V243),(V236),Cnil))==Cnil){          if((get((V242),(V235),Cnil))==Cnil){
2414          goto T912;}          goto T909;}
2415          base[5]= (V234);          base[5]= (V233);
2416          base[6]= (V243);          base[6]= (V242);
2417          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2418          (void) (*Lnk155)();          (void) (*Lnk155)();
2419          vs_top=sup;          vs_top=sup;
2420          V254= vs_base[0];          V253= vs_base[0];
2421          if(!(eql(V254,small_fixnum(0)))){          if(!(eql(V253,small_fixnum(0)))){
2422          goto T912;}          goto T909;}
2423          if(((V241))==Cnil){          if(((V240))==Cnil){
2424          goto T921;}          goto T918;}
2425          {register object V255;          {register object V254;
2426          register object V256;          register object V255;
2427          V255= (V241);          V254= (V240);
2428          V241= make_cons((V243),Cnil);          V240= make_cons((V242),Cnil);
2429          V256= (V241);          V255= (V240);
2430          if(type_of((V255))!=t_cons)FEwrong_type_argument(Scons,(V255));          if(type_of((V254))!=t_cons)FEwrong_type_argument(Scons,(V254));
2431          ((V255))->c.c_cdr = (V256);          ((V254))->c.c_cdr = (V255);
2432          goto T912;}          goto T909;}
2433  goto T921;  goto T918;
2434  T921:;  T918:;
2435          V241= make_cons((V243),Cnil);          V240= make_cons((V242),Cnil);
2436          V240= (V241);          V239= (V240);
2437  goto T912;  goto T909;
2438  T912:;  T909:;
2439          V244= cdr((V244));          V243= cdr((V243));
2440          goto T897;          goto T894;
 goto T898;  
 T898:;  
         goto T895;  
2441  goto T895;  goto T895;
2442  T895:;  T895:;
2443          V249= one_plus((V249));          goto T892;
2444          goto T889;}}}  goto T892;
2445  goto T872;  T892:;
2446  T872:;          V248= one_plus((V248));
2447          if(((V237))==Cnil){          goto T886;}}}
2448          goto T936;}  goto T869;
2449          base[4]= (V240);  T869:;
2450            if(((V236))==Cnil){
2451            goto T933;}
2452            base[4]= (V239);
2453          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2454          return;          return;
2455  goto T936;  goto T933;
2456  T936:;  T933:;
2457          if(!(((long)length((V240)))>(1))){          if(!(((long)length((V239)))>(1))){
2458          goto T939;}          goto T936;}
2459          base[4]= Ct;          base[4]= Ct;
2460          base[5]= VV[75];          base[5]= VV[75];
2461          base[6]= (V236);          base[6]= (V235);
2462          base[7]= (V240);          base[7]= (V239);
2463          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2464          Lformat();          Lformat();
2465          vs_top=sup;          vs_top=sup;
2466          goto T934;          goto T931;
2467  goto T939;  goto T936;
2468  T939:;  T936:;
2469          if(((V240))!=Cnil){          if(((V239))!=Cnil){
2470          goto T946;}          goto T943;}
2471          base[4]= Ct;          base[4]= Ct;
2472          base[5]= VV[76];          base[5]= VV[76];
2473          base[6]= (V234);          base[6]= (V233);
2474          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2475          Lformat();          Lformat();
2476          vs_top=sup;          vs_top=sup;
2477          goto T934;          goto T931;
2478  goto T946;  goto T943;
2479  T946:;  T943:;
2480          base[4]= car((V240));          base[4]= car((V239));
2481          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2482          return;          return;
2483  goto T934;  goto T931;
2484  T934:;  T931:;
2485          base[4]= Cnil;          base[4]= Cnil;
2486          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2487          return;          return;
# Line 2504  static void L39() Line 2496  static void L39()
2496  {register object *base=vs_base;  {register object *base=vs_base;
2497          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2498          vs_reserve(VM37);          vs_reserve(VM37);
2499          {register object V257;          {register object V256;
2500          object V258;          object V257;
2501          check_arg(2);          check_arg(2);
2502          V257=(base[0]);          V256=(base[0]);
2503          V258=(base[1]);          V257=(base[1]);
2504          vs_top=sup;          vs_top=sup;
2505  goto TTL;  goto TTL;
2506  TTL:;  TTL:;
2507          {register object V259;          {register object V258;
2508          V259= reverse((V258));          V258= reverse((V257));
2509  goto T954;  goto T951;
2510  T954:;  T951:;
2511          if(!(type_of((V259))==t_cons)){          if(!(type_of((V258))==t_cons)){
2512          goto T956;}          goto T953;}
2513          base[2]= symbol_value(VV[77]);          base[2]= symbol_value(VV[77]);
2514          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2515          Lfill_pointer();          Lfill_pointer();
2516          vs_top=sup;          vs_top=sup;
2517          V260= vs_base[0];          V259= vs_base[0];
2518          if(!((fix(V260))>(fix((V257))))){          if(!((fix(V259))>(fix((V256))))){
2519          goto T955;}          goto T952;}
2520  goto T956;  goto T953;
2521  T956:;  T953:;
2522          base[2]= Cnil;          base[2]= Cnil;
2523          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2524          return;          return;
2525  goto T955;  goto T952;
2526  T955:;{object V261;  T952:;{object V260;
2527          if(type_of(car((V259)))==t_cons){          if(type_of(car((V258)))==t_cons){
2528          goto T966;}          goto T963;}
2529          V261= Cnil;          V260= Cnil;
2530          goto T965;          goto T962;
2531  goto T966;  goto T963;
2532  T966:;  T963:;
2533          {object V262= cdar((V259));          {object V261= cdar((V258));
2534          V261= (type_of(V262)==t_cons||(V262)==Cnil?Ct:Cnil);}          V260= (type_of(V261)==t_cons||(V261)==Cnil?Ct:Cnil);}
2535  goto T965;  goto T962;
2536  T965:;  T962:;
2537          if(V261==Cnil)goto T964;          if(V260==Cnil)goto T961;
2538          goto T963;          goto T960;
2539  goto T964;  goto T961;
2540  T964:;}  T961:;}
2541          base[2]= Cnil;          base[2]= Cnil;
2542          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2543          return;          return;
2544  goto T963;  goto T960;
2545  T963:;  T960:;
2546          base[2]= symbol_value(VV[77]);          base[2]= symbol_value(VV[77]);
2547          base[3]= VV[78];          base[3]= VV[78];
2548          base[4]= caar((V259));          base[4]= caar((V258));
2549          base[5]= cadar((V259));          base[5]= cadar((V258));
2550          base[6]= cdr((V259));          base[6]= cdr((V258));
2551          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2552          Lformat();          Lformat();
2553          vs_top=sup;          vs_top=sup;
2554          V259= cdr((V259));          V258= cdr((V258));
2555          goto T954;}          goto T951;}
2556          }          }
2557  }  }
2558  /*      function definition for APPLY-DISPLAY-FUN       */  /*      function definition for APPLY-DISPLAY-FUN       */
# Line 2570  static void L40() Line 2562  static void L40()
2562          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
2563          vs_reserve(VM38);          vs_reserve(VM38);
2564          bds_check;          bds_check;
2565          {object V263;          {object V262;
2566            object V263;
2567          object V264;          object V264;
         object V265;  
2568          check_arg(3);          check_arg(3);
2569          V263=(base[0]);          V262=(base[0]);
2570          V264=(base[1]);          V263=(base[1]);
2571          V265=(base[2]);          V264=(base[2]);
2572          vs_top=sup;          vs_top=sup;
2573  goto TTL;  goto TTL;
2574  TTL:;  TTL:;
# Line 2596  TTL:; Line 2588  TTL:;
2588          Lformat();          Lformat();
2589          vs_top=sup;          vs_top=sup;
2590          (void)((          (void)((
2591          (type_of((V263)) == t_sfun ?(*(((V263))->sfn.sfn_self)):          (type_of((V262)) == t_sfun ?(*(((V262))->sfn.sfn_self)):
2592          (fcall.fun=((V263)),fcall.argd=2,fcalln))((V264),(V265))));          (fcall.fun=((V262)),fcall.argd=2,fcalln))((V263),(V264))));
2593          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2594          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2595          Lfill_pointer();          Lfill_pointer();
2596          vs_top=sup;          vs_top=sup;
2597          V266= vs_base[0];          V265= vs_base[0];
2598          if(!((fix(V266))>(fix((V264))))){          if(!((fix(V265))>(fix((V263))))){
2599          goto T985;}          goto T982;}
2600          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2601          base[9]= (V264);          base[9]= (V263);
2602          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2603          siLfill_pointer_set();          siLfill_pointer_set();
2604          vs_top=sup;          vs_top=sup;
# Line 2615  TTL:; Line 2607  TTL:;
2607          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2608          Lformat();          Lformat();
2609          vs_top=sup;          vs_top=sup;
2610  goto T985;  goto T982;
2611  T985:;  T982:;
2612          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2613          base[9]= VV[84];          base[9]= VV[84];
2614          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
# Line 2638  static void L41() Line 2630  static void L41()
2630  {register object *base=vs_base;  {register object *base=vs_base;
2631          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2632          vs_reserve(VM39);          vs_reserve(VM39);
2633          {object V267;          {object V266;
2634          object V268;          object V267;
2635          check_arg(2);          check_arg(2);
2636          V267=(base[0]);          V266=(base[0]);
2637          V268=(base[1]);          V267=(base[1]);
2638          vs_top=sup;          vs_top=sup;
2639  goto TTL;  goto TTL;
2640  TTL:;  TTL:;
2641          {object V269;          {object V268;
2642          V269= (VFUN_NARGS=2,(*(LnkLI143))((V267),(V268)));          V268= (VFUN_NARGS=2,(*(LnkLI143))((V266),(V267)));
2643          if(((V269))==Cnil){          if(((V268))==Cnil){
2644          goto T999;}          goto T996;}
2645          V270= aref1((V268),0);          V269= aref1((V267),0);
2646          base[2]= make_fixnum((long)(fix((V269)))+(fix(cdr(/* INLINE-ARGS */V270))));          base[2]= make_fixnum((long)(fix((V268)))+(fix(cdr(/* INLINE-ARGS */V269))));
2647          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2648          return;          return;
2649  goto T999;  goto T996;
2650  T999:;  T996:;
2651          base[2]= Cnil;          base[2]= Cnil;
2652          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2653          return;}          return;}
# Line 2667  static void L42() Line 2659  static void L42()
2659  {register object *base=vs_base;  {register object *base=vs_base;
2660          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2661          vs_reserve(VM40);          vs_reserve(VM40);
2662          {object V271;          {object V270;
2663          check_arg(1);          check_arg(1);
2664          V271=(base[0]);          V270=(base[0]);
2665          vs_top=sup;          vs_top=sup;
2666  goto TTL;  goto TTL;
2667  TTL:;  TTL:;
2668            {register object V271;
2669            V271= (V270);
2670    goto T999;
2671    T999:;
2672            if(!((fix((V271)))<(fix(symbol_value(VV[85]))))){
2673            goto T1000;}
2674          {register object V272;          {register object V272;
2675          V272= (V271);          V272= Cnil;
2676  goto T1002;          (void)((MVloc[(0)]=((V271))));
2677  T1002:;          base[1]= (V272);
         if(!((fix((V272)))<(fix(symbol_value(VV[85]))))){  
         goto T1003;}  
         {register object V273;  
         V273= Cnil;  
         (void)((MVloc[(0)]=((V272))));  
         base[1]= (V273);  
2678          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2679          return;}          return;}
2680  goto T1003;  goto T1000;
2681  T1003:;  T1000:;
2682          {register object V274;          {register object V273;
2683          base[1]= (V272);          base[1]= (V271);
2684          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2685          (void) (*Lnk140)();          (void) (*Lnk140)();
2686          vs_top=sup;          vs_top=sup;
2687          V274= vs_base[0];          V273= vs_base[0];
2688          {register object V275;          {register object V274;
2689          base[1]= (V274);          base[1]= (V273);
2690          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2691          Lspecial_form_p();          Lspecial_form_p();
2692          vs_top=sup;          vs_top=sup;
2693          V275= vs_base[0];          V274= vs_base[0];
2694            if(((V274))==Cnil){
2695            goto T1011;}
2696            goto T1005;
2697    goto T1011;
2698    T1011:;
2699            {register object V275;
2700            V275= get((V273),VV[86],Cnil);
2701          if(((V275))==Cnil){          if(((V275))==Cnil){
2702          goto T1014;}          goto T1015;}
2703          goto T1008;          goto T1005;
2704  goto T1014;  goto T1015;
2705  T1014:;  T1015:;
2706          {register object V276;          base[1]= (V273);
         V276= get((V274),VV[86],Cnil);  
         if(((V276))==Cnil){  
         goto T1018;}  
         goto T1008;  
 goto T1018;  
 T1018:;  
         base[1]= (V274);  
2707          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2708          Lfboundp();          Lfboundp();
2709          vs_top=sup;          vs_top=sup;
2710          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2711          goto T1008;}          goto T1005;}
2712          {register object V277;          {register object V276;
2713          V277= (V274);          V276= (V273);
2714          (void)((MVloc[(0)]=((V272))));          (void)((MVloc[(0)]=((V271))));
2715          base[1]= (V277);          base[1]= (V276);
2716          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2717          return;}}}}          return;}}}}
2718  goto T1008;  goto T1005;
2719  T1008:;  T1005:;
2720          V272= make_fixnum((long)(fix((V272)))-(1));          V271= make_fixnum((long)(fix((V271)))-(1));
2721          goto T1002;}          goto T999;}
2722          }          }
2723  }  }
2724  /*      function definition for DBL-WHAT-FRAME  */  /*      function definition for DBL-WHAT-FRAME  */
# Line 2735  static void L43() Line 2727  static void L43()
2727  {register object *base=vs_base;  {register object *base=vs_base;
2728          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
2729          vs_reserve(VM41);          vs_reserve(VM41);
2730          {register long V278;          {register long V277;
2731          check_arg(1);          check_arg(1);
2732          V278=fix(base[0]);          V277=fix(base[0]);
2733          vs_top=sup;          vs_top=sup;
2734  goto TTL;  goto TTL;
2735  TTL:;  TTL:;
2736          {register long V279;          {register long V278;
2737          register long V280;          register long V279;
2738          register object V281;          register object V280;
2739          V279= fix(symbol_value(VV[87]));          V278= fix(symbol_value(VV[87]));
2740          V280= 0;          V279= 0;
2741          V281= Cnil;          V280= Cnil;
2742  goto T1031;  goto T1028;
2743  T1031:;  T1028:;
2744          {register object V282;          {register object V281;
2745          base[1]= make_fixnum(V279);          base[1]= make_fixnum(V278);
2746          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2747          (void) (*Lnk156)();          (void) (*Lnk156)();
2748          vs_top=sup;          vs_top=sup;
2749          V281= vs_base[0];          V280= vs_base[0];
2750          V282= (V281);          V281= (V280);
2751          V279= fix((MVloc[(0)]));}          V278= fix((MVloc[(0)]));}
2752          if(!((V279)<=(V278))){          if(!((V278)<=(V277))){
2753          goto T1039;}          goto T1036;}
2754          base[1]= make_fixnum(V280);          base[1]= make_fixnum(V279);
2755          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2756          return;          return;
2757  goto T1039;  goto T1036;
2758  T1039:;  T1036:;
2759          V280= (long)(V280)+(1);          V279= (long)(V279)+(1);
2760          V279= (long)(V279)-(1);          V278= (long)(V278)-(1);
2761          goto T1031;}          goto T1028;}
2762          }          }
2763  }  }
2764  /*      function definition for DBL-UP  */  /*      function definition for DBL-UP  */
# Line 2775  static void L44() Line 2767  static void L44()
2767  {register object *base=vs_base;  {register object *base=vs_base;
2768          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
2769          vs_reserve(VM42);          vs_reserve(VM42);
2770          {register object V283;          {register object V282;
2771          object V284;          object V283;
2772          check_arg(2);          check_arg(2);
2773          V283=(base[0]);          V282=(base[0]);
2774          V284=(base[1]);          V283=(base[1]);
2775          vs_top=sup;          vs_top=sup;
2776  goto TTL;  goto TTL;
2777  TTL:;  TTL:;
2778          {object V285;          {object V284;
2779            object V285;
2780          object V286;          object V286;
2781          object V287;          object V287;
2782          object V288;          object V288;
2783          object V289;          V284= Cnil;
2784          V285= Cnil;          V285= Cnil;
2785          V286= Cnil;          V286= Cnil;
2786          V287= Cnil;          V287= Cnil;
2787          V288= Cnil;          V288= Cnil;
2788          V289= Cnil;          base[2]= (V283);
         base[2]= (V284);  
2789          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2790          (void) (*Lnk157)();          (void) (*Lnk157)();
2791          vs_top=sup;          vs_top=sup;
2792          V285= vs_base[0];          V284= vs_base[0];
2793          if(!((fix((V283)))>=(0))){          if(!((fix((V282)))>=(0))){
2794          goto T1055;}          goto T1052;}
2795          {object V290;          {object V289;
2796          base[2]= (V283);          base[2]= (V282);
2797          base[3]= (V284);          base[3]= (V283);
2798          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2799          (void) (*Lnk158)();          (void) (*Lnk158)();
2800          vs_top=sup;          vs_top=sup;
2801          setq(VV[9],vs_base[0]);          setq(VV[9],vs_base[0]);
2802          V290= symbol_value(VV[9]);          V289= symbol_value(VV[9]);
2803          V283= (MVloc[(0)]);          V282= (MVloc[(0)]);
2804          V286= (MVloc[(1)]);          V285= (MVloc[(1)]);
2805          V287= (MVloc[(2)]);          V286= (MVloc[(2)]);
2806          V288= (MVloc[(3)]);          V287= (MVloc[(3)]);
2807          V289= (MVloc[(4)]);}          V288= (MVloc[(4)]);}
2808          (void)((*(LnkLI159))());          (void)((*(LnkLI159))());
2809          base[2]= make_fixnum((long)(fix((V285)))+(fix((V283))));          base[2]= make_fixnum((long)(fix((V284)))+(fix((V282))));
2810          base[3]= Ct;          base[3]= Ct;
2811          base[4]= symbol_value(VV[9]);          base[4]= symbol_value(VV[9]);
2812          base[5]= (V286);          base[5]= (V285);
2813          base[6]= (V287);          base[6]= (V286);
2814          base[7]= (V288);          base[7]= (V287);
2815          base[8]= (V289);          base[8]= (V288);
2816          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
2817          (void) (*Lnk160)();          (void) (*Lnk160)();
2818          return;          return;
2819  goto T1055;  goto T1052;
2820  T1055:;  T1052:;
2821          V283= make_fixnum((long)(fix((V285)))+(fix((V283))));          V282= make_fixnum((long)(fix((V284)))+(fix((V282))));
2822          if(!((fix((V283)))>=(0))){          if(!((fix((V282)))>=(0))){
2823          goto T1083;}          goto T1080;}
2824          goto T1082;          goto T1079;
2825  goto T1083;  goto T1080;
2826  T1083:;  T1080:;
2827          V283= small_fixnum(0);          V282= small_fixnum(0);
2828  goto T1082;  goto T1079;
2829  T1082:;  T1079:;
2830          V284= symbol_value(VV[87]);          V283= symbol_value(VV[87]);
2831          goto TTL;}          goto TTL;}
2832          }          }
2833  }  }
# Line 2845  static void L45() Line 2837  static void L45()
2837  {register object *base=vs_base;  {register object *base=vs_base;
2838          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2839          vs_reserve(VM43);          vs_reserve(VM43);
2840          {object V291;          {object V290;
2841          check_arg(1);          check_arg(1);
2842          V291=(base[0]);          V290=(base[0]);
2843          vs_top=sup;          vs_top=sup;
2844  goto TTL;  goto TTL;
2845  TTL:;  TTL:;
2846          {register object V292;          {register object V291;
2847            register object V292;
2848          register object V293;          register object V293;
2849          register object V294;          register object V294;
2850          register object V295;          object V295;
2851          object V296;          V291= Cnil;
2852          V292= Cnil;          V292= Cnil;
2853          V293= Cnil;          V293= Cnil;
2854          V294= Cnil;          V294= Cnil;
2855          V295= Cnil;          V295= Cnil;
2856          V296= Cnil;          if(!((fix((V290)))<(fix(symbol_value(VV[85]))))){
2857          if(!((fix((V291)))<(fix(symbol_value(VV[85]))))){          goto T1092;}
         goto T1095;}  
2858          (void)((MVloc[(0)]=(Cnil)));          (void)((MVloc[(0)]=(Cnil)));
2859          (void)((MVloc[(1)]=(Cnil)));          (void)((MVloc[(1)]=(Cnil)));
2860          (void)((MVloc[(2)]=(Cnil)));          (void)((MVloc[(2)]=(Cnil)));
# Line 2870  TTL:; Line 2862  TTL:;
2862          base[1]= Cnil;          base[1]= Cnil;
2863          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2864          return;          return;
2865  goto T1095;  goto T1092;
2866  T1095:;  T1092:;
2867            {object V297;
2868            V297= Cnil;
2869          {object V298;          {object V298;
2870          V298= Cnil;          base[1]= (V290);
         {object V299;  
         base[1]= (V291);  
2871          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2872          (void) (*Lnk156)();          (void) (*Lnk156)();
2873          vs_top=sup;          vs_top=sup;
2874          V298= vs_base[0];          V297= vs_base[0];
2875          V299= (V298);          V298= (V297);
2876          V294= (MVloc[(0)]);}          V293= (MVloc[(0)]);}
2877          V296= (V298);          V295= (V297);
2878          {object V300;          {object V299;
2879          V292= get((V298),VV[49],Cnil);          V291= get((V297),VV[49],Cnil);
2880          if(((V292))!=Cnil){          if(((V291))!=Cnil){
2881          goto T1110;}          goto T1107;}
2882          V300= Cnil;          V299= Cnil;
2883          goto T1109;          goto T1106;
2884  goto T1110;  goto T1107;
2885  T1110:;  T1107:;
2886          {register object V301;          {register object V300;
2887          register object V302;          register object V301;
2888          V301= make_fixnum((long)(fix((V291)))+(1));          V300= make_fixnum((long)(fix((V290)))+(1));
2889          V302= Cnil;          V301= Cnil;
2890  goto T1115;  goto T1112;
2891  T1115:;  T1112:;
2892          if(!(number_compare((V301),(V294))<=0)){          if(!(number_compare((V300),(V293))<=0)){
2893          goto T1116;}          goto T1113;}
2894          V300= Cnil;          V299= Cnil;
2895          goto T1109;          goto T1106;
2896  goto T1116;  goto T1113;
2897  T1116:;  T1113:;
2898          base[1]= (V301);          base[1]= (V300);
2899          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2900          (void) (*Lnk115)();          (void) (*Lnk115)();
2901          vs_top=sup;          vs_top=sup;
2902          V302= vs_base[0];          V301= vs_base[0];
2903          base[2]= (V301);          base[2]= (V300);
2904          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2905          (void) (*Lnk115)();          (void) (*Lnk115)();
2906          vs_top=sup;          vs_top=sup;
2907          base[1]= vs_base[0];          base[1]= vs_base[0];
2908          base[2]= (V292);          base[2]= (V291);
2909          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2910          (void) (*Lnk161)();          (void) (*Lnk161)();
2911          vs_top=sup;          vs_top=sup;
2912          V293= vs_base[0];          V292= vs_base[0];
2913          if(((V293))==Cnil){          if(((V292))==Cnil){
2914          goto T1123;}          goto T1120;}
2915          {register object V303;          {register object V302;
2916          V303= (V294);          V302= (V293);
2917          (void)((MVloc[(0)]=((V298))));          (void)((MVloc[(0)]=((V297))));
2918          (void)((MVloc[(1)]=((V293))));          (void)((MVloc[(1)]=((V292))));
2919          V304= aref1((V292),0);          V303= aref1((V291),0);
2920          (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V304))));          (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V303))));
2921          base[2]= (V301);          base[2]= (V300);
2922          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2923          (void) (*Lnk111)();          (void) (*Lnk111)();
2924          vs_top=sup;          vs_top=sup;
2925          V295= vs_base[0];          V294= vs_base[0];
2926          base[1]= (V295);          base[1]= (V294);
2927          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2928          (void) (*Lnk112)();          (void) (*Lnk112)();
2929          vs_top=sup;          vs_top=sup;
2930          V305= vs_base[0];          V304= vs_base[0];
2931          base[1]= one_plus((V295));          base[1]= one_plus((V294));
2932          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2933          (void) (*Lnk112)();          (void) (*Lnk112)();
2934          vs_top=sup;          vs_top=sup;
2935          V306= vs_base[0];          V305= vs_base[0];
2936          base[1]= number_plus((V295),small_fixnum(2));          base[1]= number_plus((V294),small_fixnum(2));
2937          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2938          (void) (*Lnk112)();          (void) (*Lnk112)();
2939          vs_top=sup;          vs_top=sup;
2940          V307= vs_base[0];          V306= vs_base[0];
2941          V308= list(3,V305,V306,V307);          V307= list(3,V304,V305,V306);
2942          (void)((MVloc[(3)]=(/* INLINE-ARGS */V308)));          (void)((MVloc[(3)]=(/* INLINE-ARGS */V307)));
2943          base[1]= (V303);          base[1]= (V302);
2944          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2945          return;}          return;}
2946  goto T1123;  goto T1120;
2947  T1123:;  T1120:;
2948          V301= make_fixnum((long)(fix((V301)))-(1));          V300= make_fixnum((long)(fix((V300)))-(1));
2949          goto T1115;}          goto T1112;}
2950  goto T1109;  goto T1106;
2951  T1109:;  T1106:;
2952          if(((V300))==Cnil){          if(((V299))==Cnil){
2953          goto T1146;}          goto T1143;}
2954          base[1]= (V300);          base[1]= (V299);
2955          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2956          return;          return;
2957  goto T1146;  goto T1143;
2958  T1146:;  T1143:;
2959          base[1]= (V296);          base[1]= (V295);
2960          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2961          Lspecial_form_p();          Lspecial_form_p();
2962          vs_top=sup;          vs_top=sup;
2963          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2964          goto T1149;}          goto T1146;}
2965          base[1]= Cnil;          base[1]= Cnil;
2966          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2967          return;          return;
2968  goto T1149;  goto T1146;
2969  T1149:;  T1146:;
2970          {object V309;          {object V308;
2971          V309= get((V296),VV[86],Cnil);          V308= get((V295),VV[86],Cnil);
2972          if(((V309))==Cnil){          if(((V308))==Cnil){
2973          goto T1154;}          goto T1151;}
2974          base[1]= (V309);          base[1]= (V308);
2975          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2976          return;          return;
2977  goto T1154;  goto T1151;
2978  T1154:;  T1151:;
2979          base[1]= (V296);          base[1]= (V295);
2980          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2981          Lfboundp();          Lfboundp();
2982          vs_top=sup;          vs_top=sup;
2983          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2984          goto T1157;}          goto T1154;}
2985          (void)((MVloc[(0)]=((V296))));          (void)((MVloc[(0)]=((V295))));
2986          (void)((MVloc[(1)]=(Cnil)));          (void)((MVloc[(1)]=(Cnil)));
2987          (void)((MVloc[(2)]=(Cnil)));          (void)((MVloc[(2)]=(Cnil)));
2988          base[1]= (V294);          base[1]= (V293);
2989          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2990          (void) (*Lnk162)();          (void) (*Lnk162)();
2991          vs_top=sup;          vs_top=sup;
2992          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2993          goto T1166;}          goto T1163;}
2994          V311= Cnil;          V310= Cnil;
2995          goto T1164;          goto T1161;
2996  goto T1166;  goto T1163;
2997  T1166:;  T1163:;
2998          {object V312;          {object V311;
2999          base[1]= (V294);          base[1]= (V293);
3000          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3001          (void) (*Lnk111)();          (void) (*Lnk111)();
3002          vs_top=sup;          vs_top=sup;
3003          V312= vs_base[0];          V311= vs_base[0];
3004          base[1]= (V312);          base[1]= (V311);
3005          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3006          (void) (*Lnk112)();          (void) (*Lnk112)();
3007          vs_top=sup;          vs_top=sup;
3008          V313= vs_base[0];          V312= vs_base[0];
3009          base[1]= one_plus((V312));          base[1]= one_plus((V311));
3010          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3011          (void) (*Lnk112)();          (void) (*Lnk112)();
3012          vs_top=sup;          vs_top=sup;
3013          V314= vs_base[0];          V313= vs_base[0];
3014          base[1]= make_fixnum((long)(fix((V312)))+(2));          base[1]= make_fixnum((long)(fix((V311)))+(2));
3015          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3016          (void) (*Lnk112)();          (void) (*Lnk112)();
3017          vs_top=sup;          vs_top=sup;
3018          V315= vs_base[0];          V314= vs_base[0];
3019          V311= list(3,V313,V314,V315);}          V310= list(3,V312,V313,V314);}
3020  goto T1164;  goto T1161;
3021  T1164:;  T1161:;
3022          (void)((MVloc[(3)]=(V311)));          (void)((MVloc[(3)]=(V310)));
3023          base[1]= V294;          base[1]= V293;
3024          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3025          return;          return;
3026  goto T1157;  goto T1154;
3027  T1157:;  T1154:;
3028          base[1]= Cnil;          base[1]= Cnil;
3029          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3030          return;}}}}          return;}}}}
# Line 3044  static void L46() Line 3036  static void L46()
3036  {register object *base=vs_base;  {register object *base=vs_base;
3037          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
3038          vs_reserve(VM44);          vs_reserve(VM44);
3039          {register object V316;          {register object V315;
3040          register object V317;          register object V316;
3041          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3042          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3043          V316=(base[0]);          V315=(base[0]);
3044          vs_base=vs_base+1;          vs_base=vs_base+1;
3045          if(vs_base>=vs_top){vs_top=sup;goto T1177;}          if(vs_base>=vs_top){vs_top=sup;goto T1174;}
3046          V317=(base[1]);          V316=(base[1]);
3047          vs_top=sup;          vs_top=sup;
3048          goto T1178;          goto T1175;
3049  goto T1177;  goto T1174;
3050  T1177:;  T1174:;
3051          V317= symbol_value(VV[87]);          V316= symbol_value(VV[87]);
3052  goto T1178;  goto T1175;
3053  T1178:;  T1175:;
3054          {register object V318;          {register object V317;
3055            object V318;
3056          object V319;          object V319;
3057          object V320;          object V320;
3058          object V321;          register object V321;
3059          register object V322;          V317= Cnil;
3060          V318= Cnil;          V318= Cnil;
3061          V319= Cnil;          V319= Cnil;
3062          V320= Cnil;          V320= Cnil;
3063          V321= Cnil;          V321= Cnil;
3064          V322= Cnil;          if(!((fix((V315)))>=(0))){
3065          if(!((fix((V316)))>=(0))){          goto T1183;}
3066          goto T1186;}          goto T1182;
3067          goto T1185;  goto T1183;
3068  goto T1186;  T1183:;
3069  T1186:;          V315= small_fixnum(0);
3070          V316= small_fixnum(0);  goto T1182;
3071  goto T1185;  T1182:;
3072  T1185:;          {object V322;
3073          {object V323;          register object V323;
3074          register object V324;          V322= make_fixnum((long)(fix((V315)))+(1));
3075          V323= make_fixnum((long)(fix((V316)))+(1));          V323= small_fixnum(0);
3076          V324= small_fixnum(0);  goto T1190;
3077  goto T1193;  T1190:;
3078  T1193:;          if(!(number_compare((V323),(V322))>=0)){
3079          if(!(number_compare((V324),(V323))>=0)){          goto T1191;}
3080          goto T1194;}          goto T1186;
3081          goto T1189;  goto T1191;
3082  goto T1194;  T1191:;
3083  T1194:;          base[3]= (V316);
         base[3]= (V317);  
3084          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3085          (void) (*Lnk163)();          (void) (*Lnk163)();
3086          vs_top=sup;          vs_top=sup;
3087          V322= vs_base[0];          V321= vs_base[0];
3088          if(((V322))==Cnil){          if(((V321))==Cnil){
3089          goto T1203;}          goto T1200;}
3090          {register object V325;          {register object V324;
3091          V317= (V322);          V316= (V321);
3092          V325= (V317);          V324= (V316);
3093          V318= (MVloc[(0)]);          V317= (MVloc[(0)]);
3094          V319= (MVloc[(1)]);          V318= (MVloc[(1)]);
3095          V320= (MVloc[(2)]);          V319= (MVloc[(2)]);
3096          V321= (MVloc[(3)]);}          V320= (MVloc[(3)]);}
3097          V317= make_fixnum((long)(fix((V322)))-(1));          V316= make_fixnum((long)(fix((V321)))-(1));
3098          goto T1201;          goto T1198;
3099  goto T1203;  goto T1200;
3100  T1203:;  T1200:;
3101          V316= make_fixnum((long)(fix((V324)))-(1));          V315= make_fixnum((long)(fix((V323)))-(1));
3102          goto T1189;          goto T1186;
3103  goto T1201;  goto T1198;
3104  T1201:;  T1198:;
3105          V324= one_plus((V324));          V323= one_plus((V323));
3106          goto T1193;}          goto T1190;}
3107  goto T1189;  goto T1186;
3108  T1189:;  T1186:;
3109          V317= make_fixnum((long)(fix((V317)))+(1));          V316= make_fixnum((long)(fix((V316)))+(1));
3110          base[2]= (V317);          base[2]= (V316);
3111          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3112          (void) (*Lnk140)();          (void) (*Lnk140)();
3113          vs_top=sup;          vs_top=sup;
3114          V318= vs_base[0];          V317= vs_base[0];
3115          (void)((MVloc[(0)]=((V316))));          (void)((MVloc[(0)]=((V315))));
3116          (void)((MVloc[(1)]=((V318))));          (void)((MVloc[(1)]=((V317))));
3117          (void)((MVloc[(2)]=((V319))));          (void)((MVloc[(2)]=((V318))));
3118          (void)((MVloc[(3)]=((V320))));          (void)((MVloc[(3)]=((V319))));
3119          (void)((MVloc[(4)]=((V321))));          (void)((MVloc[(4)]=((V320))));
3120          base[2]= V317;          base[2]= V316;
3121          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3122          return;}          return;}
3123          }          }
# Line 3136  static void L47() Line 3128  static void L47()
3128  {register object *base=vs_base;  {register object *base=vs_base;
3129          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3130          vs_reserve(VM45);          vs_reserve(VM45);
3131          {object V327;          {object V326;
3132          register object V328;          register object V327;
3133          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3134          if(vs_base>=vs_top){vs_top=sup;goto T1231;}          if(vs_base>=vs_top){vs_top=sup;goto T1228;}
3135          V327=(base[0]);          V326=(base[0]);
3136          vs_base++;          vs_base++;
3137          if(vs_base>=vs_top){vs_top=sup;goto T1232;}          if(vs_base>=vs_top){vs_top=sup;goto T1229;}
3138          V328=(base[1]);          V327=(base[1]);
3139          vs_top=sup;          vs_top=sup;
3140          goto T1233;          goto T1230;
3141  goto T1231;  goto T1228;
3142  T1231:;  T1228:;
3143          V327= small_fixnum(1000);          V326= small_fixnum(1000);
3144  goto T1232;  goto T1229;
3145  T1232:;  T1229:;
3146          V328= symbol_value(VV[87]);          V327= symbol_value(VV[87]);
3147  goto T1233;  goto T1230;
3148  T1233:;  T1230:;
3149          {register object V329;          {register object V328;
3150            register object V329;
3151          register object V330;          register object V330;
3152          register object V331;          register object V331;
3153          register object V332;          register object V332;
3154          register object V333;          V328= Cnil;
3155          V329= Cnil;          V329= Cnil;
3156          V330= Cnil;          V330= Cnil;
3157          V331= Cnil;          V331= Cnil;
3158          V332= Cnil;          V332= small_fixnum(0);
3159          V333= small_fixnum(0);  goto T1240;
3160  goto T1243;  T1240:;
3161  T1243:;          {object V333;
3162          {object V334;          base[2]= (V327);
         base[2]= (V328);  
3163          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3164          (void) (*Lnk163)();          (void) (*Lnk163)();
3165          vs_top=sup;          vs_top=sup;
3166          V328= vs_base[0];          V327= vs_base[0];
3167          V334= (V328);          V333= (V327);
3168          V329= (MVloc[(0)]);          V328= (MVloc[(0)]);
3169          V331= (MVloc[(1)]);          V330= (MVloc[(1)]);
3170          V330= (MVloc[(2)]);          V329= (MVloc[(2)]);
3171          V332= (MVloc[(3)]);}          V331= (MVloc[(3)]);}
3172          if((V329)!=Cnil){          if((V328)!=Cnil){
3173          goto T1257;}          goto T1254;}
3174          goto T1241;          goto T1238;
3175  goto T1257;  goto T1254;
3176  T1257:;  T1254:;
3177          base[2]= (V333);          base[2]= (V332);
3178          base[3]= Cnil;          base[3]= Cnil;
3179          base[4]= (V328);          base[4]= (V327);
3180          base[5]= (V329);          base[5]= (V328);
3181          base[6]= (V331);          base[6]= (V330);
3182          base[7]= (V330);          base[7]= (V329);
3183          base[8]= (V332);          base[8]= (V331);
3184          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
3185          (void) (*Lnk160)();          (void) (*Lnk160)();
3186          vs_top=sup;          vs_top=sup;
3187          V333= number_plus((V333),small_fixnum(1));          V332= number_plus((V332),small_fixnum(1));
3188          if(!((fix((V333)))>=(fix((V327))))){          if(!((fix((V332)))>=(fix((V326))))){
3189          goto T1268;}          goto T1265;}
3190          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
3191          vs_base[0]=Cnil;          vs_base[0]=Cnil;
3192          vs_top=sup;          vs_top=sup;
3193          goto T1241;          goto T1238;
3194  goto T1268;  goto T1265;
3195  T1268:;  T1265:;
3196          V328= make_fixnum((long)(fix((V328)))-(1));          V327= make_fixnum((long)(fix((V327)))-(1));
3197          goto T1243;          goto T1240;
3198  goto T1241;  goto T1238;
3199  T1241:;  T1238:;
3200          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
3201          vs_base[0]=Cnil;          vs_base[0]=Cnil;
3202          return;}          return;}
# Line 3216  static void L48() Line 3208  static void L48()
3208  {register object *base=vs_base;  {register object *base=vs_base;
3209          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3210          vs_reserve(VM46);          vs_reserve(VM46);
3211          {register object V335;          {register object V334;
3212          object V336;          object V335;
3213          check_arg(2);          check_arg(2);
3214          V335=(base[0]);          V334=(base[0]);
3215          V336=(base[1]);          V335=(base[1]);
3216          vs_top=sup;          vs_top=sup;
3217  goto TTL;  goto TTL;
3218  TTL:;  TTL:;
3219          {register object V337;          {register object V336;
3220          register object V338;          register object V337;
3221          base[4]= (V336);          base[4]= (V335);
3222          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3223          (void) (*Lnk111)();          (void) (*Lnk111)();
3224          vs_top=sup;          vs_top=sup;
3225          V337= vs_base[0];          V336= vs_base[0];
3226          base[4]= one_plus((V336));          base[4]= one_plus((V335));
3227          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3228          (void) (*Lnk111)();          (void) (*Lnk111)();
3229          vs_top=sup;          vs_top=sup;
3230          V339= vs_base[0];          V338= vs_base[0];
3231          vs_base=vs_top;          vs_base=vs_top;
3232          (void) (*Lnk164)();          (void) (*Lnk164)();
3233          vs_top=sup;          vs_top=sup;
3234          V340= vs_base[0];          V339= vs_base[0];
3235          V338= (number_compare(V339,V340)<=0?(V339):V340);          V337= (number_compare(V338,V339)<=0?(V338):V339);
3236          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3237          base[5]= VV[88];          base[5]= VV[88];
3238          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3239          Lformat();          Lformat();
3240          vs_top=sup;          vs_top=sup;
3241          {register object V341;          {register object V340;
3242          register object V342;          register object V341;
3243          base[4]= (V336);          base[4]= (V335);
3244          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3245          (void) (*Lnk140)();          (void) (*Lnk140)();
3246          vs_top=sup;          vs_top=sup;
3247          V343= vs_base[0];          V342= vs_base[0];
3248          V342= get(V343,VV[14],Cnil);          V341= get(V342,VV[14],Cnil);
3249          V341= (V337);          V340= (V336);
3250  goto T1286;  goto T1283;
3251  T1286:;  T1283:;
3252          if((fix((V341)))>=(fix((V338)))){          if((fix((V340)))>=(fix((V337)))){
3253          goto T1288;}          goto T1285;}
3254          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3255          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3256          Lfill_pointer();          Lfill_pointer();
3257          vs_top=sup;          vs_top=sup;
3258          V344= vs_base[0];          V343= vs_base[0];
3259          if(!((fix(V344))>(fix((V335))))){          if(!((fix(V343))>(fix((V334))))){
3260          goto T1287;}          goto T1284;}
3261  goto T1288;  goto T1285;
3262  T1288:;  T1285:;
3263          base[4]= Cnil;          base[4]= Cnil;
3264          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3265          return;          return;
3266  goto T1287;  goto T1284;
3267  T1287:;  T1284:;
3268          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3269          base[5]= VV[89];{object V345;          base[5]= VV[89];{object V344;
3270          V345= car((V342));          V344= car((V341));
3271          if(V345==Cnil)goto T1299;          if(V344==Cnil)goto T1296;
3272          base[6]= V345;          base[6]= V344;
3273          goto T1298;          goto T1295;
3274  goto T1299;  goto T1296;
3275  T1299:;}  T1296:;}
3276          base[6]= VV[90];          base[6]= VV[90];
3277    goto T1295;
3278    T1295:;
3279            if((car((V341)))!=Cnil){
3280            goto T1300;}
3281            base[7]= make_fixnum((long)(fix((V340)))-(fix((V336))));
3282            goto T1298;
3283    goto T1300;
3284    T1300:;
3285            base[7]= Cnil;
3286  goto T1298;  goto T1298;
3287  T1298:;  T1298:;
3288          if((car((V342)))!=Cnil){          base[9]= (V340);
         goto T1303;}  
         base[7]= make_fixnum((long)(fix((V341)))-(fix((V337))));  
         goto T1301;  
 goto T1303;  
 T1303:;  
         base[7]= Cnil;  
 goto T1301;  
 T1301:;  
         base[9]= (V341);  
3289          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3290          (void) (*Lnk112)();          (void) (*Lnk112)();
3291          vs_top=sup;          vs_top=sup;
3292          base[8]= vs_base[0];          base[8]= vs_base[0];
3293          V341= make_fixnum((long)(fix((V341)))+(1));          V340= make_fixnum((long)(fix((V340)))+(1));
3294          base[9]= ((fix((V341)))<(fix((V338)))?Ct:Cnil);          base[9]= ((fix((V340)))<(fix((V337)))?Ct:Cnil);
3295          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
3296          Lformat();          Lformat();
3297          vs_top=sup;          vs_top=sup;
3298          V342= cdr((V342));          V341= cdr((V341));
3299          goto T1286;}}          goto T1283;}}
3300          }          }
3301  }  }
3302  /*      function definition for COMPUTING-ARGS-P        */  /*      function definition for COMPUTING-ARGS-P        */
# Line 3313  static void L49() Line 3305  static void L49()
3305  {register object *base=vs_base;  {register object *base=vs_base;
3306          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
3307          vs_reserve(VM47);          vs_reserve(VM47);
3308          {object V346;          {object V345;
3309          check_arg(1);          check_arg(1);
3310          V346=(base[0]);          V345=(base[0]);
3311          vs_top=sup;          vs_top=sup;
3312  goto TTL;  goto TTL;
3313  TTL:;  TTL:;
3314          base[1]= (V346);          base[1]= (V345);
3315          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3316          (void) (*Lnk115)();          (void) (*Lnk115)();
3317          vs_top=sup;          vs_top=sup;
3318          V347= vs_base[0];          V346= vs_base[0];
3319          if(type_of(V347)==t_cons){          if(type_of(V346)==t_cons){
3320          goto T1312;}          goto T1309;}
3321          base[1]= Cnil;          base[1]= Cnil;
3322          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3323          return;          return;
3324  goto T1312;  goto T1309;
3325  T1312:;  T1309:;
3326          if(number_compare((V346),small_fixnum(3))>0){          if(number_compare((V345),small_fixnum(3))>0){
3327          goto T1316;}          goto T1313;}
3328          base[1]= Cnil;          base[1]= Cnil;
3329          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3330          return;          return;
3331  goto T1316;  goto T1313;
3332  T1316:;  T1313:;
3333          base[1]= (V346);          base[1]= (V345);
3334          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3335          (void) (*Lnk115)();          (void) (*Lnk115)();
3336          vs_top=sup;          vs_top=sup;
3337          V350= vs_base[0];          V349= vs_base[0];
3338          {register object x= car(V350),V349= VV[91];          {register object x= car(V349),V348= VV[91];
3339          while(!endp(V349))          while(!endp(V348))
3340          if(eql(x,V349->c.c_car)){          if(eql(x,V348->c.c_car)){
3341          V348= V349;          V347= V348;
3342          goto T1318;          goto T1315;
3343          }else V349=V349->c.c_cdr;          }else V348=V348->c.c_cdr;
3344          V348= Cnil;}          V347= Cnil;}
3345  goto T1318;  goto T1315;
3346  T1318:;  T1315:;
3347          base[1]= ((V348)==Cnil?Ct:Cnil);          base[1]= ((V347)==Cnil?Ct:Cnil);
3348          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3349          return;          return;
3350          }          }
# Line 3363  static void L50() Line 3355  static void L50()
3355  {register object *base=vs_base;  {register object *base=vs_base;
3356          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
3357          vs_reserve(VM48);          vs_reserve(VM48);
3358          {object V351;          {object V350;
3359          object V352;          object V351;
3360          register object V353;          register object V352;
3361            object V353;
3362          object V354;          object V354;
3363          object V355;          object V355;
         object V356;  
         object V357;  
3364          if(vs_top-vs_base<4) too_few_arguments();          if(vs_top-vs_base<4) too_few_arguments();
3365          if(vs_top-vs_base>7) too_many_arguments();          if(vs_top-vs_base>6) too_many_arguments();
3366          V351=(base[0]);          V350=(base[0]);
3367          V352=(base[1]);          V351=(base[1]);
3368          V353=(base[2]);          V352=(base[2]);
3369          V354=(base[3]);          V353=(base[3]);
3370          vs_base=vs_base+4;          vs_base=vs_base+4;
3371          if(vs_base>=vs_top){vs_top=sup;goto T1321;}          if(vs_base>=vs_top){vs_top=sup;goto T1318;}
3372          V355=(base[4]);          V354=(base[4]);
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1322;}  
         V356=(base[5]);  
3373          vs_base++;          vs_base++;
3374          if(vs_base>=vs_top){vs_top=sup;goto T1323;}          if(vs_base>=vs_top){vs_top=sup;goto T1319;}
3375          V357=(base[6]);          V355=(base[5]);
3376          vs_top=sup;          vs_top=sup;
3377          goto T1324;          goto T1320;
3378  goto T1321;  goto T1318;
3379  T1321:;  T1318:;
3380            V354= Cnil;
3381    goto T1319;
3382    T1319:;
3383          V355= Cnil;          V355= Cnil;
3384  goto T1322;  goto T1320;
3385  T1322:;  T1320:;
3386          V356= Cnil;          if(((V351))==Cnil){
3387  goto T1323;          goto T1323;}
3388  T1323:;          if(((V354))==Cnil){
3389          V357= Cnil;          goto T1323;}
3390  goto T1324;          base[6]= symbol_value(VV[1]);
3391  T1324:;          base[7]= VV[92];
3392          if(((V352))==Cnil){          base[8]= (V355);
3393          goto T1328;}          base[9]= (V354);
3394          if(((V355))==Cnil){          vs_top=(vs_base=base+6)+4;
         goto T1328;}  
         base[7]= symbol_value(VV[1]);  
         base[8]= VV[92];  
         base[9]= (V356);  
         base[10]= (V355);  
         vs_top=(vs_base=base+7)+4;  
3395          Lformat();          Lformat();
3396          vs_top=sup;          vs_top=sup;
3397  goto T1328;  goto T1323;
3398  T1328:;  T1323:;
3399          {object V358;          {object V356;
3400          base[7]= (V353);          base[6]= (V352);
3401          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+6)+1;
3402          (void) (*Lnk165)();          (void) (*Lnk165)();
3403          vs_top=sup;          vs_top=sup;
3404          V358= vs_base[0];          V356= vs_base[0];
3405          base[7]= symbol_value(VV[1]);          base[6]= symbol_value(VV[1]);
3406          base[8]= VV[93];          base[7]= VV[93];
3407          base[9]= (V351);          base[8]= (V350);
3408          if((V358)==Cnil){          if((V356)==Cnil){
3409          base[10]= Cnil;          base[9]= Cnil;
3410          goto T1343;}          goto T1338;}
3411          base[10]= VV[94];          base[9]= VV[94];
3412  goto T1343;  goto T1338;
3413  T1343:;  T1338:;
3414          base[11]= (V354);          base[10]= (V353);
3415          base[13]= (V353);          base[12]= (V352);
3416          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+12)+1;
3417          (void) (*Lnk162)();          (void) (*Lnk162)();
3418          vs_top=sup;          vs_top=sup;
3419          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3420          goto T1347;}          goto T1342;}
3421          base[13]= VV[95];          base[12]= VV[95];
3422          base[14]= small_fixnum(80);          base[13]= small_fixnum(80);
3423          base[17]= (V353);          base[16]= (V352);
3424          vs_top=(vs_base=base+17)+1;          vs_top=(vs_base=base+16)+1;
3425          (void) (*Lnk111)();          (void) (*Lnk111)();
3426          vs_top=sup;          vs_top=sup;
3427          base[16]= vs_base[0];          base[15]= vs_base[0];
3428          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+15)+1;
3429          (void) (*Lnk112)();          (void) (*Lnk112)();
3430          vs_top=sup;          vs_top=sup;
3431          V359= vs_base[0];          V357= vs_base[0];
3432          base[15]= car(V359);          base[14]= car(V357);
3433          vs_top=(vs_base=base+13)+3;          vs_top=(vs_base=base+12)+3;
3434          (void) (*Lnk166)();          (void) (*Lnk166)();
3435          vs_top=sup;          vs_top=sup;
3436          base[12]= vs_base[0];          base[11]= vs_base[0];
3437          goto T1345;          goto T1340;
3438  goto T1347;  goto T1342;
3439  T1347:;  T1342:;
3440          base[13]= VV[96];          base[12]= VV[96];
3441          base[14]= small_fixnum(80);          base[13]= small_fixnum(80);
3442          base[15]= (V353);          base[14]= (V352);
3443          vs_top=(vs_base=base+13)+3;          vs_top=(vs_base=base+12)+3;
3444          (void) (*Lnk166)();          (void) (*Lnk166)();
3445          vs_top=sup;          vs_top=sup;
3446          base[12]= vs_base[0];          base[11]= vs_base[0];
3447  goto T1345;  goto T1340;
3448  T1345:;  T1340:;
3449          vs_top=(vs_base=base+7)+6;          vs_top=(vs_base=base+6)+6;
3450          Lformat();          Lformat();
3451          vs_top=sup;          vs_top=sup;
3452          if(((V356))==Cnil){          if(((V355))==Cnil){
3453          goto T1359;}          goto T1354;}
3454          base[7]= symbol_value(VV[1]);          base[6]= symbol_value(VV[1]);
3455          base[8]= VV[97];          base[7]= VV[97];
3456          base[9]= (V356);          base[8]= (V355);
3457          base[10]= (V355);          base[9]= (V354);
3458          vs_top=(vs_base=base+7)+4;          vs_top=(vs_base=base+6)+4;
3459          Lformat();          Lformat();
3460          vs_top=sup;          vs_top=sup;
3461  goto T1359;  goto T1354;
3462  T1359:;  T1354:;
3463          base[7]= symbol_value(VV[1]);          base[6]= symbol_value(VV[1]);
3464          base[8]= VV[98];          base[7]= VV[98];
3465          base[9]= (V353);          base[8]= (V352);
3466          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+6)+3;
3467          Lformat();          Lformat();
3468          return;}          return;}
3469          }          }
# Line 3489  static void L51() Line 3474  static void L51()
3474  {register object *base=vs_base;  {register object *base=vs_base;
3475          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
3476          vs_reserve(VM49);          vs_reserve(VM49);
3477          {object V360;          {object V358;
3478          object V361;          object V359;
3479          object V362;          object V360;
3480          check_arg(3);          check_arg(3);
3481          V360=(base[0]);          V358=(base[0]);
3482          V361=(base[1]);          V359=(base[1]);
3483          V362=(base[2]);          V360=(base[2]);
3484          vs_top=sup;          vs_top=sup;
3485  goto TTL;  goto TTL;
3486  TTL:;  TTL:;
3487          V363= aref1((V361),fixint((V362)));          V361= aref1((V359),fixint((V360)));
3488          V364= aref1((V361),0);          V362= aref1((V359),0);
3489          V365= car(/* INLINE-ARGS */V364);          V363= car(/* INLINE-ARGS */V362);
3490          V366= aref1((V361),0);          V364= aref1((V359),0);
3491          V367 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V366)))+(fix((V362))));          V365 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V364)))+(fix((V360))));
3492          base[3]= list(4,/* INLINE-ARGS */V363,/* INLINE-ARGS */V365,V367,(V360));          base[3]= list(4,/* INLINE-ARGS */V361,/* INLINE-ARGS */V363,V365,(V358));
3493          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3494          return;          return;
3495          }          }
# Line 3515  static void L52() Line 3500  static void L52()
3500  {register object *base=vs_base;  {register object *base=vs_base;
3501          register object *sup=base+VM50; VC50          register object *sup=base+VM50; VC50
3502          vs_reserve(VM50);          vs_reserve(VM50);
3503          {object V368;          {object V366;
3504          object V369;          object V367;
3505          check_arg(2);          check_arg(2);
3506          V368=(base[0]);          V366=(base[0]);
3507          V369=(base[1]);          V367=(base[1]);
3508          vs_top=sup;          vs_top=sup;
3509  goto TTL;  goto TTL;
3510  TTL:;  TTL:;
3511          {object V370;          {object V368;
3512          V370= get((V368),VV[49],Cnil);          V368= get((V366),VV[49],Cnil);
3513          if(((V370))==Cnil){          if(((V368))==Cnil){
3514          goto T1371;}          goto T1366;}
3515          V371= aref1((V370),0);          V369= aref1((V368),0);
3516          base[2]= make_fixnum((long)(fix((V369)))-(fix(cdr(/* INLINE-ARGS */V371))));          base[2]= make_fixnum((long)(fix((V367)))-(fix(cdr(/* INLINE-ARGS */V369))));
3517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3518          return;          return;
3519  goto T1371;  goto T1366;
3520  T1371:;  T1366:;
3521          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
3522          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3523          return;}          return;}
# Line 3545  static void L53() Line 3530  static void L53()
3530          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
3531          vs_reserve(VM51);          vs_reserve(VM51);
3532          bds_check;          bds_check;
3533          {register object V372;          {register object V370;
3534          object V373;          object V371;
3535          check_arg(2);          check_arg(2);
3536          V372=(base[0]);          V370=(base[0]);
3537          V373=(base[1]);          V371=(base[1]);
3538          vs_top=sup;          vs_top=sup;
3539  goto TTL;  goto TTL;
3540  TTL:;  TTL:;
3541          bds_bind(VV[99],Cnil);          bds_bind(VV[99],Cnil);
3542          bds_bind(VV[100],symbol_value(VV[101]));          bds_bind(VV[100],symbol_value(VV[101]));
3543          bds_bind(VV[1],symbol_value(VV[101]));          bds_bind(VV[1],symbol_value(VV[101]));
3544          if(!(type_of((V372))==t_symbol)){          if(!(type_of((V370))==t_symbol)){
3545          goto T1373;}          goto T1368;}
3546          base[5]= (V372);          base[5]= (V370);
3547          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3548          Lboundp();          Lboundp();
3549          vs_top=sup;          vs_top=sup;
3550          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3551          goto T1373;}          goto T1368;}
3552          {register object x= (V372),V374= car((V373));          {register object x= (V370),V372= car((V371));
3553          while(!endp(V374))          while(!endp(V372))
3554          if(type_of(V374->c.c_car)==t_cons &&eql(x,V374->c.c_car->c.c_car)){          if(type_of(V372->c.c_car)==t_cons &&eql(x,V372->c.c_car->c.c_car)){
3555          goto T1373;          goto T1368;
3556          }else V374=V374->c.c_cdr;}          }else V372=V372->c.c_cdr;}
3557          base[5]= VV[102];          base[5]= VV[102];
3558          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3559          bds_unwind1;          bds_unwind1;
3560          bds_unwind1;          bds_unwind1;
3561          bds_unwind1;          bds_unwind1;
3562          return;          return;
3563  goto T1373;  goto T1368;
3564  T1373:;  T1368:;
3565          {object V375;          {object V373;
3566          object V376;          object V374;
3567          V377= list(2,VV[104],(V372));          V375= list(2,VV[104],(V370));
3568          base[5]= list(5,VV[103],/* INLINE-ARGS */V377,Cnil,Cnil,list(2,VV[104],(V373)));          base[5]= list(5,VV[103],/* INLINE-ARGS */V375,Cnil,Cnil,list(2,VV[104],(V371)));
3569          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3570          (void) (*Lnk167)();          (void) (*Lnk167)();
3571          if(vs_base>=vs_top){vs_top=sup;goto T1383;}          if(vs_base>=vs_top){vs_top=sup;goto T1378;}
3572          V375= vs_base[0];          V373= vs_base[0];
3573          vs_base++;          vs_base++;
3574          if(vs_base>=vs_top){vs_top=sup;goto T1384;}          if(vs_base>=vs_top){vs_top=sup;goto T1379;}
3575          V376= vs_base[0];          V374= vs_base[0];
3576          vs_top=sup;          vs_top=sup;
3577          goto T1385;          goto T1380;
3578  goto T1383;  goto T1378;
3579  T1383:;  T1378:;
3580          V375= Cnil;          V373= Cnil;
3581  goto T1384;  goto T1379;
3582  T1384:;  T1379:;
3583          V376= Cnil;          V374= Cnil;
3584  goto T1385;  goto T1380;
3585  T1385:;  T1380:;
3586          if(((V375))==Cnil){          if(((V373))==Cnil){
3587          goto T1387;}          goto T1382;}
3588          base[5]= VV[102];          base[5]= VV[102];
3589          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3590          bds_unwind1;          bds_unwind1;
3591          bds_unwind1;          bds_unwind1;
3592          bds_unwind1;          bds_unwind1;
3593          return;          return;
3594  goto T1387;  goto T1382;
3595  T1387:;  T1382:;
3596          base[5]= (V376);          base[5]= (V374);
3597          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3598          bds_unwind1;          bds_unwind1;
3599          bds_unwind1;          bds_unwind1;
# Line 3622  static void L54() Line 3607  static void L54()
3607  {register object *base=vs_base;  {register object *base=vs_base;
3608          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
3609          vs_reserve(VM52);          vs_reserve(VM52);
3610          {register object V378;          {register object V376;
3611          register object V379;          register object V377;
3612          check_arg(2);          check_arg(2);
3613          V378=(base[0]);          V376=(base[0]);
3614          V379=(base[1]);          V377=(base[1]);
3615          vs_top=sup;          vs_top=sup;
3616  goto TTL;  goto TTL;
3617  TTL:;  TTL:;
3618          {object V380;          {object V378;
3619          V380= symbol_value(VV[9]);          V378= symbol_value(VV[9]);
3620          setq(VV[105],Cnil);          setq(VV[105],Cnil);
3621          setq(VV[9],(V380));          setq(VV[9],(V378));
3622          if(((V379))==Cnil){          if(((V377))==Cnil){
3623          goto T1396;}          goto T1391;}
3624          setq(VV[0],(V379));          setq(VV[0],(V377));
3625          goto T1394;          goto T1389;
3626  goto T1396;  goto T1391;
3627  T1396:;  T1391:;
3628          base[3]= (V380);          base[3]= (V378);
3629          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3630          (void) (*Lnk111)();          (void) (*Lnk111)();
3631          vs_top=sup;          vs_top=sup;
# Line 3648  T1396:; Line 3633  T1396:;
3633          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3634          (void) (*Lnk112)();          (void) (*Lnk112)();
3635          vs_top=sup;          vs_top=sup;
3636          V381= vs_base[0];          V379= vs_base[0];
3637          (void)(make_cons(V381,Cnil));          (void)(make_cons(V379,Cnil));
3638  goto T1394;  goto T1389;
3639  T1394:;  T1389:;
3640          if(((V378))==Cnil){          if(((V376))==Cnil){
3641          goto T1402;}          goto T1397;}
3642          base[2]= symbol_value(VV[1]);          base[2]= symbol_value(VV[1]);
3643          base[3]= VV[106];          base[3]= VV[106];
3644          base[4]= cadr((V378));          base[4]= cadr((V376));
3645          base[5]= caddr((V378));          base[5]= caddr((V376));
3646          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3647          Lformat();          Lformat();
3648          vs_top=sup;          vs_top=sup;
3649          base[2]= symbol_value(VV[1]);          base[2]= symbol_value(VV[1]);
3650          base[3]= VV[107];          base[3]= VV[107];
3651          base[4]= cadr((V378));          base[4]= cadr((V376));
3652          base[5]= caddr((V378));          base[5]= caddr((V376));
3653          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3654          Lformat();          Lformat();
3655          vs_top=sup;          vs_top=sup;
3656  goto T1402;  goto T1397;
3657  T1402:;  T1397:;
3658          {register object V382;          {register object V380;
3659          register object V383;          register object V381;
3660          V382= symbol_value(VV[108]);          V380= symbol_value(VV[108]);
3661          V383= car((V382));          V381= car((V380));
3662  goto T1417;  goto T1412;
3663  T1417:;  T1412:;
3664          if(!(endp_prop((V382)))){          if(!(endp_prop((V380)))){
3665          goto T1418;}          goto T1413;}
3666          base[3]= Cnil;          base[3]= Cnil;
3667          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3668          return;          return;
3669  goto T1418;  goto T1413;
3670  T1418:;  T1413:;
3671          {register object V384;          {register object V382;
3672          base[3]= (V383);          base[3]= (V381);
3673          base[4]= (V379);          base[4]= (V377);
3674          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3675          (void) (*Lnk168)();          (void) (*Lnk168)();
3676          vs_top=sup;          vs_top=sup;
3677          V384= vs_base[0];          V382= vs_base[0];
3678          if(!(((V384))==(VV[102]))){          if(!(((V382))==(VV[102]))){
3679          goto T1426;}          goto T1421;}
3680          goto T1422;          goto T1417;
3681  goto T1426;  goto T1421;
3682  T1426:;  T1421:;
3683          base[3]= Ct;          base[3]= Ct;
3684          base[4]= VV[109];          base[4]= VV[109];
3685          base[5]= (V383);          base[5]= (V381);
3686          base[6]= (V384);          base[6]= (V382);
3687          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3688          Lformat();          Lformat();
3689          vs_top=sup;}          vs_top=sup;}
3690  goto T1422;  goto T1417;
3691  T1422:;  T1417:;
3692          V382= cdr((V382));          V380= cdr((V380));
3693          V383= car((V382));          V381= car((V380));
3694          goto T1417;}}          goto T1412;}}
3695          }          }
3696  }  }
3697  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* SAFE-EVAL */  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* SAFE-EVAL */

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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