/[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.9 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.10 by camm, Tue Oct 15 14:51:51 2002 UTC
# Line 1587  static void L26() Line 1587  static void L26()
1587  {register object *base=vs_base;  {register object *base=vs_base;
1588          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
1589          vs_reserve(VM24);          vs_reserve(VM24);
1590          check_arg(0);          {object V166;
1591            if(vs_top-vs_base>1) too_many_arguments();
1592            if(vs_base>=vs_top){vs_top=sup;goto T617;}
1593            V166=(base[0]);
1594          vs_top=sup;          vs_top=sup;
1595  goto TTL;          goto T618;
1596  TTL:;  goto T617;
1597    T617:;
1598            V166= small_fixnum(1);
1599    goto T618;
1600    T618:;
1601          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1602          goto T617;}          goto T620;}
1603          vs_base=vs_top;          vs_base=vs_top;
1604          (void) (*Lnk141)();          (void) (*Lnk141)();
1605          vs_top=sup;          vs_top=sup;
1606  goto T617;  goto T620;
1607  T617:;  T620:;
1608          setq(VV[58],VV[59]);          setq(VV[58],VV[59]);
1609          base[0]= VV[60];          base[1]= VV[60];
1610          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+1)+1;
1611          return;          return;
1612            }
1613  }  }
1614  /*      function definition for STEP-NEXT       */  /*      function definition for STEP-NEXT       */
1615    
# Line 1609  static void L27() Line 1617  static void L27()
1617  {register object *base=vs_base;  {register object *base=vs_base;
1618          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
1619          vs_reserve(VM25);          vs_reserve(VM25);
1620          {object V166;          {object V167;
1621          if(vs_top-vs_base>1) too_many_arguments();          if(vs_top-vs_base>1) too_many_arguments();
1622          if(vs_base>=vs_top){vs_top=sup;goto T620;}          if(vs_base>=vs_top){vs_top=sup;goto T623;}
1623          V166=(base[0]);          V167=(base[0]);
1624          vs_top=sup;          vs_top=sup;
1625          goto T621;          goto T624;
1626  goto T620;  goto T623;
1627  T620:;  T623:;
1628          V166= small_fixnum(1);          V167= small_fixnum(1);
1629  goto T621;  goto T624;
1630  T621:;  T624:;
1631          {object V167;          {object V168;
1632          vs_base=vs_top;          vs_base=vs_top;
1633          (void) (*Lnk142)();          (void) (*Lnk142)();
1634          vs_top=sup;          vs_top=sup;
1635          V167= vs_base[0];          V168= vs_base[0];
1636          setq(VV[61],make_cons((V166),(V167)));          setq(VV[61],make_cons((V167),(V168)));
1637          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
1638          goto T626;}          goto T629;}
1639          vs_base=vs_top;          vs_base=vs_top;
1640          (void) (*Lnk141)();          (void) (*Lnk141)();
1641          vs_top=sup;          vs_top=sup;
1642  goto T626;  goto T629;
1643  T626:;  T629:;
1644          setq(VV[58],VV[62]);          setq(VV[58],VV[62]);
1645          base[1]= VV[60];          base[1]= VV[60];
1646          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1645  static void L28() Line 1653  static void L28()
1653  {register object *base=vs_base;  {register object *base=vs_base;
1654          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
1655          vs_reserve(VM26);          vs_reserve(VM26);
1656          {object V168;          {object V169;
         object V169;  
1657          object V170;          object V170;
1658          object V171;          object V171;
1659            object V172;
1660          check_arg(4);          check_arg(4);
1661          V168=(base[0]);          V169=(base[0]);
1662          V169=(base[1]);          V170=(base[1]);
1663          V170=(base[2]);          V171=(base[2]);
1664          V171=(base[3]);          V172=(base[3]);
1665          vs_top=sup;          vs_top=sup;
1666  goto TTL;  goto TTL;
1667  TTL:;  TTL:;
1668          {object V172;          {object V173;
1669          V172= Cnil;          V173= Cnil;
1670          V172= (VFUN_NARGS=2,(*(LnkLI143))((V168),(V169)));          V173= (VFUN_NARGS=2,(*(LnkLI143))((V169),(V170)));
1671          if(((V172))==Cnil){          if(((V173))==Cnil){
1672          goto T631;}          goto T634;}
1673          setq(VV[58],Cnil);          setq(VV[58],Cnil);
1674          if(!(((long)length(symbol_value(VV[53])))>(0))){          if(!(((long)length(symbol_value(VV[53])))>(0))){
1675          goto T637;}          goto T640;}
1676          goto T636;          goto T639;
1677  goto T637;  goto T640;
1678  T637:;  T640:;
1679          setq(VV[53],Cnil);          setq(VV[53],Cnil);
1680  goto T636;  goto T639;
1681  T636:;  T639:;
1682          base[5]= (V170);          base[5]= (V171);
1683          base[6]= (V169);          base[6]= (V170);
1684          base[7]= (V172);          base[7]= (V173);
1685          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1686          (void) (*Lnk138)();          (void) (*Lnk138)();
1687          vs_top=sup;          vs_top=sup;
1688          base[4]= vs_base[0];          base[4]= vs_base[0];
1689          base[5]= (V171);          base[5]= (V172);
1690          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1691          (void) (*Lnk121)();          (void) (*Lnk121)();
1692          vs_top=sup;          vs_top=sup;
1693          base[4]= Ct;          base[4]= Ct;
1694          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1695          return;          return;
1696  goto T631;  goto T634;
1697  T631:;  T634:;
1698          base[4]= Cnil;          base[4]= Cnil;
1699          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1700          return;}          return;}
# Line 1698  static void L29() Line 1706  static void L29()
1706  {register object *base=vs_base;  {register object *base=vs_base;
1707          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
1708          vs_reserve(VM27);          vs_reserve(VM27);
1709          {object V173;          {object V174;
1710          object V174;          object V175;
1711          check_arg(2);          check_arg(2);
1712          V173=(base[0]);          V174=(base[0]);
1713          V174=(base[1]);          V175=(base[1]);
1714          vs_top=sup;          vs_top=sup;
1715  goto TTL;  goto TTL;
1716  TTL:;  TTL:;
1717          {object V175;          {object V176;
1718          vs_base=vs_top;          vs_base=vs_top;
1719          (void) (*Lnk142)();          (void) (*Lnk142)();
1720          vs_top=sup;          vs_top=sup;
1721          V175= vs_base[0];          V176= vs_base[0];
1722          {object V176;          {object V177;
1723          V176= get((V175),VV[49],Cnil);          V177= get((V176),VV[49],Cnil);
1724          base[2]= (V173);          base[2]= (V174);
1725          base[3]= (V176);          base[3]= (V177);
1726          base[4]= (V175);          base[4]= (V176);
1727          base[5]= (V174);          base[5]= (V175);
1728          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1729          (void) (*Lnk144)();          (void) (*Lnk144)();
1730          return;}}          return;}}
# Line 1728  static void L30() Line 1736  static void L30()
1736  {register object *base=vs_base;  {register object *base=vs_base;
1737          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
1738          vs_reserve(VM28);          vs_reserve(VM28);
1739          {object V177;          {object V178;
1740          object V178;          object V179;
1741          check_arg(2);          check_arg(2);
1742          V177=(base[0]);          V178=(base[0]);
1743          V178=(base[1]);          V179=(base[1]);
1744          vs_top=sup;          vs_top=sup;
1745  goto TTL;  goto TTL;
1746  TTL:;  TTL:;
1747          {object V179;          {object V180;
1748          vs_base=vs_top;          vs_base=vs_top;
1749          (void) (*Lnk142)();          (void) (*Lnk142)();
1750          vs_top=sup;          vs_top=sup;
1751          V179= vs_base[0];          V180= vs_base[0];
1752          if(!(eql(cdr(symbol_value(VV[61])),(V179)))){          if(!(eql(cdr(symbol_value(VV[61])),(V180)))){
1753          goto T654;}          goto T657;}
1754          {object V180;          {object V181;
1755          V180= get((V179),VV[49],Cnil);          V181= get((V180),VV[49],Cnil);
1756          base[2]= (V177);          base[2]= (V178);
1757          base[3]= (V180);          base[3]= (V181);
1758          base[4]= (V179);          base[4]= (V180);
1759          base[5]= (V178);          base[5]= (V179);
1760          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1761          (void) (*Lnk144)();          (void) (*Lnk144)();
1762          return;}          return;}
1763  goto T654;  goto T657;
1764  T654:;  T657:;
1765          base[2]= Cnil;          base[2]= Cnil;
1766          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1767          return;}          return;}
# Line 1765  static void L31() Line 1773  static void L31()
1773  {register object *base=vs_base;  {register object *base=vs_base;
1774          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
1775          vs_reserve(VM29);          vs_reserve(VM29);
1776          {object V181;          {object V182;
1777          object V182;          object V183;
1778          check_arg(2);          check_arg(2);
1779          V181=(base[0]);          V182=(base[0]);
1780          V182=(base[1]);          V183=(base[1]);
1781          vs_top=sup;          vs_top=sup;
1782  goto TTL;  goto TTL;
1783  TTL:;  TTL:;
1784          {object V183;          {object V184;
1785          V183= (VFUN_NARGS=4,(*(LnkLI143))((V181),symbol_value(VV[53]),VV[63],VV[64]));          V184= (VFUN_NARGS=4,(*(LnkLI143))((V182),symbol_value(VV[53]),VV[63],VV[64]));
1786          base[2]= Ct;          base[2]= Ct;
1787          base[3]= VV[65];          base[3]= VV[65];
1788          base[4]= (V183);          base[4]= (V184);
1789          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1790          Lformat();          Lformat();
1791          vs_top=sup;          vs_top=sup;
1792          base[2]= aref1(symbol_value(VV[53]),fixint((V183)));          base[2]= aref1(symbol_value(VV[53]),fixint((V184)));
1793          base[3]= (V182);          base[3]= (V183);
1794          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1795          (void) (*Lnk121)();          (void) (*Lnk121)();
1796          return;}          return;}
# Line 1794  static void L32() Line 1802  static void L32()
1802  {register object *base=vs_base;  {register object *base=vs_base;
1803          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1804          vs_reserve(VM30);          vs_reserve(VM30);
1805          {register object V184;          {register object V185;
1806          check_arg(1);          check_arg(1);
1807          V184=(base[0]);          V185=(base[0]);
1808          vs_top=sup;          vs_top=sup;
1809  goto TTL;  goto TTL;
1810  TTL:;  TTL:;
1811          {register object V185;          {register object V186;
1812          register object V186;          register object V187;
1813          vs_base=vs_top;          vs_base=vs_top;
1814          Llist_all_packages();          Llist_all_packages();
1815          vs_top=sup;          vs_top=sup;
1816          V185= vs_base[0];          V186= vs_base[0];
1817          V186= car((V185));          V187= car((V186));
1818  goto T672;  goto T675;
1819  T672:;  T675:;
1820          if(!(endp_prop((V185)))){          if(!(endp_prop((V186)))){
1821          goto T673;}          goto T676;}
1822          goto T668;          goto T671;
1823  goto T673;  goto T676;
1824  T673:;  T676:;
1825          {register object V187;          {register object V188;
1826          register object V188;          register object V189;
1827          base[3]= symbol_name((V184));          base[3]= symbol_name((V185));
1828          base[4]= (V186);          base[4]= (V187);
1829          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1830          Lintern();          Lintern();
1831          if(vs_base>=vs_top){vs_top=sup;goto T681;}          if(vs_base>=vs_top){vs_top=sup;goto T684;}
         V187= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T682;}  
1832          V188= vs_base[0];          V188= vs_base[0];
1833            vs_base++;
1834            if(vs_base>=vs_top){vs_top=sup;goto T685;}
1835            V189= vs_base[0];
1836          vs_top=sup;          vs_top=sup;
1837          goto T683;          goto T686;
1838  goto T681;  goto T684;
1839  T681:;  T684:;
         V187= Cnil;  
 goto T682;  
 T682:;  
1840          V188= Cnil;          V188= Cnil;
 goto T683;  
 T683:;  
         if((get((V187),VV[49],Cnil))==Cnil){  
         goto T685;}  
         base[3]= (V187);  
         vs_top=(vs_base=base+3)+1;  
         return;  
1841  goto T685;  goto T685;
1842  T685:;  T685:;
1843          if((V188)!=Cnil){          V189= Cnil;
1844          goto T677;}  goto T686;
1845          base[3]= (V187);  T686:;
1846            if((get((V188),VV[49],Cnil))==Cnil){
1847            goto T688;}
1848            base[3]= (V188);
1849            vs_top=(vs_base=base+3)+1;
1850            return;
1851    goto T688;
1852    T688:;
1853            if((V189)!=Cnil){
1854            goto T680;}
1855            base[3]= (V188);
1856          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1857          Lunintern();          Lunintern();
1858          vs_top=sup;}          vs_top=sup;}
1859  goto T677;  goto T680;
1860  T677:;  T680:;
1861          V185= cdr((V185));          V186= cdr((V186));
1862          V186= car((V185));          V187= car((V186));
1863          goto T672;}          goto T675;}
1864  goto T668;  goto T671;
1865  T668:;  T671:;
1866          base[1]= Ct;          base[1]= Ct;
1867          base[2]= VV[66];          base[2]= VV[66];
1868          base[3]= (V184);          base[3]= (V185);
1869          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1870          Lformat();          Lformat();
1871          return;          return;
# Line 1869  static void L33() Line 1877  static void L33()
1877  {register object *base=vs_base;  {register object *base=vs_base;
1878          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1879          vs_reserve(VM31);          vs_reserve(VM31);
1880          {register object V189;          {register object V190;
1881          register object V190;          register object V191;
1882          object V191;          object V192;
1883          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
1884          if(vs_top-vs_base>3) too_many_arguments();          if(vs_top-vs_base>3) too_many_arguments();
1885          V189=(base[0]);          V190=(base[0]);
1886          vs_base=vs_base+1;          vs_base=vs_base+1;
1887          if(vs_base>=vs_top){vs_top=sup;goto T696;}          if(vs_base>=vs_top){vs_top=sup;goto T699;}
1888          V190=(base[1]);          V191=(base[1]);
1889          vs_base++;          vs_base++;
1890          if(vs_base>=vs_top){vs_top=sup;goto T697;}          if(vs_base>=vs_top){vs_top=sup;goto T700;}
1891          V191=(base[2]);          V192=(base[2]);
1892          vs_top=sup;          vs_top=sup;
1893          goto T698;          goto T701;
1894  goto T696;  goto T699;
1895  T696:;  T699:;
1896          V190= small_fixnum(1);          V191= small_fixnum(1);
1897  goto T697;  goto T700;
1898  T697:;  T700:;
         V191= Cnil;  
 goto T698;  
 T698:;  
         {object V192;  
1899          V192= Cnil;          V192= Cnil;
1900          {register object V193;  goto T701;
1901          V193= get((V189),VV[49],Cnil);  T701:;
1902          if(((V193))!=Cnil){          {object V193;
1903          goto T703;}          V193= Cnil;
1904          base[3]= (V189);          {register object V194;
1905            V194= get((V190),VV[49],Cnil);
1906            if(((V194))!=Cnil){
1907            goto T706;}
1908            base[3]= (V190);
1909          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1910          (void) (*Lnk145)();          (void) (*Lnk145)();
1911          vs_top=sup;          vs_top=sup;
1912          V192= vs_base[0];          V193= vs_base[0];
1913          if(((V192))==Cnil){          if(((V193))==Cnil){
1914          goto T703;}          goto T706;}
1915          base[3]= (V192);          base[3]= (V193);
1916          base[4]= (V190);          base[4]= (V191);
1917          base[5]= (V191);          base[5]= (V192);
1918          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1919          (void) (*Lnk146)();          (void) (*Lnk146)();
1920          return;          return;
1921  goto T703;  goto T706;
1922  T703:;  T706:;
1923          if(!(type_of((V193))==t_array||          if(!(type_of((V194))==t_array||
1924  type_of((V193))==t_vector||  type_of((V194))==t_vector||
1925  type_of((V193))==t_string||  type_of((V194))==t_string||
1926  type_of((V193))==t_bitvector)){  type_of((V194))==t_bitvector)){
1927          goto T715;}          goto T718;}
1928          goto T714;          goto T717;
1929  goto T715;  goto T718;
1930  T715:;  T718:;
1931          base[3]= Ct;          base[3]= Ct;
1932          base[4]= VV[67];          base[4]= VV[67];
1933          base[5]= (V189);          base[5]= (V190);
1934          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1935          Lformat();          Lformat();
1936          vs_top=sup;          vs_top=sup;
1937          base[3]= Cnil;          base[3]= Cnil;
1938          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1939          return;          return;
1940  goto T714;  goto T717;
1941  T714:;  T717:;
1942          {object V194;          {object V195;
1943          V195= aref1((V193),0);          V196= aref1((V194),0);
1944          V194= cdr(/* INLINE-ARGS */V195);          V195= cdr(/* INLINE-ARGS */V196);
1945          if(((V191))==Cnil){          if(((V192))==Cnil){
1946          goto T722;}          goto T725;}
1947          V190= make_fixnum((long)(fix((V190)))-(fix((V194))));          V191= make_fixnum((long)(fix((V191)))-(fix((V195))));
1948  goto T722;  goto T725;
1949  T722:;{object V196;  T725:;{object V197;
1950          if((fix((V190)))>=(1)){          if((fix((V191)))>=(1)){
1951          goto T729;}          goto T732;}
1952          V196= Cnil;          V197= Cnil;
1953          goto T728;          goto T731;
1954  goto T729;  goto T732;
1955  T729:;  T732:;
1956          V196= ((fix((V190)))<((long)length((V193)))?Ct:Cnil);          V197= ((fix((V191)))<((long)length((V194)))?Ct:Cnil);
1957  goto T728;  goto T731;
1958  T728:;  T731:;
1959          if(V196==Cnil)goto T727;          if(V197==Cnil)goto T730;
1960          goto T726;          goto T729;
1961  goto T727;  goto T730;
1962  T727:;}{object V197;  T730:;}{object V198;
1963          base[3]= Ct;          base[3]= Ct;
1964          base[4]= VV[68];          base[4]= VV[68];
1965          base[5]= (V189);          base[5]= (V190);
1966          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1967          Lformat();          Lformat();
1968          vs_top=sup;          vs_top=sup;
1969          V197= vs_base[0];          V198= vs_base[0];
1970          if(V197==Cnil)goto T731;          if(V198==Cnil)goto T734;
1971          goto T726;          goto T729;
1972  goto T731;  goto T734;
1973  T731:;}  T734:;}
1974          base[3]= Cnil;          base[3]= Cnil;
1975          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1976          return;          return;
1977  goto T726;  goto T729;
1978  T726:;  T729:;
1979          if(!(eql((V190),small_fixnum(1)))){          if(!(eql((V191),small_fixnum(1)))){
1980          goto T736;}          goto T739;}
1981          {object V198;          {object V199;
1982          base[3]= (V189);          base[3]= (V190);
1983          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1984          Lsymbol_function();          Lsymbol_function();
1985          vs_top=sup;          vs_top=sup;
1986          V198= vs_base[0];          V199= vs_base[0];
1987          if(!(type_of((V198))==t_cons)){          if(!(type_of((V199))==t_cons)){
1988          goto T736;}          goto T739;}
1989          if(!((car((V198)))==(VV[69]))){          if(!((car((V199)))==(VV[69]))){
1990          goto T736;}          goto T739;}
1991          if((caddr((V198)))==Cnil){          if((caddr((V199)))==Cnil){
1992          goto T736;}          goto T739;}
1993          V190= small_fixnum(2);}          V191= small_fixnum(2);}
1994  goto T736;  goto T739;
1995  T736:;  T739:;
1996          {register object V199;          {register object V200;
1997          register object V200;          register object V201;
1998          V199= make_fixnum((long)((long)length((V193)))-(fix((V190))));          V200= make_fixnum((long)((long)length((V194)))-(fix((V191))));
1999          V200= small_fixnum(0);          V201= small_fixnum(0);
2000  goto T752;  goto T755;
2001  T752:;  T755:;
2002          if(!(number_compare((V200),(V199))>=0)){          if(!(number_compare((V201),(V200))>=0)){
2003          goto T753;}          goto T756;}
2004          goto T748;          goto T751;
2005  goto T753;  goto T756;
2006  T753:;  T756:;
2007          V201= aref1((V193),fixint((V200)));          V202= aref1((V194),fixint((V201)));
2008          if((/* INLINE-ARGS */V201)==(VV[51])){          if((/* INLINE-ARGS */V202)==(VV[51])){
2009          goto T757;}          goto T760;}
2010          base[6]= (V189);          base[6]= (V190);
2011          base[7]= (V193);          base[7]= (V194);
2012          base[8]= make_fixnum((long)(fix((V190)))+(fix((V200))));          base[8]= make_fixnum((long)(fix((V191)))+(fix((V201))));
2013          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
2014          (void) (*Lnk138)();          (void) (*Lnk138)();
2015          vs_top=sup;          vs_top=sup;
# Line 2016  T753:; Line 2024  T753:;
2024          vs_base=vs_top=base+4;          vs_base=vs_top=base+4;
2025          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2026          return;          return;
2027  goto T757;  goto T760;
2028  T757:;  T760:;
2029          V200= one_plus((V200));          V201= one_plus((V201));
2030          goto T752;}          goto T755;}
2031  goto T748;  goto T751;
2032  T748:;  T751:;
2033          base[3]= Ct;          base[3]= Ct;
2034          base[4]= VV[70];          base[4]= VV[70];
2035          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 2035  static void L34() Line 2043  static void L34()
2043  {register object *base=vs_base;  {register object *base=vs_base;
2044          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2045          vs_reserve(VM32);          vs_reserve(VM32);
2046          {object V202;          {object V203;
2047          check_arg(1);          check_arg(1);
2048          V202=(base[0]);          V203=(base[0]);
2049          vs_top=sup;          vs_top=sup;
2050  goto TTL;  goto TTL;
2051  TTL:;  TTL:;
2052          {register object V203;          {register object V204;
2053          V203= Cnil;          V204= Cnil;
2054          if(symbol_value(VV[53])!=Cnil){          if(symbol_value(VV[53])!=Cnil){
2055          goto T772;}          goto T775;}
2056          vs_base=vs_top;          vs_base=vs_top;
2057          (void) (*Lnk141)();          (void) (*Lnk141)();
2058          vs_top=sup;          vs_top=sup;
 goto T772;  
 T772:;{object V204;  
         V204= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53])));  
         if(V204==Cnil)goto T775;  
         V203= V204;  
         goto T774;  
2059  goto T775;  goto T775;
2060  T775:;}  T775:;{object V205;
2061          {object V205;          V205= (VFUN_NARGS=2,(*(LnkLI143))(Cnil,symbol_value(VV[53])));
2062          V205= make_fixnum((long)length(symbol_value(VV[53])));          if(V205==Cnil)goto T778;
2063          (void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53]))));          V204= V205;
2064          V203= (V205);}          goto T777;
2065  goto T774;  goto T778;
2066  T774:;  T778:;}
2067          {object V206;          {object V206;
2068          {object V207= cdr(cdr(cdr((V202))));          V206= make_fixnum((long)length(symbol_value(VV[53])));
2069          if((type_of(V207)!=t_cons) && ((V202)!= Cnil))          (void)((VFUN_NARGS=2,(*(LnkLI135))(Cnil,symbol_value(VV[53]))));
2070           FEwrong_type_argument(Scons,V207);          V204= (V206);}
2071          V206= (V207->c.c_car);}  goto T777;
2072          {object V211;  T777:;
2073          V212= get(V206,VV[52],Cnil);          {object V207;
2074          V211= make_cons(V203,V212);          {object V208= cdr(cdr(cdr((V203))));
2075          (void)(sputprop(V206,VV[52],(V211)));}}          if((type_of(V208)!=t_cons) && ((V203)!= Cnil))
2076          (void)(aset1(symbol_value(VV[53]),fixint((V203)),(V202)));           FEwrong_type_argument(Scons,V208);
2077          base[1]= (V203);          V207= (V208->c.c_car);}
2078            {object V212;
2079            V213= get(V207,VV[52],Cnil);
2080            V212= make_cons(V204,V213);
2081            (void)(sputprop(V207,VV[52],(V212)));}}
2082            (void)(aset1(symbol_value(VV[53]),fixint((V204)),(V203)));
2083            base[1]= (V204);
2084          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2085          return;}          return;}
2086          }          }
# Line 2083  static void L35() Line 2091  static void L35()
2091  {register object *base=vs_base;  {register object *base=vs_base;
2092          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
2093          vs_reserve(VM33);          vs_reserve(VM33);
2094          {object V213;          {object V214;
2095          check_arg(1);          check_arg(1);
2096          V213=(base[0]);          V214=(base[0]);
2097          vs_top=sup;          vs_top=sup;
2098  goto TTL;  goto TTL;
2099  TTL:;  TTL:;
2100          {object V214;          {object V215;
2101          V214= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V213),VV[72],Ct));          V215= (VFUN_NARGS=4,(*(LnkLI143))(VV[71],(V214),VV[72],Ct));
2102          if(((V214))==Cnil){          if(((V215))==Cnil){
2103          goto T786;}          goto T789;}
2104          base[1]= (V213);          base[1]= (V214);
2105          base[2]= make_fixnum((long)(1)+(fix((V214))));          base[2]= make_fixnum((long)(1)+(fix((V215))));
2106          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2107          Lsubseq();          Lsubseq();
2108          return;          return;
2109  goto T786;  goto T789;
2110  T786:;  T789:;
2111          base[1]= (V213);          base[1]= (V214);
2112          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2113          return;}          return;}
2114          }          }
# Line 2111  static void L36() Line 2119  static void L36()
2119  {register object *base=vs_base;  {register object *base=vs_base;
2120          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2121          vs_reserve(VM34);          vs_reserve(VM34);
2122          {object V215;          {object V216;
2123          check_arg(1);          check_arg(1);
2124          V215=(base[0]);          V216=(base[0]);
2125          vs_top=sup;          vs_top=sup;
2126  goto TTL;  goto TTL;
2127  TTL:;  TTL:;
2128          {object V216;          {object V217;
2129          V216= Cnil;          V217= Cnil;
2130          {register object V217;          {register object V218;
2131          V217= aref1(symbol_value(VV[53]),fixint((V215)));          V218= aref1(symbol_value(VV[53]),fixint((V216)));
2132          if(((V217))==Cnil){          if(((V218))==Cnil){
2133          goto T793;}          goto T796;}
2134          if(!((car((V217)))==(Cnil))){          if(!((car((V218)))==(Cnil))){
2135          goto T795;}          goto T798;}
2136          V216= Ct;          V217= Ct;
2137          V217= cdr((V217));          V218= cdr((V218));
2138  goto T795;  goto T798;
2139  T795:;  T798:;
2140          base[1]= Ct;          base[1]= Ct;
2141          base[2]= VV[73];          base[2]= VV[73];
2142          base[3]= (V215);          base[3]= (V216);
2143          base[5]= cadr((V217));          base[5]= cadr((V218));
2144          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2145          (void) (*Lnk149)();          (void) (*Lnk149)();
2146          vs_top=sup;          vs_top=sup;
2147          base[4]= vs_base[0];          base[4]= vs_base[0];
2148          base[5]= caddr((V217));          base[5]= caddr((V218));
2149          base[6]= (V216);          base[6]= (V217);
2150          vs_top=(vs_base=base+1)+6;          vs_top=(vs_base=base+1)+6;
2151          Lformat();          Lformat();
2152          vs_top=sup;          vs_top=sup;
2153          {object V218;          {object V219;
2154          V218= cadddr((V217));          V219= cadddr((V218));
2155          base[1]= Ct;          base[1]= Ct;
2156          base[2]= VV[74];          base[2]= VV[74];
2157          base[4]= (V218);          base[4]= (V219);
2158          base[5]= caddr((V217));          base[5]= caddr((V218));
2159          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2160          (void) (*Lnk150)();          (void) (*Lnk150)();
2161          vs_top=sup;          vs_top=sup;
2162          base[3]= vs_base[0];          base[3]= vs_base[0];
2163          base[4]= (V218);          base[4]= (V219);
2164          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
2165          Lformat();          Lformat();
2166          return;}          return;}
2167  goto T793;  goto T796;
2168  T793:;  T796:;
2169          base[1]= Cnil;          base[1]= Cnil;
2170          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2171          return;}}          return;}}
# Line 2169  static void L37() Line 2177  static void L37()
2177  {register object *base=vs_base;  {register object *base=vs_base;
2178          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2179          vs_reserve(VM35);          vs_reserve(VM35);
2180          {register object V219;          {register object V220;
2181          register object V220;          register object V221;
2182          check_arg(2);          check_arg(2);
2183          V219=(base[0]);          V220=(base[0]);
2184          V220=(base[1]);          V221=(base[1]);
2185          vs_top=sup;          vs_top=sup;
2186  goto TTL;  goto TTL;
2187  TTL:;  TTL:;
2188          {register object V221;          {register object V222;
2189          register object V222;          register object V223;
2190          V221= make_fixnum((long)length(symbol_value(VV[53])));          V222= make_fixnum((long)length(symbol_value(VV[53])));
2191          V222= small_fixnum(0);          V223= small_fixnum(0);
2192  goto T819;  goto T822;
2193  T819:;  T822:;
2194          if(!(number_compare((V222),(V221))>=0)){          if(!(number_compare((V223),(V222))>=0)){
2195          goto T820;}          goto T823;}
2196          base[3]= Cnil;          base[3]= Cnil;
2197          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2198          return;          return;
2199  goto T820;  goto T823;
2200  T820:;  T823:;
2201          {register object x= (V222),V223= (V219);          {register object x= (V223),V224= (V220);
2202          while(!endp(V223))          while(!endp(V224))
2203          if(eql(x,V223->c.c_car)){          if(eql(x,V224->c.c_car)){
2204          goto T825;          goto T828;
2205          }else V223=V223->c.c_cdr;}          }else V224=V224->c.c_cdr;}
2206          if(((V219))!=Cnil){          if(((V220))!=Cnil){
2207          goto T824;}          goto T827;}
2208  goto T825;  goto T828;
2209  T825:;  T828:;
2210          {register object V224;          {register object V225;
2211          V224= aref1(symbol_value(VV[53]),fixint((V222)));{object V225;          V225= aref1(symbol_value(VV[53]),fixint((V223)));{object V226;
2212          V225= symbol_value(VV[53]);          V226= symbol_value(VV[53]);
2213          {object V227= (V220);          {object V228= (V221);
2214          if((V227!= VV[54]))goto T831;          if((V228!= VV[54]))goto T834;
2215          if(((V224))==Cnil){          if(((V225))==Cnil){
2216          goto T832;}          goto T835;}
2217          {object V229= cdr(cdr(cdr((V224))));          {object V230= cdr(cdr(cdr((V225))));
2218          if((type_of(V229)!=t_cons) && ((V224)!= Cnil))          if((type_of(V230)!=t_cons) && ((V225)!= Cnil))
2219           FEwrong_type_argument(Scons,V229);           FEwrong_type_argument(Scons,V230);
2220          V228= (V229->c.c_car);}          V229= (V230->c.c_car);}
2221          {object V232= cdr(cdr(cdr((V224))));          {object V233= cdr(cdr(cdr((V225))));
2222          if((type_of(V232)!=t_cons) && ((V224)!= Cnil))          if((type_of(V233)!=t_cons) && ((V225)!= Cnil))
2223           FEwrong_type_argument(Scons,V232);           FEwrong_type_argument(Scons,V233);
2224          V231= (V232->c.c_car);}          V232= (V233->c.c_car);}
2225          V230= get(V231,VV[52],Cnil);          V231= get(V232,VV[52],Cnil);
2226          V233= (VFUN_NARGS=2,(*(LnkLI123))((V222),V230));          V234= (VFUN_NARGS=2,(*(LnkLI123))((V223),V231));
2227          (void)(sputprop(V228,VV[52],/* INLINE-ARGS */V233));          (void)(sputprop(V229,VV[52],/* INLINE-ARGS */V234));
2228  goto T832;  goto T835;
2229  T832:;  T835:;
2230          V226= Cnil;          V227= Cnil;
2231          goto T830;          goto T833;
2232  goto T831;  goto T834;
2233  T831:;  T834:;
2234          if((V227!= VV[151]))goto T838;          if((V228!= VV[151]))goto T841;
2235          if(!((car((V224)))==(Cnil))){          if(!((car((V225)))==(Cnil))){
2236          goto T840;}          goto T843;}
2237          V226= cdr((V224));          V227= cdr((V225));
2238          goto T830;          goto T833;
2239  goto T840;  goto T843;
2240  T840:;  T843:;
2241          V226= Cnil;          V227= Cnil;
2242          goto T830;          goto T833;
2243  goto T838;  goto T841;
2244  T838:;  T841:;
2245          if((V227!= VV[152]))goto T842;          if((V228!= VV[152]))goto T845;
2246          if(((V224))==Cnil){          if(((V225))==Cnil){
2247          goto T844;}          goto T847;}
2248          if((car((V224)))==(Cnil)){          if((car((V225)))==(Cnil)){
2249          goto T844;}          goto T847;}
2250          V226= make_cons(Cnil,(V224));          V227= make_cons(Cnil,(V225));
2251          goto T830;          goto T833;
2252  goto T844;  goto T847;
2253  T844:;  T847:;
2254          V226= (V224);          V227= (V225);
2255          goto T830;          goto T833;
2256  goto T842;  goto T845;
2257  T842:;  T845:;
2258          if((V227!= VV[153]))goto T848;          if((V228!= VV[153]))goto T851;
2259          if(((V224))==Cnil){          if(((V225))==Cnil){
2260          goto T849;}          goto T852;}
2261          base[3]= (V222);          base[3]= (V223);
2262          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2263          (void) (*Lnk148)();          (void) (*Lnk148)();
2264          vs_top=sup;          vs_top=sup;
2265          princ_char(10,Cnil);          princ_char(10,Cnil);
2266  goto T849;  goto T852;
2267  T849:;  T852:;
2268          V226= (V224);          V227= (V225);
2269          goto T830;          goto T833;
2270  goto T848;  goto T851;
2271  T848:;  T851:;
2272          V226= Cnil;}          V227= Cnil;}
2273  goto T830;  goto T833;
2274  T830:;  T833:;
2275          (void)(aset1(V225,fixint((V222)),V226));}}          (void)(aset1(V226,fixint((V223)),V227));}}
2276  goto T824;  goto T827;
2277  T824:;  T827:;
2278          V222= one_plus((V222));          V223= one_plus((V223));
2279          goto T819;}          goto T822;}
2280          }          }
2281  }  }
2282  /*      function definition for COMPLETE-PROP   */  /*      function definition for COMPLETE-PROP   */
# Line 2277  static void L38() Line 2285  static void L38()
2285  {register object *base=vs_base;  {register object *base=vs_base;
2286          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2287          vs_reserve(VM36);          vs_reserve(VM36);
2288          {object V234;          {object V235;
         object V235;  
2289          object V236;          object V236;
2290          object V237;          object V237;
2291            object V238;
2292          if(vs_top-vs_base<3) too_few_arguments();          if(vs_top-vs_base<3) too_few_arguments();
2293          if(vs_top-vs_base>4) too_many_arguments();          if(vs_top-vs_base>4) too_many_arguments();
2294          V234=(base[0]);          V235=(base[0]);
2295          V235=(base[1]);          V236=(base[1]);
2296          V236=(base[2]);          V237=(base[2]);
2297          vs_base=vs_base+3;          vs_base=vs_base+3;
2298          if(vs_base>=vs_top){vs_top=sup;goto T857;}          if(vs_base>=vs_top){vs_top=sup;goto T860;}
2299          V237=(base[3]);          V238=(base[3]);
2300          vs_top=sup;          vs_top=sup;
2301          goto T858;          goto T861;
2302  goto T857;  goto T860;
2303  T857:;  T860:;
2304          V237= Cnil;          V238= Cnil;
2305  goto T858;  goto T861;
2306  T858:;  T861:;
2307          if(!(type_of((V234))==t_symbol)){          if(!(type_of((V235))==t_symbol)){
2308          goto T860;}          goto T863;}
2309          if((get((V234),(V236),Cnil))==Cnil){          if((get((V235),(V237),Cnil))==Cnil){
2310          goto T860;}          goto T863;}
2311          base[4]= (V234);          base[4]= (V235);
2312          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2313          Lsymbol_package();          Lsymbol_package();
2314          vs_top=sup;          vs_top=sup;
2315          V238= vs_base[0];          V239= vs_base[0];
2316          base[4]= (V235);          base[4]= (V236);
2317          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2318          Lfind_package();          Lfind_package();
2319          vs_top=sup;          vs_top=sup;
2320          V239= vs_base[0];          V240= vs_base[0];
2321          if(!(equal(V238,V239))){          if(!(equal(V239,V240))){
2322          goto T860;}          goto T863;}
2323          base[4]= (V234);          base[4]= (V235);
2324          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2325          return;          return;
2326  goto T860;  goto T863;
2327  T860:;  T863:;
2328          {object V240;          {object V241;
2329          register object V241;          register object V242;
         V240= Cnil;  
2330          V241= Cnil;          V241= Cnil;
2331          {object V242;          V242= Cnil;
2332          register object V243;          {object V243;
2333          register object V244;          register object V244;
2334          {object V245;          register object V245;
2335          base[4]= (V235);          {object V246;
2336            base[4]= (V236);
2337          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2338          Lfind_package();          Lfind_package();
2339          vs_top=sup;          vs_top=sup;
2340          V245= vs_base[0];          V246= vs_base[0];
2341          base[4]= (V245);          base[4]= (V246);
2342          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2343          Lpackagep();          Lpackagep();
2344          vs_top=sup;          vs_top=sup;
2345          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2346          goto T876;}          goto T879;}
2347          V242= (V245);          V243= (V246);
2348          goto T872;          goto T875;
2349  goto T876;  goto T879;
2350  T876:;  T879:;
2351          base[4]= coerce_to_string((V245));          base[4]= coerce_to_string((V246));
2352          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2353          Lfind_package();          Lfind_package();
2354          vs_top=sup;          vs_top=sup;
2355          V242= vs_base[0];}          V243= vs_base[0];}
2356  goto T872;  goto T875;
2357  T872:;  T875:;
         V243= Cnil;  
2358          V244= Cnil;          V244= Cnil;
2359          {long V246;          V245= Cnil;
2360          long V247;          {long V247;
2361          base[4]= (V242);          long V248;
2362            base[4]= (V243);
2363          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2364          (void) (*Lnk154)();          (void) (*Lnk154)();
2365          if(vs_base>=vs_top){vs_top=sup;goto T882;}          if(vs_base>=vs_top){vs_top=sup;goto T885;}
         V246= fix(vs_base[0]);  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T883;}  
2366          V247= fix(vs_base[0]);          V247= fix(vs_base[0]);
2367            vs_base++;
2368            if(vs_base>=vs_top){vs_top=sup;goto T886;}
2369            V248= fix(vs_base[0]);
2370          vs_top=sup;          vs_top=sup;
2371          goto T884;          goto T887;
2372  goto T882;  goto T885;
2373  T882:;  T885:;
         V246= fix(Cnil);  
 goto T883;  
 T883:;  
2374          V247= fix(Cnil);          V247= fix(Cnil);
2375  goto T884;  goto T886;
2376  T884:;  T886:;
2377          {object V248;          V248= fix(Cnil);
2378          register object V249;  goto T887;
2379          V250 = make_fixnum(V247);  T887:;
2380          V251 = make_fixnum(V246);          {object V249;
2381          V248= number_plus(V250,V251);          register object V250;
2382          V249= small_fixnum(0);          V251 = make_fixnum(V248);
 goto T888;  
 T888:;  
         if(!(number_compare((V249),(V248))>=0)){  
         goto T889;}  
         V243= Cnil;  
         goto T871;  
 goto T889;  
 T889:;  
2383          V252 = make_fixnum(V247);          V252 = make_fixnum(V247);
2384          if(!(number_compare((V249),V252)<0)){          V249= number_plus(V251,V252);
2385          goto T900;}          V250= small_fixnum(0);
2386          base[5]= (V242);  goto T891;
2387          base[6]= (V249);  T891:;
2388            if(!(number_compare((V250),(V249))>=0)){
2389            goto T892;}
2390            V244= Cnil;
2391            goto T874;
2392    goto T892;
2393    T892:;
2394            V253 = make_fixnum(V248);
2395            if(!(number_compare((V250),V253)<0)){
2396            goto T903;}
2397            base[5]= (V243);
2398            base[6]= (V250);
2399          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2400          siLpackage_internal();          siLpackage_internal();
2401          vs_top=sup;          vs_top=sup;
2402          V244= vs_base[0];          V245= vs_base[0];
2403          goto T898;          goto T901;
2404  goto T900;  goto T903;
2405  T900:;  T903:;
2406          base[5]= (V242);          base[5]= (V243);
2407          V253 = make_fixnum(V247);          V254 = make_fixnum(V248);
2408          base[6]= number_minus((V249),V253);          base[6]= number_minus((V250),V254);
2409          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2410          siLpackage_external();          siLpackage_external();
2411          vs_top=sup;          vs_top=sup;
2412          V244= vs_base[0];          V245= vs_base[0];
2413  goto T898;  goto T901;
2414  T898:;  T901:;
2415  goto T896;  goto T899;
2416  T896:;  T899:;
2417          if(((V244))!=Cnil){          if(((V245))!=Cnil){
2418          goto T906;}          goto T909;}
2419          goto T897;          goto T900;
2420  goto T906;  goto T909;
2421  T906:;  T909:;
2422          V243= car((V244));          V244= car((V245));
2423          if((get((V243),(V236),Cnil))==Cnil){          if((get((V244),(V237),Cnil))==Cnil){
2424          goto T911;}          goto T914;}
2425          base[5]= (V234);          base[5]= (V235);
2426          base[6]= (V243);          base[6]= (V244);
2427          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2428          (void) (*Lnk155)();          (void) (*Lnk155)();
2429          vs_top=sup;          vs_top=sup;
2430          V254= vs_base[0];          V255= vs_base[0];
2431          if(!(eql(V254,small_fixnum(0)))){          if(!(eql(V255,small_fixnum(0)))){
2432          goto T911;}          goto T914;}
2433          if(((V241))==Cnil){          if(((V242))==Cnil){
2434          goto T920;}          goto T923;}
2435          {register object V255;          {register object V256;
2436          register object V256;          register object V257;
2437          V255= (V241);          V256= (V242);
2438          V241= make_cons((V243),Cnil);          V242= make_cons((V244),Cnil);
2439          V256= (V241);          V257= (V242);
2440          if(type_of((V255))!=t_cons)FEwrong_type_argument(Scons,(V255));          if(type_of((V256))!=t_cons)FEwrong_type_argument(Scons,(V256));
2441          ((V255))->c.c_cdr = (V256);          ((V256))->c.c_cdr = (V257);
2442          goto T911;}          goto T914;}
2443  goto T920;  goto T923;
2444  T920:;  T923:;
2445          V241= make_cons((V243),Cnil);          V242= make_cons((V244),Cnil);
2446          V240= (V241);          V241= (V242);
2447  goto T911;  goto T914;
2448  T911:;  T914:;
2449          V244= cdr((V244));          V245= cdr((V245));
2450          goto T896;          goto T899;
2451    goto T900;
2452    T900:;
2453            goto T897;
2454  goto T897;  goto T897;
2455  T897:;  T897:;
2456          goto T894;          V250= one_plus((V250));
2457  goto T894;          goto T891;}}}
2458  T894:;  goto T874;
2459          V249= one_plus((V249));  T874:;
2460          goto T888;}}}          if(((V238))==Cnil){
2461  goto T871;          goto T938;}
2462  T871:;          base[4]= (V241);
         if(((V237))==Cnil){  
         goto T935;}  
         base[4]= (V240);  
2463          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2464          return;          return;
2465  goto T935;  goto T938;
2466  T935:;  T938:;
2467          if(!(((long)length((V240)))>(1))){          if(!(((long)length((V241)))>(1))){
2468          goto T938;}          goto T941;}
2469          base[4]= Ct;          base[4]= Ct;
2470          base[5]= VV[75];          base[5]= VV[75];
2471          base[6]= (V236);          base[6]= (V237);
2472          base[7]= (V240);          base[7]= (V241);
2473          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2474          Lformat();          Lformat();
2475          vs_top=sup;          vs_top=sup;
2476          goto T933;          goto T936;
2477  goto T938;  goto T941;
2478  T938:;  T941:;
2479          if(((V240))!=Cnil){          if(((V241))!=Cnil){
2480          goto T945;}          goto T948;}
2481          base[4]= Ct;          base[4]= Ct;
2482          base[5]= VV[76];          base[5]= VV[76];
2483          base[6]= (V234);          base[6]= (V235);
2484          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
2485          Lformat();          Lformat();
2486          vs_top=sup;          vs_top=sup;
2487          goto T933;          goto T936;
2488  goto T945;  goto T948;
2489  T945:;  T948:;
2490          base[4]= car((V240));          base[4]= car((V241));
2491          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2492          return;          return;
2493  goto T933;  goto T936;
2494  T933:;  T936:;
2495          base[4]= Cnil;          base[4]= Cnil;
2496          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2497          return;          return;
# Line 2498  static void L39() Line 2506  static void L39()
2506  {register object *base=vs_base;  {register object *base=vs_base;
2507          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
2508          vs_reserve(VM37);          vs_reserve(VM37);
2509          {register object V257;          {register object V258;
2510          object V258;          object V259;
2511          check_arg(2);          check_arg(2);
2512          V257=(base[0]);          V258=(base[0]);
2513          V258=(base[1]);          V259=(base[1]);
2514          vs_top=sup;          vs_top=sup;
2515  goto TTL;  goto TTL;
2516  TTL:;  TTL:;
2517          {register object V259;          {register object V260;
2518          V259= reverse((V258));          V260= reverse((V259));
2519  goto T953;  goto T956;
2520  T953:;  T956:;
2521          if(!(type_of((V259))==t_cons)){          if(!(type_of((V260))==t_cons)){
2522          goto T955;}          goto T958;}
2523          base[2]= symbol_value(VV[77]);          base[2]= symbol_value(VV[77]);
2524          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2525          Lfill_pointer();          Lfill_pointer();
2526          vs_top=sup;          vs_top=sup;
2527          V260= vs_base[0];          V261= vs_base[0];
2528          if(!((fix(V260))>(fix((V257))))){          if(!((fix(V261))>(fix((V258))))){
2529          goto T954;}          goto T957;}
2530  goto T955;  goto T958;
2531  T955:;  T958:;
2532          base[2]= Cnil;          base[2]= Cnil;
2533          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2534          return;          return;
2535  goto T954;  goto T957;
2536  T954:;{object V261;  T957:;{object V262;
2537          if(type_of(car((V259)))==t_cons){          if(type_of(car((V260)))==t_cons){
2538          goto T965;}          goto T968;}
2539          V261= Cnil;          V262= Cnil;
2540          goto T964;          goto T967;
2541  goto T965;  goto T968;
2542  T965:;  T968:;
2543          {object V262= cdar((V259));          {object V263= cdar((V260));
2544          V261= (type_of(V262)==t_cons||(V262)==Cnil?Ct:Cnil);}          V262= (type_of(V263)==t_cons||(V263)==Cnil?Ct:Cnil);}
2545  goto T964;  goto T967;
2546  T964:;  T967:;
2547          if(V261==Cnil)goto T963;          if(V262==Cnil)goto T966;
2548          goto T962;          goto T965;
2549  goto T963;  goto T966;
2550  T963:;}  T966:;}
2551          base[2]= Cnil;          base[2]= Cnil;
2552          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2553          return;          return;
2554  goto T962;  goto T965;
2555  T962:;  T965:;
2556          base[2]= symbol_value(VV[77]);          base[2]= symbol_value(VV[77]);
2557          base[3]= VV[78];          base[3]= VV[78];
2558          base[4]= caar((V259));          base[4]= caar((V260));
2559          base[5]= cadar((V259));          base[5]= cadar((V260));
2560          base[6]= cdr((V259));          base[6]= cdr((V260));
2561          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
2562          Lformat();          Lformat();
2563          vs_top=sup;          vs_top=sup;
2564          V259= cdr((V259));          V260= cdr((V260));
2565          goto T953;}          goto T956;}
2566          }          }
2567  }  }
2568  /*      function definition for APPLY-DISPLAY-FUN       */  /*      function definition for APPLY-DISPLAY-FUN       */
# Line 2564  static void L40() Line 2572  static void L40()
2572          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
2573          vs_reserve(VM38);          vs_reserve(VM38);
2574          bds_check;          bds_check;
2575          {object V263;          {object V264;
         object V264;  
2576          object V265;          object V265;
2577            object V266;
2578          check_arg(3);          check_arg(3);
2579          V263=(base[0]);          V264=(base[0]);
2580          V264=(base[1]);          V265=(base[1]);
2581          V265=(base[2]);          V266=(base[2]);
2582          vs_top=sup;          vs_top=sup;
2583  goto TTL;  goto TTL;
2584  TTL:;  TTL:;
# Line 2590  TTL:; Line 2598  TTL:;
2598          Lformat();          Lformat();
2599          vs_top=sup;          vs_top=sup;
2600          (void)((          (void)((
2601          (type_of((V263)) == t_sfun ?(*(((V263))->sfn.sfn_self)):          (type_of((V264)) == t_sfun ?(*(((V264))->sfn.sfn_self)):
2602          (fcall.fun=((V263)),fcall.argd=2,fcalln))((V264),(V265))));          (fcall.fun=((V264)),fcall.argd=2,fcalln))((V265),(V266))));
2603          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2604          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2605          Lfill_pointer();          Lfill_pointer();
2606          vs_top=sup;          vs_top=sup;
2607          V266= vs_base[0];          V267= vs_base[0];
2608          if(!((fix(V266))>(fix((V264))))){          if(!((fix(V267))>(fix((V265))))){
2609          goto T984;}          goto T987;}
2610          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2611          base[9]= (V264);          base[9]= (V265);
2612          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2613          siLfill_pointer_set();          siLfill_pointer_set();
2614          vs_top=sup;          vs_top=sup;
# Line 2609  TTL:; Line 2617  TTL:;
2617          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
2618          Lformat();          Lformat();
2619          vs_top=sup;          vs_top=sup;
2620  goto T984;  goto T987;
2621  T984:;  T987:;
2622          base[8]= symbol_value(VV[77]);          base[8]= symbol_value(VV[77]);
2623          base[9]= VV[84];          base[9]= VV[84];
2624          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
# Line 2632  static void L41() Line 2640  static void L41()
2640  {register object *base=vs_base;  {register object *base=vs_base;
2641          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
2642          vs_reserve(VM39);          vs_reserve(VM39);
2643          {object V267;          {object V268;
2644          object V268;          object V269;
2645          check_arg(2);          check_arg(2);
2646          V267=(base[0]);          V268=(base[0]);
2647          V268=(base[1]);          V269=(base[1]);
2648          vs_top=sup;          vs_top=sup;
2649  goto TTL;  goto TTL;
2650  TTL:;  TTL:;
2651          {object V269;          {object V270;
2652          V269= (VFUN_NARGS=2,(*(LnkLI143))((V267),(V268)));          V270= (VFUN_NARGS=2,(*(LnkLI143))((V268),(V269)));
2653          if(((V269))==Cnil){          if(((V270))==Cnil){
2654          goto T998;}          goto T1001;}
2655          V270= aref1((V268),0);          V271= aref1((V269),0);
2656          base[2]= make_fixnum((long)(fix((V269)))+(fix(cdr(/* INLINE-ARGS */V270))));          base[2]= make_fixnum((long)(fix((V270)))+(fix(cdr(/* INLINE-ARGS */V271))));
2657          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2658          return;          return;
2659  goto T998;  goto T1001;
2660  T998:;  T1001:;
2661          base[2]= Cnil;          base[2]= Cnil;
2662          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2663          return;}          return;}
# Line 2661  static void L42() Line 2669  static void L42()
2669  {register object *base=vs_base;  {register object *base=vs_base;
2670          register object *sup=base+VM40; VC40          register object *sup=base+VM40; VC40
2671          vs_reserve(VM40);          vs_reserve(VM40);
2672          {object V271;          {object V272;
2673          check_arg(1);          check_arg(1);
2674          V271=(base[0]);          V272=(base[0]);
2675          vs_top=sup;          vs_top=sup;
2676  goto TTL;  goto TTL;
2677  TTL:;  TTL:;
         {register object V272;  
         V272= (V271);  
 goto T1001;  
 T1001:;  
         if(!((fix((V272)))<(fix(symbol_value(VV[85]))))){  
         goto T1002;}  
2678          {register object V273;          {register object V273;
2679          V273= Cnil;          V273= (V272);
2680          (void)((MVloc[(0)]=((V272))));  goto T1004;
2681          base[1]= (V273);  T1004:;
2682            if(!((fix((V273)))<(fix(symbol_value(VV[85]))))){
2683            goto T1005;}
2684            {register object V274;
2685            V274= Cnil;
2686            (void)((MVloc[(0)]=((V273))));
2687            base[1]= (V274);
2688          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2689          return;}          return;}
2690  goto T1002;  goto T1005;
2691  T1002:;  T1005:;
2692          {register object V274;          {register object V275;
2693          base[1]= (V272);          base[1]= (V273);
2694          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2695          (void) (*Lnk140)();          (void) (*Lnk140)();
2696          vs_top=sup;          vs_top=sup;
2697          V274= vs_base[0];          V275= vs_base[0];
2698          {register object V275;          {register object V276;
2699          base[1]= (V274);          base[1]= (V275);
2700          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2701          Lspecial_form_p();          Lspecial_form_p();
2702          vs_top=sup;          vs_top=sup;
2703          V275= vs_base[0];          V276= vs_base[0];
         if(((V275))==Cnil){  
         goto T1013;}  
         goto T1007;  
 goto T1013;  
 T1013:;  
         {register object V276;  
         V276= get((V274),VV[86],Cnil);  
2704          if(((V276))==Cnil){          if(((V276))==Cnil){
2705          goto T1017;}          goto T1016;}
2706          goto T1007;          goto T1010;
2707  goto T1017;  goto T1016;
2708  T1017:;  T1016:;
2709          base[1]= (V274);          {register object V277;
2710            V277= get((V275),VV[86],Cnil);
2711            if(((V277))==Cnil){
2712            goto T1020;}
2713            goto T1010;
2714    goto T1020;
2715    T1020:;
2716            base[1]= (V275);
2717          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2718          Lfboundp();          Lfboundp();
2719          vs_top=sup;          vs_top=sup;
2720          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2721          goto T1007;}          goto T1010;}
2722          {register object V277;          {register object V278;
2723          V277= (V274);          V278= (V275);
2724          (void)((MVloc[(0)]=((V272))));          (void)((MVloc[(0)]=((V273))));
2725          base[1]= (V277);          base[1]= (V278);
2726          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2727          return;}}}}          return;}}}}
2728  goto T1007;  goto T1010;
2729  T1007:;  T1010:;
2730          V272= make_fixnum((long)(fix((V272)))-(1));          V273= make_fixnum((long)(fix((V273)))-(1));
2731          goto T1001;}          goto T1004;}
2732          }          }
2733  }  }
2734  /*      function definition for DBL-WHAT-FRAME  */  /*      function definition for DBL-WHAT-FRAME  */
# Line 2729  static void L43() Line 2737  static void L43()
2737  {register object *base=vs_base;  {register object *base=vs_base;
2738          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
2739          vs_reserve(VM41);          vs_reserve(VM41);
2740          {register long V278;          {register long V279;
2741          check_arg(1);          check_arg(1);
2742          V278=fix(base[0]);          V279=fix(base[0]);
2743          vs_top=sup;          vs_top=sup;
2744  goto TTL;  goto TTL;
2745  TTL:;  TTL:;
2746          {register long V279;          {register long V280;
2747          register long V280;          register long V281;
2748          register object V281;          register object V282;
2749          V279= fix(symbol_value(VV[87]));          V280= fix(symbol_value(VV[87]));
2750          V280= 0;          V281= 0;
2751          V281= Cnil;          V282= Cnil;
2752  goto T1030;  goto T1033;
2753  T1030:;  T1033:;
2754          {register object V282;          {register object V283;
2755          base[1]= make_fixnum(V279);          base[1]= make_fixnum(V280);
2756          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2757          (void) (*Lnk156)();          (void) (*Lnk156)();
2758          vs_top=sup;          vs_top=sup;
2759          V281= vs_base[0];          V282= vs_base[0];
2760          V282= (V281);          V283= (V282);
2761          V279= fix((MVloc[(0)]));}          V280= fix((MVloc[(0)]));}
2762          if(!((V279)<=(V278))){          if(!((V280)<=(V279))){
2763          goto T1038;}          goto T1041;}
2764          base[1]= make_fixnum(V280);          base[1]= make_fixnum(V281);
2765          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2766          return;          return;
2767  goto T1038;  goto T1041;
2768  T1038:;  T1041:;
2769          V280= (long)(V280)+(1);          V281= (long)(V281)+(1);
2770          V279= (long)(V279)-(1);          V280= (long)(V280)-(1);
2771          goto T1030;}          goto T1033;}
2772          }          }
2773  }  }
2774  /*      function definition for DBL-UP  */  /*      function definition for DBL-UP  */
# Line 2769  static void L44() Line 2777  static void L44()
2777  {register object *base=vs_base;  {register object *base=vs_base;
2778          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
2779          vs_reserve(VM42);          vs_reserve(VM42);
2780          {register object V283;          {register object V284;
2781          object V284;          object V285;
2782          check_arg(2);          check_arg(2);
2783          V283=(base[0]);          V284=(base[0]);
2784          V284=(base[1]);          V285=(base[1]);
2785          vs_top=sup;          vs_top=sup;
2786  goto TTL;  goto TTL;
2787  TTL:;  TTL:;
2788          {object V285;          {object V286;
         object V286;  
2789          object V287;          object V287;
2790          object V288;          object V288;
2791          object V289;          object V289;
2792          V285= Cnil;          object V290;
2793          V286= Cnil;          V286= Cnil;
2794          V287= Cnil;          V287= Cnil;
2795          V288= Cnil;          V288= Cnil;
2796          V289= Cnil;          V289= Cnil;
2797          base[2]= (V284);          V290= Cnil;
2798            base[2]= (V285);
2799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2800          (void) (*Lnk157)();          (void) (*Lnk157)();
2801          vs_top=sup;          vs_top=sup;
2802          V285= vs_base[0];          V286= vs_base[0];
2803          if(!((fix((V283)))>=(0))){          if(!((fix((V284)))>=(0))){
2804          goto T1054;}          goto T1057;}
2805          {object V290;          {object V291;
2806          base[2]= (V283);          base[2]= (V284);
2807          base[3]= (V284);          base[3]= (V285);
2808          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2809          (void) (*Lnk158)();          (void) (*Lnk158)();
2810          vs_top=sup;          vs_top=sup;
2811          setq(VV[9],vs_base[0]);          setq(VV[9],vs_base[0]);
2812          V290= symbol_value(VV[9]);          V291= symbol_value(VV[9]);
2813          V283= (MVloc[(0)]);          V284= (MVloc[(0)]);
2814          V286= (MVloc[(1)]);          V287= (MVloc[(1)]);
2815          V287= (MVloc[(2)]);          V288= (MVloc[(2)]);
2816          V288= (MVloc[(3)]);          V289= (MVloc[(3)]);
2817          V289= (MVloc[(4)]);}          V290= (MVloc[(4)]);}
2818          (void)((*(LnkLI159))());          (void)((*(LnkLI159))());
2819          base[2]= make_fixnum((long)(fix((V285)))+(fix((V283))));          base[2]= make_fixnum((long)(fix((V286)))+(fix((V284))));
2820          base[3]= Ct;          base[3]= Ct;
2821          base[4]= symbol_value(VV[9]);          base[4]= symbol_value(VV[9]);
2822          base[5]= (V286);          base[5]= (V287);
2823          base[6]= (V287);          base[6]= (V288);
2824          base[7]= (V288);          base[7]= (V289);
2825          base[8]= (V289);          base[8]= (V290);
2826          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
2827          (void) (*Lnk160)();          (void) (*Lnk160)();
2828          return;          return;
2829  goto T1054;  goto T1057;
2830  T1054:;  T1057:;
2831          V283= make_fixnum((long)(fix((V285)))+(fix((V283))));          V284= make_fixnum((long)(fix((V286)))+(fix((V284))));
2832          if(!((fix((V283)))>=(0))){          if(!((fix((V284)))>=(0))){
2833          goto T1082;}          goto T1085;}
2834          goto T1081;          goto T1084;
2835  goto T1082;  goto T1085;
2836  T1082:;  T1085:;
2837          V283= small_fixnum(0);          V284= small_fixnum(0);
2838  goto T1081;  goto T1084;
2839  T1081:;  T1084:;
2840          V284= symbol_value(VV[87]);          V285= symbol_value(VV[87]);
2841          goto TTL;}          goto TTL;}
2842          }          }
2843  }  }
# Line 2839  static void L45() Line 2847  static void L45()
2847  {register object *base=vs_base;  {register object *base=vs_base;
2848          register object *sup=base+VM43; VC43          register object *sup=base+VM43; VC43
2849          vs_reserve(VM43);          vs_reserve(VM43);
2850          {object V291;          {object V292;
2851          check_arg(1);          check_arg(1);
2852          V291=(base[0]);          V292=(base[0]);
2853          vs_top=sup;          vs_top=sup;
2854  goto TTL;  goto TTL;
2855  TTL:;  TTL:;
2856          {register object V292;          {register object V293;
         register object V293;  
2857          register object V294;          register object V294;
2858          register object V295;          register object V295;
2859          object V296;          register object V296;
2860          V292= Cnil;          object V297;
2861          V293= Cnil;          V293= Cnil;
2862          V294= Cnil;          V294= Cnil;
2863          V295= Cnil;          V295= Cnil;
2864          V296= Cnil;          V296= Cnil;
2865          if(!((fix((V291)))<(fix(symbol_value(VV[85]))))){          V297= Cnil;
2866          goto T1094;}          if(!((fix((V292)))<(fix(symbol_value(VV[85]))))){
2867            goto T1097;}
2868          (void)((MVloc[(0)]=(Cnil)));          (void)((MVloc[(0)]=(Cnil)));
2869          (void)((MVloc[(1)]=(Cnil)));          (void)((MVloc[(1)]=(Cnil)));
2870          (void)((MVloc[(2)]=(Cnil)));          (void)((MVloc[(2)]=(Cnil)));
# Line 2864  TTL:; Line 2872  TTL:;
2872          base[1]= Cnil;          base[1]= Cnil;
2873          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2874          return;          return;
2875  goto T1094;  goto T1097;
2876  T1094:;  T1097:;
         {object V298;  
         V298= Cnil;  
2877          {object V299;          {object V299;
2878          base[1]= (V291);          V299= Cnil;
2879            {object V300;
2880            base[1]= (V292);
2881          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2882          (void) (*Lnk156)();          (void) (*Lnk156)();
2883          vs_top=sup;          vs_top=sup;
2884          V298= vs_base[0];          V299= vs_base[0];
2885          V299= (V298);          V300= (V299);
2886          V294= (MVloc[(0)]);}          V295= (MVloc[(0)]);}
2887          V296= (V298);          V297= (V299);
2888          {object V300;          {object V301;
2889          V292= get((V298),VV[49],Cnil);          V293= get((V299),VV[49],Cnil);
2890          if(((V292))!=Cnil){          if(((V293))!=Cnil){
2891          goto T1109;}          goto T1112;}
2892          V300= Cnil;          V301= Cnil;
2893          goto T1108;          goto T1111;
2894  goto T1109;  goto T1112;
2895  T1109:;  T1112:;
2896          {register object V301;          {register object V302;
2897          register object V302;          register object V303;
2898          V301= make_fixnum((long)(fix((V291)))+(1));          V302= make_fixnum((long)(fix((V292)))+(1));
2899          V302= Cnil;          V303= Cnil;
2900  goto T1114;  goto T1117;
2901  T1114:;  T1117:;
2902          if(!(number_compare((V301),(V294))<=0)){          if(!(number_compare((V302),(V295))<=0)){
2903          goto T1115;}          goto T1118;}
2904          V300= Cnil;          V301= Cnil;
2905          goto T1108;          goto T1111;
2906  goto T1115;  goto T1118;
2907  T1115:;  T1118:;
2908          base[1]= (V301);          base[1]= (V302);
2909          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2910          (void) (*Lnk115)();          (void) (*Lnk115)();
2911          vs_top=sup;          vs_top=sup;
2912          V302= vs_base[0];          V303= vs_base[0];
2913          base[2]= (V301);          base[2]= (V302);
2914          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2915          (void) (*Lnk115)();          (void) (*Lnk115)();
2916          vs_top=sup;          vs_top=sup;
2917          base[1]= vs_base[0];          base[1]= vs_base[0];
2918          base[2]= (V292);          base[2]= (V293);
2919          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2920          (void) (*Lnk161)();          (void) (*Lnk161)();
2921          vs_top=sup;          vs_top=sup;
2922          V293= vs_base[0];          V294= vs_base[0];
2923          if(((V293))==Cnil){          if(((V294))==Cnil){
2924          goto T1122;}          goto T1125;}
2925          {register object V303;          {register object V304;
2926          V303= (V294);          V304= (V295);
2927          (void)((MVloc[(0)]=((V298))));          (void)((MVloc[(0)]=((V299))));
2928          (void)((MVloc[(1)]=((V293))));          (void)((MVloc[(1)]=((V294))));
2929          V304= aref1((V292),0);          V305= aref1((V293),0);
2930          (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V304))));          (void)((MVloc[(2)]=(car(/* INLINE-ARGS */V305))));
2931          base[2]= (V301);          base[2]= (V302);
2932          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2933          (void) (*Lnk111)();          (void) (*Lnk111)();
2934          vs_top=sup;          vs_top=sup;
2935          V295= vs_base[0];          V296= vs_base[0];
2936          base[1]= (V295);          base[1]= (V296);
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          V305= vs_base[0];          V306= vs_base[0];
2941          base[1]= one_plus((V295));          base[1]= one_plus((V296));
2942          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2943          (void) (*Lnk112)();          (void) (*Lnk112)();
2944          vs_top=sup;          vs_top=sup;
2945          V306= vs_base[0];          V307= vs_base[0];
2946          base[1]= number_plus((V295),small_fixnum(2));          base[1]= number_plus((V296),small_fixnum(2));
2947          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2948          (void) (*Lnk112)();          (void) (*Lnk112)();
2949          vs_top=sup;          vs_top=sup;
2950          V307= vs_base[0];          V308= vs_base[0];
2951          V308= list(3,V305,V306,V307);          V309= list(3,V306,V307,V308);
2952          (void)((MVloc[(3)]=(/* INLINE-ARGS */V308)));          (void)((MVloc[(3)]=(/* INLINE-ARGS */V309)));
2953          base[1]= (V303);          base[1]= (V304);
2954          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2955          return;}          return;}
2956  goto T1122;  goto T1125;
2957  T1122:;  T1125:;
2958          V301= make_fixnum((long)(fix((V301)))-(1));          V302= make_fixnum((long)(fix((V302)))-(1));
2959          goto T1114;}          goto T1117;}
2960  goto T1108;  goto T1111;
2961  T1108:;  T1111:;
2962          if(((V300))==Cnil){          if(((V301))==Cnil){
2963          goto T1145;}          goto T1148;}
2964          base[1]= (V300);          base[1]= (V301);
2965          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2966          return;          return;
2967  goto T1145;  goto T1148;
2968  T1145:;  T1148:;
2969          base[1]= (V296);          base[1]= (V297);
2970          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2971          Lspecial_form_p();          Lspecial_form_p();
2972          vs_top=sup;          vs_top=sup;
2973          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2974          goto T1148;}          goto T1151;}
2975          base[1]= Cnil;          base[1]= Cnil;
2976          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2977          return;          return;
2978  goto T1148;  goto T1151;
2979  T1148:;  T1151:;
2980          {object V309;          {object V310;
2981          V309= get((V296),VV[86],Cnil);          V310= get((V297),VV[86],Cnil);
2982          if(((V309))==Cnil){          if(((V310))==Cnil){
2983          goto T1153;}          goto T1156;}
2984          base[1]= (V309);          base[1]= (V310);
2985          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2986          return;          return;
2987  goto T1153;  goto T1156;
2988  T1153:;  T1156:;
2989          base[1]= (V296);          base[1]= (V297);
2990          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2991          Lfboundp();          Lfboundp();
2992          vs_top=sup;          vs_top=sup;
2993          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2994          goto T1156;}          goto T1159;}
2995          (void)((MVloc[(0)]=((V296))));          (void)((MVloc[(0)]=((V297))));
2996          (void)((MVloc[(1)]=(Cnil)));          (void)((MVloc[(1)]=(Cnil)));
2997          (void)((MVloc[(2)]=(Cnil)));          (void)((MVloc[(2)]=(Cnil)));
2998          base[1]= (V294);          base[1]= (V295);
2999          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3000          (void) (*Lnk162)();          (void) (*Lnk162)();
3001          vs_top=sup;          vs_top=sup;
3002          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3003          goto T1165;}          goto T1168;}
3004          V311= Cnil;          V312= Cnil;
3005          goto T1163;          goto T1166;
3006  goto T1165;  goto T1168;
3007  T1165:;  T1168:;
3008          {object V312;          {object V313;
3009          base[1]= (V294);          base[1]= (V295);
3010          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3011          (void) (*Lnk111)();          (void) (*Lnk111)();
3012          vs_top=sup;          vs_top=sup;
         V312= vs_base[0];  
         base[1]= (V312);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk112)();  
         vs_top=sup;  
3013          V313= vs_base[0];          V313= vs_base[0];
3014          base[1]= one_plus((V312));          base[1]= (V313);
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          V314= vs_base[0];          V314= vs_base[0];
3019          base[1]= make_fixnum((long)(fix((V312)))+(2));          base[1]= one_plus((V313));
3020          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3021          (void) (*Lnk112)();          (void) (*Lnk112)();
3022          vs_top=sup;          vs_top=sup;
3023          V315= vs_base[0];          V315= vs_base[0];
3024          V311= list(3,V313,V314,V315);}          base[1]= make_fixnum((long)(fix((V313)))+(2));
3025  goto T1163;          vs_top=(vs_base=base+1)+1;
3026  T1163:;          (void) (*Lnk112)();
3027          (void)((MVloc[(3)]=(V311)));          vs_top=sup;
3028          base[1]= V294;          V316= vs_base[0];
3029            V312= list(3,V314,V315,V316);}
3030    goto T1166;
3031    T1166:;
3032            (void)((MVloc[(3)]=(V312)));
3033            base[1]= V295;
3034          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3035          return;          return;
3036  goto T1156;  goto T1159;
3037  T1156:;  T1159:;
3038          base[1]= Cnil;          base[1]= Cnil;
3039          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3040          return;}}}}          return;}}}}
# Line 3038  static void L46() Line 3046  static void L46()
3046  {register object *base=vs_base;  {register object *base=vs_base;
3047          register object *sup=base+VM44; VC44          register object *sup=base+VM44; VC44
3048          vs_reserve(VM44);          vs_reserve(VM44);
3049          {register object V316;          {register object V317;
3050          register object V317;          register object V318;
3051          if(vs_top-vs_base<1) too_few_arguments();          if(vs_top-vs_base<1) too_few_arguments();
3052          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3053          V316=(base[0]);          V317=(base[0]);
3054          vs_base=vs_base+1;          vs_base=vs_base+1;
3055          if(vs_base>=vs_top){vs_top=sup;goto T1176;}          if(vs_base>=vs_top){vs_top=sup;goto T1179;}
3056          V317=(base[1]);          V318=(base[1]);
3057          vs_top=sup;          vs_top=sup;
3058          goto T1177;          goto T1180;
3059  goto T1176;  goto T1179;
3060  T1176:;  T1179:;
3061          V317= symbol_value(VV[87]);          V318= symbol_value(VV[87]);
3062  goto T1177;  goto T1180;
3063  T1177:;  T1180:;
3064          {register object V318;          {register object V319;
         object V319;  
3065          object V320;          object V320;
3066          object V321;          object V321;
3067          register object V322;          object V322;
3068          V318= Cnil;          register object V323;
3069          V319= Cnil;          V319= Cnil;
3070          V320= Cnil;          V320= Cnil;
3071          V321= Cnil;          V321= Cnil;
3072          V322= Cnil;          V322= Cnil;
3073          if(!((fix((V316)))>=(0))){          V323= Cnil;
3074          goto T1185;}          if(!((fix((V317)))>=(0))){
3075          goto T1184;          goto T1188;}
3076  goto T1185;          goto T1187;
3077  T1185:;  goto T1188;
3078          V316= small_fixnum(0);  T1188:;
3079  goto T1184;          V317= small_fixnum(0);
3080  T1184:;  goto T1187;
3081          {object V323;  T1187:;
3082          register object V324;          {object V324;
3083          V323= make_fixnum((long)(fix((V316)))+(1));          register object V325;
3084          V324= small_fixnum(0);          V324= make_fixnum((long)(fix((V317)))+(1));
3085  goto T1192;          V325= small_fixnum(0);
3086  T1192:;  goto T1195;
3087          if(!(number_compare((V324),(V323))>=0)){  T1195:;
3088          goto T1193;}          if(!(number_compare((V325),(V324))>=0)){
3089          goto T1188;          goto T1196;}
3090  goto T1193;          goto T1191;
3091  T1193:;  goto T1196;
3092          base[3]= (V317);  T1196:;
3093            base[3]= (V318);
3094          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3095          (void) (*Lnk163)();          (void) (*Lnk163)();
3096          vs_top=sup;          vs_top=sup;
3097          V322= vs_base[0];          V323= vs_base[0];
3098          if(((V322))==Cnil){          if(((V323))==Cnil){
3099          goto T1202;}          goto T1205;}
3100          {register object V325;          {register object V326;
3101          V317= (V322);          V318= (V323);
3102          V325= (V317);          V326= (V318);
3103          V318= (MVloc[(0)]);          V319= (MVloc[(0)]);
3104          V319= (MVloc[(1)]);          V320= (MVloc[(1)]);
3105          V320= (MVloc[(2)]);          V321= (MVloc[(2)]);
3106          V321= (MVloc[(3)]);}          V322= (MVloc[(3)]);}
3107          V317= make_fixnum((long)(fix((V322)))-(1));          V318= make_fixnum((long)(fix((V323)))-(1));
3108          goto T1200;          goto T1203;
3109  goto T1202;  goto T1205;
3110  T1202:;  T1205:;
3111          V316= make_fixnum((long)(fix((V324)))-(1));          V317= make_fixnum((long)(fix((V325)))-(1));
3112          goto T1188;          goto T1191;
3113  goto T1200;  goto T1203;
3114  T1200:;  T1203:;
3115          V324= one_plus((V324));          V325= one_plus((V325));
3116          goto T1192;}          goto T1195;}
3117  goto T1188;  goto T1191;
3118  T1188:;  T1191:;
3119          V317= make_fixnum((long)(fix((V317)))+(1));          V318= make_fixnum((long)(fix((V318)))+(1));
3120          base[2]= (V317);          base[2]= (V318);
3121          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3122          (void) (*Lnk140)();          (void) (*Lnk140)();
3123          vs_top=sup;          vs_top=sup;
3124          V318= vs_base[0];          V319= vs_base[0];
3125          (void)((MVloc[(0)]=((V316))));          (void)((MVloc[(0)]=((V317))));
3126          (void)((MVloc[(1)]=((V318))));          (void)((MVloc[(1)]=((V319))));
3127          (void)((MVloc[(2)]=((V319))));          (void)((MVloc[(2)]=((V320))));
3128          (void)((MVloc[(3)]=((V320))));          (void)((MVloc[(3)]=((V321))));
3129          (void)((MVloc[(4)]=((V321))));          (void)((MVloc[(4)]=((V322))));
3130          base[2]= V317;          base[2]= V318;
3131          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3132          return;}          return;}
3133          }          }
# Line 3130  static void L47() Line 3138  static void L47()
3138  {register object *base=vs_base;  {register object *base=vs_base;
3139          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3140          vs_reserve(VM45);          vs_reserve(VM45);
3141          {object V327;          {object V328;
3142          register object V328;          register object V329;
3143          if(vs_top-vs_base>2) too_many_arguments();          if(vs_top-vs_base>2) too_many_arguments();
3144          if(vs_base>=vs_top){vs_top=sup;goto T1230;}          if(vs_base>=vs_top){vs_top=sup;goto T1233;}
3145          V327=(base[0]);          V328=(base[0]);
3146          vs_base++;          vs_base++;
3147          if(vs_base>=vs_top){vs_top=sup;goto T1231;}          if(vs_base>=vs_top){vs_top=sup;goto T1234;}
3148          V328=(base[1]);          V329=(base[1]);
3149          vs_top=sup;          vs_top=sup;
3150          goto T1232;          goto T1235;
3151  goto T1230;  goto T1233;
3152  T1230:;  T1233:;
3153          V327= small_fixnum(1000);          V328= small_fixnum(1000);
3154  goto T1231;  goto T1234;
3155  T1231:;  T1234:;
3156          V328= symbol_value(VV[87]);          V329= symbol_value(VV[87]);
3157  goto T1232;  goto T1235;
3158  T1232:;  T1235:;
3159          {register object V329;          {register object V330;
         register object V330;  
3160          register object V331;          register object V331;
3161          register object V332;          register object V332;
3162          register object V333;          register object V333;
3163          V329= Cnil;          register object V334;
3164          V330= Cnil;          V330= Cnil;
3165          V331= Cnil;          V331= Cnil;
3166          V332= Cnil;          V332= Cnil;
3167          V333= small_fixnum(0);          V333= Cnil;
3168  goto T1242;          V334= small_fixnum(0);
3169  T1242:;  goto T1245;
3170          {object V334;  T1245:;
3171          base[2]= (V328);          {object V335;
3172            base[2]= (V329);
3173          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3174          (void) (*Lnk163)();          (void) (*Lnk163)();
3175          vs_top=sup;          vs_top=sup;
3176          V328= vs_base[0];          V329= vs_base[0];
3177          V334= (V328);          V335= (V329);
3178          V329= (MVloc[(0)]);          V330= (MVloc[(0)]);
3179          V331= (MVloc[(1)]);          V332= (MVloc[(1)]);
3180          V330= (MVloc[(2)]);          V331= (MVloc[(2)]);
3181          V332= (MVloc[(3)]);}          V333= (MVloc[(3)]);}
3182          if((V329)!=Cnil){          if((V330)!=Cnil){
3183          goto T1256;}          goto T1259;}
3184          goto T1240;          goto T1243;
3185  goto T1256;  goto T1259;
3186  T1256:;  T1259:;
3187          base[2]= (V333);          base[2]= (V334);
3188          base[3]= Cnil;          base[3]= Cnil;
3189          base[4]= (V328);          base[4]= (V329);
3190          base[5]= (V329);          base[5]= (V330);
3191          base[6]= (V331);          base[6]= (V332);
3192          base[7]= (V330);          base[7]= (V331);
3193          base[8]= (V332);          base[8]= (V333);
3194          vs_top=(vs_base=base+2)+7;          vs_top=(vs_base=base+2)+7;
3195          (void) (*Lnk160)();          (void) (*Lnk160)();
3196          vs_top=sup;          vs_top=sup;
3197          V333= number_plus((V333),small_fixnum(1));          V334= number_plus((V334),small_fixnum(1));
3198          if(!((fix((V333)))>=(fix((V327))))){          if(!((fix((V334)))>=(fix((V328))))){
3199          goto T1267;}          goto T1270;}
3200          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
3201          vs_base[0]=Cnil;          vs_base[0]=Cnil;
3202          vs_top=sup;          vs_top=sup;
3203          goto T1240;          goto T1243;
3204  goto T1267;  goto T1270;
3205  T1267:;  T1270:;
3206          V328= make_fixnum((long)(fix((V328)))-(1));          V329= make_fixnum((long)(fix((V329)))-(1));
3207          goto T1242;          goto T1245;
3208  goto T1240;  goto T1243;
3209  T1240:;  T1243:;
3210          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
3211          vs_base[0]=Cnil;          vs_base[0]=Cnil;
3212          return;}          return;}
# Line 3210  static void L48() Line 3218  static void L48()
3218  {register object *base=vs_base;  {register object *base=vs_base;
3219          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3220          vs_reserve(VM46);          vs_reserve(VM46);
3221          {register object V335;          {register object V336;
3222          object V336;          object V337;
3223          check_arg(2);          check_arg(2);
3224          V335=(base[0]);          V336=(base[0]);
3225          V336=(base[1]);          V337=(base[1]);
3226          vs_top=sup;          vs_top=sup;
3227  goto TTL;  goto TTL;
3228  TTL:;  TTL:;
3229          {register object V337;          {register object V338;
3230          register object V338;          register object V339;
3231          base[4]= (V336);          base[4]= (V337);
3232          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3233          (void) (*Lnk111)();          (void) (*Lnk111)();
3234          vs_top=sup;          vs_top=sup;
3235          V337= vs_base[0];          V338= vs_base[0];
3236          base[4]= one_plus((V336));          base[4]= one_plus((V337));
3237          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3238          (void) (*Lnk111)();          (void) (*Lnk111)();
3239          vs_top=sup;          vs_top=sup;
3240          V339= vs_base[0];          V340= vs_base[0];
3241          vs_base=vs_top;          vs_base=vs_top;
3242          (void) (*Lnk164)();          (void) (*Lnk164)();
3243          vs_top=sup;          vs_top=sup;
3244          V340= vs_base[0];          V341= vs_base[0];
3245          V338= (number_compare(V339,V340)<=0?(V339):V340);          V339= (number_compare(V340,V341)<=0?(V340):V341);
3246          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3247          base[5]= VV[88];          base[5]= VV[88];
3248          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3249          Lformat();          Lformat();
3250          vs_top=sup;          vs_top=sup;
3251          {register object V341;          {register object V342;
3252          register object V342;          register object V343;
3253          base[4]= (V336);          base[4]= (V337);
3254          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3255          (void) (*Lnk140)();          (void) (*Lnk140)();
3256          vs_top=sup;          vs_top=sup;
3257          V343= vs_base[0];          V344= vs_base[0];
3258          V342= get(V343,VV[14],Cnil);          V343= get(V344,VV[14],Cnil);
3259          V341= (V337);          V342= (V338);
3260  goto T1285;  goto T1288;
3261  T1285:;  T1288:;
3262          if((fix((V341)))>=(fix((V338)))){          if((fix((V342)))>=(fix((V339)))){
3263          goto T1287;}          goto T1290;}
3264          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3265          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3266          Lfill_pointer();          Lfill_pointer();
3267          vs_top=sup;          vs_top=sup;
3268          V344= vs_base[0];          V345= vs_base[0];
3269          if(!((fix(V344))>(fix((V335))))){          if(!((fix(V345))>(fix((V336))))){
3270          goto T1286;}          goto T1289;}
3271  goto T1287;  goto T1290;
3272  T1287:;  T1290:;
3273          base[4]= Cnil;          base[4]= Cnil;
3274          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3275          return;          return;
3276  goto T1286;  goto T1289;
3277  T1286:;  T1289:;
3278          base[4]= symbol_value(VV[77]);          base[4]= symbol_value(VV[77]);
3279          base[5]= VV[89];{object V345;          base[5]= VV[89];{object V346;
3280          V345= car((V342));          V346= car((V343));
3281          if(V345==Cnil)goto T1298;          if(V346==Cnil)goto T1301;
3282          base[6]= V345;          base[6]= V346;
         goto T1297;  
 goto T1298;  
 T1298:;}  
         base[6]= VV[90];  
 goto T1297;  
 T1297:;  
         if((car((V342)))!=Cnil){  
         goto T1302;}  
         base[7]= make_fixnum((long)(fix((V341)))-(fix((V337))));  
3283          goto T1300;          goto T1300;
3284  goto T1302;  goto T1301;
3285  T1302:;  T1301:;}
3286          base[7]= Cnil;          base[6]= VV[90];
3287  goto T1300;  goto T1300;
3288  T1300:;  T1300:;
3289          base[9]= (V341);          if((car((V343)))!=Cnil){
3290            goto T1305;}
3291            base[7]= make_fixnum((long)(fix((V342)))-(fix((V338))));
3292            goto T1303;
3293    goto T1305;
3294    T1305:;
3295            base[7]= Cnil;
3296    goto T1303;
3297    T1303:;
3298            base[9]= (V342);
3299          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
3300          (void) (*Lnk112)();          (void) (*Lnk112)();
3301          vs_top=sup;          vs_top=sup;
3302          base[8]= vs_base[0];          base[8]= vs_base[0];
3303          V341= make_fixnum((long)(fix((V341)))+(1));          V342= make_fixnum((long)(fix((V342)))+(1));
3304          base[9]= ((fix((V341)))<(fix((V338)))?Ct:Cnil);          base[9]= ((fix((V342)))<(fix((V339)))?Ct:Cnil);
3305          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
3306          Lformat();          Lformat();
3307          vs_top=sup;          vs_top=sup;
3308          V342= cdr((V342));          V343= cdr((V343));
3309          goto T1285;}}          goto T1288;}}
3310          }          }
3311  }  }
3312  /*      function definition for COMPUTING-ARGS-P        */  /*      function definition for COMPUTING-ARGS-P        */
# Line 3307  static void L49() Line 3315  static void L49()
3315  {register object *base=vs_base;  {register object *base=vs_base;
3316          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
3317          vs_reserve(VM47);          vs_reserve(VM47);
3318          {object V346;          {object V347;
3319          check_arg(1);          check_arg(1);
3320          V346=(base[0]);          V347=(base[0]);
3321          vs_top=sup;          vs_top=sup;
3322  goto TTL;  goto TTL;
3323  TTL:;  TTL:;
3324          base[1]= (V346);          base[1]= (V347);
3325          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3326          (void) (*Lnk115)();          (void) (*Lnk115)();
3327          vs_top=sup;          vs_top=sup;
3328          V347= vs_base[0];          V348= vs_base[0];
3329          if(type_of(V347)==t_cons){          if(type_of(V348)==t_cons){
3330          goto T1311;}          goto T1314;}
3331          base[1]= Cnil;          base[1]= Cnil;
3332          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3333          return;          return;
3334  goto T1311;  goto T1314;
3335  T1311:;  T1314:;
3336          if(number_compare((V346),small_fixnum(3))>0){          if(number_compare((V347),small_fixnum(3))>0){
3337          goto T1315;}          goto T1318;}
3338          base[1]= Cnil;          base[1]= Cnil;
3339          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3340          return;          return;
3341  goto T1315;  goto T1318;
3342  T1315:;  T1318:;
3343          base[1]= (V346);          base[1]= (V347);
3344          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3345          (void) (*Lnk115)();          (void) (*Lnk115)();
3346          vs_top=sup;          vs_top=sup;
3347          V350= vs_base[0];          V351= vs_base[0];
3348          {register object x= car(V350),V349= VV[91];          {register object x= car(V351),V350= VV[91];
3349          while(!endp(V349))          while(!endp(V350))
3350          if(eql(x,V349->c.c_car)){          if(eql(x,V350->c.c_car)){
3351          V348= V349;          V349= V350;
3352          goto T1317;          goto T1320;
3353          }else V349=V349->c.c_cdr;          }else V350=V350->c.c_cdr;
3354          V348= Cnil;}          V349= Cnil;}
3355  goto T1317;  goto T1320;
3356  T1317:;  T1320:;
3357          base[1]= ((V348)==Cnil?Ct:Cnil);          base[1]= ((V349)==Cnil?Ct:Cnil);
3358          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3359          return;          return;
3360          }          }
# Line 3357  static void L50() Line 3365  static void L50()
3365  {register object *base=vs_base;  {register object *base=vs_base;
3366          register object *sup=base+VM48; VC48          register object *sup=base+VM48; VC48
3367          vs_reserve(VM48);          vs_reserve(VM48);
3368          {object V351;          {object V352;
3369          object V352;          object V353;
3370          register object V353;          register object V354;
         object V354;  
3371          object V355;          object V355;
3372          object V356;          object V356;
3373            object V357;
3374            object V358;
3375          if(vs_top-vs_base<4) too_few_arguments();          if(vs_top-vs_base<4) too_few_arguments();
3376          if(vs_top-vs_base>6) too_many_arguments();          if(vs_top-vs_base>7) too_many_arguments();
3377          V351=(base[0]);          V352=(base[0]);
3378          V352=(base[1]);          V353=(base[1]);
3379          V353=(base[2]);          V354=(base[2]);
3380          V354=(base[3]);          V355=(base[3]);
3381          vs_base=vs_base+4;          vs_base=vs_base+4;
3382          if(vs_base>=vs_top){vs_top=sup;goto T1320;}          if(vs_base>=vs_top){vs_top=sup;goto T1323;}
3383          V355=(base[4]);          V356=(base[4]);
3384            vs_base++;
3385            if(vs_base>=vs_top){vs_top=sup;goto T1324;}
3386            V357=(base[5]);
3387          vs_base++;          vs_base++;
3388          if(vs_base>=vs_top){vs_top=sup;goto T1321;}          if(vs_base>=vs_top){vs_top=sup;goto T1325;}
3389          V356=(base[5]);          V358=(base[6]);
3390          vs_top=sup;          vs_top=sup;
3391          goto T1322;          goto T1326;
3392  goto T1320;  goto T1323;
3393  T1320:;  T1323:;
         V355= Cnil;  
 goto T1321;  
 T1321:;  
3394          V356= Cnil;          V356= Cnil;
3395  goto T1322;  goto T1324;
3396  T1322:;  T1324:;
3397          if(((V352))==Cnil){          V357= Cnil;
         goto T1325;}  
         if(((V355))==Cnil){  
         goto T1325;}  
         base[6]= symbol_value(VV[1]);  
         base[7]= VV[92];  
         base[8]= (V356);  
         base[9]= (V355);  
         vs_top=(vs_base=base+6)+4;  
         Lformat();  
         vs_top=sup;  
3398  goto T1325;  goto T1325;
3399  T1325:;  T1325:;
3400          {object V357;          V358= Cnil;
3401          base[6]= (V353);  goto T1326;
3402          vs_top=(vs_base=base+6)+1;  T1326:;
3403            if(((V353))==Cnil){
3404            goto T1330;}
3405            if(((V356))==Cnil){
3406            goto T1330;}
3407            base[7]= symbol_value(VV[1]);
3408            base[8]= VV[92];
3409            base[9]= (V357);
3410            base[10]= (V356);
3411            vs_top=(vs_base=base+7)+4;
3412            Lformat();
3413            vs_top=sup;
3414    goto T1330;
3415    T1330:;
3416            {object V359;
3417            base[7]= (V354);
3418            vs_top=(vs_base=base+7)+1;
3419          (void) (*Lnk165)();          (void) (*Lnk165)();
3420          vs_top=sup;          vs_top=sup;
3421          V357= vs_base[0];          V359= vs_base[0];
3422          base[6]= symbol_value(VV[1]);          base[7]= symbol_value(VV[1]);
3423          base[7]= VV[93];          base[8]= VV[93];
3424          base[8]= (V351);          base[9]= (V352);
3425          if((V357)==Cnil){          if((V359)==Cnil){
3426          base[9]= Cnil;          base[10]= Cnil;
3427          goto T1340;}          goto T1345;}
3428          base[9]= VV[94];          base[10]= VV[94];
3429  goto T1340;  goto T1345;
3430  T1340:;  T1345:;
3431          base[10]= (V354);          base[11]= (V355);
3432          base[12]= (V353);          base[13]= (V354);
3433          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+13)+1;
3434          (void) (*Lnk162)();          (void) (*Lnk162)();
3435          vs_top=sup;          vs_top=sup;
3436          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3437          goto T1344;}          goto T1349;}
3438          base[12]= VV[95];          base[13]= VV[95];
3439          base[13]= small_fixnum(80);          base[14]= small_fixnum(80);
3440          base[16]= (V353);          base[17]= (V354);
3441          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+17)+1;
3442          (void) (*Lnk111)();          (void) (*Lnk111)();
3443          vs_top=sup;          vs_top=sup;
3444          base[15]= vs_base[0];          base[16]= vs_base[0];
3445          vs_top=(vs_base=base+15)+1;          vs_top=(vs_base=base+16)+1;
3446          (void) (*Lnk112)();          (void) (*Lnk112)();
3447          vs_top=sup;          vs_top=sup;
3448          V358= vs_base[0];          V360= vs_base[0];
3449          base[14]= car(V358);          base[15]= car(V360);
3450          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+13)+3;
3451          (void) (*Lnk166)();          (void) (*Lnk166)();
3452          vs_top=sup;          vs_top=sup;
3453          base[11]= vs_base[0];          base[12]= vs_base[0];
3454          goto T1342;          goto T1347;
3455  goto T1344;  goto T1349;
3456  T1344:;  T1349:;
3457          base[12]= VV[96];          base[13]= VV[96];
3458          base[13]= small_fixnum(80);          base[14]= small_fixnum(80);
3459          base[14]= (V353);          base[15]= (V354);
3460          vs_top=(vs_base=base+12)+3;          vs_top=(vs_base=base+13)+3;
3461          (void) (*Lnk166)();          (void) (*Lnk166)();
3462          vs_top=sup;          vs_top=sup;
3463          base[11]= vs_base[0];          base[12]= vs_base[0];
3464  goto T1342;  goto T1347;
3465  T1342:;  T1347:;
3466          vs_top=(vs_base=base+6)+6;          vs_top=(vs_base=base+7)+6;
3467          Lformat();          Lformat();
3468          vs_top=sup;          vs_top=sup;
3469          if(((V356))==Cnil){          if(((V357))==Cnil){
3470          goto T1356;}          goto T1361;}
3471          base[6]= symbol_value(VV[1]);          base[7]= symbol_value(VV[1]);
3472          base[7]= VV[97];          base[8]= VV[97];
3473          base[8]= (V356);          base[9]= (V357);
3474          base[9]= (V355);          base[10]= (V356);
3475          vs_top=(vs_base=base+6)+4;          vs_top=(vs_base=base+7)+4;
3476          Lformat();          Lformat();
3477          vs_top=sup;          vs_top=sup;
3478  goto T1356;  goto T1361;
3479  T1356:;  T1361:;
3480          base[6]= symbol_value(VV[1]);          base[7]= symbol_value(VV[1]);
3481          base[7]= VV[98];          base[8]= VV[98];
3482          base[8]= (V353);          base[9]= (V354);
3483          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+7)+3;
3484          Lformat();          Lformat();
3485          return;}          return;}
3486          }          }
# Line 3476  static void L51() Line 3491  static void L51()
3491  {register object *base=vs_base;  {register object *base=vs_base;
3492          register object *sup=base+VM49; VC49          register object *sup=base+VM49; VC49
3493          vs_reserve(VM49);          vs_reserve(VM49);
3494          {object V359;          {object V361;
3495          object V360;          object V362;
3496          object V361;          object V363;
3497          check_arg(3);          check_arg(3);
3498          V359=(base[0]);          V361=(base[0]);
3499          V360=(base[1]);          V362=(base[1]);
3500          V361=(base[2]);          V363=(base[2]);
3501          vs_top=sup;          vs_top=sup;
3502  goto TTL;  goto TTL;
3503  TTL:;  TTL:;
3504          V362= aref1((V360),fixint((V361)));          V364= aref1((V362),fixint((V363)));
3505          V363= aref1((V360),0);          V365= aref1((V362),0);
3506          V364= car(/* INLINE-ARGS */V363);          V366= car(/* INLINE-ARGS */V365);
3507          V365= aref1((V360),0);          V367= aref1((V362),0);
3508          V366 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V365)))+(fix((V361))));          V368 = make_fixnum((long)(fix(cdr(/* INLINE-ARGS */V367)))+(fix((V363))));
3509          base[3]= list(4,/* INLINE-ARGS */V362,/* INLINE-ARGS */V364,V366,(V359));          base[3]= list(4,/* INLINE-ARGS */V364,/* INLINE-ARGS */V366,V368,(V361));
3510          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3511          return;          return;
3512          }          }
# Line 3502  static void L52() Line 3517  static void L52()
3517  {register object *base=vs_base;  {register object *base=vs_base;
3518          register object *sup=base+VM50; VC50          register object *sup=base+VM50; VC50
3519          vs_reserve(VM50);          vs_reserve(VM50);
3520          {object V367;          {object V369;
3521          object V368;          object V370;
3522          check_arg(2);          check_arg(2);
3523          V367=(base[0]);          V369=(base[0]);
3524          V368=(base[1]);          V370=(base[1]);
3525          vs_top=sup;          vs_top=sup;
3526  goto TTL;  goto TTL;
3527  TTL:;  TTL:;
3528          {object V369;          {object V371;
3529          V369= get((V367),VV[49],Cnil);          V371= get((V369),VV[49],Cnil);
3530          if(((V369))==Cnil){          if(((V371))==Cnil){
3531          goto T1368;}          goto T1373;}
3532          V370= aref1((V369),0);          V372= aref1((V371),0);
3533          base[2]= make_fixnum((long)(fix((V368)))-(fix(cdr(/* INLINE-ARGS */V370))));          base[2]= make_fixnum((long)(fix((V370)))-(fix(cdr(/* INLINE-ARGS */V372))));
3534          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3535          return;          return;
3536  goto T1368;  goto T1373;
3537  T1368:;  T1373:;
3538          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
3539          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3540          return;}          return;}
# Line 3532  static void L53() Line 3547  static void L53()
3547          register object *sup=base+VM51; VC51          register object *sup=base+VM51; VC51
3548          vs_reserve(VM51);          vs_reserve(VM51);
3549          bds_check;          bds_check;
3550          {register object V371;          {register object V373;
3551          object V372;          object V374;
3552          check_arg(2);          check_arg(2);
3553          V371=(base[0]);          V373=(base[0]);
3554          V372=(base[1]);          V374=(base[1]);
3555          vs_top=sup;          vs_top=sup;
3556  goto TTL;  goto TTL;
3557  TTL:;  TTL:;
3558          bds_bind(VV[99],Cnil);          bds_bind(VV[99],Cnil);
3559          bds_bind(VV[100],symbol_value(VV[101]));          bds_bind(VV[100],symbol_value(VV[101]));
3560          bds_bind(VV[1],symbol_value(VV[101]));          bds_bind(VV[1],symbol_value(VV[101]));
3561          if(!(type_of((V371))==t_symbol)){          if(!(type_of((V373))==t_symbol)){
3562          goto T1370;}          goto T1375;}
3563          base[5]= (V371);          base[5]= (V373);
3564          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3565          Lboundp();          Lboundp();
3566          vs_top=sup;          vs_top=sup;
3567          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3568          goto T1370;}          goto T1375;}
3569          {register object x= (V371),V373= car((V372));          {register object x= (V373),V375= car((V374));
3570          while(!endp(V373))          while(!endp(V375))
3571          if(type_of(V373->c.c_car)==t_cons &&eql(x,V373->c.c_car->c.c_car)){          if(type_of(V375->c.c_car)==t_cons &&eql(x,V375->c.c_car->c.c_car)){
3572          goto T1370;          goto T1375;
3573          }else V373=V373->c.c_cdr;}          }else V375=V375->c.c_cdr;}
3574          base[5]= VV[102];          base[5]= VV[102];
3575          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3576          bds_unwind1;          bds_unwind1;
3577          bds_unwind1;          bds_unwind1;
3578          bds_unwind1;          bds_unwind1;
3579          return;          return;
3580  goto T1370;  goto T1375;
3581  T1370:;  T1375:;
3582          {object V374;          {object V376;
3583          object V375;          object V377;
3584          V376= list(2,VV[104],(V371));          V378= list(2,VV[104],(V373));
3585          base[5]= list(5,VV[103],/* INLINE-ARGS */V376,Cnil,Cnil,list(2,VV[104],(V372)));          base[5]= list(5,VV[103],/* INLINE-ARGS */V378,Cnil,Cnil,list(2,VV[104],(V374)));
3586          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3587          (void) (*Lnk167)();          (void) (*Lnk167)();
3588          if(vs_base>=vs_top){vs_top=sup;goto T1380;}          if(vs_base>=vs_top){vs_top=sup;goto T1385;}
3589          V374= vs_base[0];          V376= vs_base[0];
3590          vs_base++;          vs_base++;
3591          if(vs_base>=vs_top){vs_top=sup;goto T1381;}          if(vs_base>=vs_top){vs_top=sup;goto T1386;}
3592          V375= vs_base[0];          V377= vs_base[0];
3593          vs_top=sup;          vs_top=sup;
3594          goto T1382;          goto T1387;
3595  goto T1380;  goto T1385;
3596  T1380:;  T1385:;
3597          V374= Cnil;          V376= Cnil;
3598  goto T1381;  goto T1386;
3599  T1381:;  T1386:;
3600          V375= Cnil;          V377= Cnil;
3601  goto T1382;  goto T1387;
3602  T1382:;  T1387:;
3603          if(((V374))==Cnil){          if(((V376))==Cnil){
3604          goto T1384;}          goto T1389;}
3605          base[5]= VV[102];          base[5]= VV[102];
3606          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3607          bds_unwind1;          bds_unwind1;
3608          bds_unwind1;          bds_unwind1;
3609          bds_unwind1;          bds_unwind1;
3610          return;          return;
3611  goto T1384;  goto T1389;
3612  T1384:;  T1389:;
3613          base[5]= (V375);          base[5]= (V377);
3614          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
3615          bds_unwind1;          bds_unwind1;
3616          bds_unwind1;          bds_unwind1;
# Line 3609  static void L54() Line 3624  static void L54()
3624  {register object *base=vs_base;  {register object *base=vs_base;
3625          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
3626          vs_reserve(VM52);          vs_reserve(VM52);
3627          {register object V377;          {register object V379;
3628          register object V378;          register object V380;
3629          check_arg(2);          check_arg(2);
3630          V377=(base[0]);          V379=(base[0]);
3631          V378=(base[1]);          V380=(base[1]);
3632          vs_top=sup;          vs_top=sup;
3633  goto TTL;  goto TTL;
3634  TTL:;  TTL:;
3635          {object V379;          {object V381;
3636          V379= symbol_value(VV[9]);          V381= symbol_value(VV[9]);
3637          setq(VV[105],Cnil);          setq(VV[105],Cnil);
3638          setq(VV[9],(V379));          setq(VV[9],(V381));
3639          if(((V378))==Cnil){          if(((V380))==Cnil){
3640          goto T1393;}          goto T1398;}
3641          setq(VV[0],(V378));          setq(VV[0],(V380));
3642          goto T1391;          goto T1396;
3643  goto T1393;  goto T1398;
3644  T1393:;  T1398:;
3645          base[3]= (V379);          base[3]= (V381);
3646          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3647          (void) (*Lnk111)();          (void) (*Lnk111)();
3648          vs_top=sup;          vs_top=sup;
# Line 3635  T1393:; Line 3650  T1393:;
3650          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3651          (void) (*Lnk112)();          (void) (*Lnk112)();
3652          vs_top=sup;          vs_top=sup;
3653          V380= vs_base[0];          V382= vs_base[0];
3654          (void)(make_cons(V380,Cnil));          (void)(make_cons(V382,Cnil));
3655  goto T1391;  goto T1396;
3656  T1391:;  T1396:;
3657          if(((V377))==Cnil){          if(((V379))==Cnil){
3658          goto T1399;}          goto T1404;}
3659          base[2]= symbol_value(VV[1]);          base[2]= symbol_value(VV[1]);
3660          base[3]= VV[106];          base[3]= VV[106];
3661          base[4]= cadr((V377));          base[4]= cadr((V379));
3662          base[5]= caddr((V377));          base[5]= caddr((V379));
3663          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3664          Lformat();          Lformat();
3665          vs_top=sup;          vs_top=sup;
3666          base[2]= symbol_value(VV[1]);          base[2]= symbol_value(VV[1]);
3667          base[3]= VV[107];          base[3]= VV[107];
3668          base[4]= cadr((V377));          base[4]= cadr((V379));
3669          base[5]= caddr((V377));          base[5]= caddr((V379));
3670          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
3671          Lformat();          Lformat();
3672          vs_top=sup;          vs_top=sup;
3673  goto T1399;  goto T1404;
3674  T1399:;  T1404:;
3675          {register object V381;          {register object V383;
3676          register object V382;          register object V384;
3677          V381= symbol_value(VV[108]);          V383= symbol_value(VV[108]);
3678          V382= car((V381));          V384= car((V383));
3679  goto T1414;  goto T1419;
3680  T1414:;  T1419:;
3681          if(!(endp_prop((V381)))){          if(!(endp_prop((V383)))){
3682          goto T1415;}          goto T1420;}
3683          base[3]= Cnil;          base[3]= Cnil;
3684          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3685          return;          return;
3686  goto T1415;  goto T1420;
3687  T1415:;  T1420:;
3688          {register object V383;          {register object V385;
3689          base[3]= (V382);          base[3]= (V384);
3690          base[4]= (V378);          base[4]= (V380);
3691          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3692          (void) (*Lnk168)();          (void) (*Lnk168)();
3693          vs_top=sup;          vs_top=sup;
3694          V383= vs_base[0];          V385= vs_base[0];
3695          if(!(((V383))==(VV[102]))){          if(!(((V385))==(VV[102]))){
3696          goto T1423;}          goto T1428;}
3697          goto T1419;          goto T1424;
3698  goto T1423;  goto T1428;
3699  T1423:;  T1428:;
3700          base[3]= Ct;          base[3]= Ct;
3701          base[4]= VV[109];          base[4]= VV[109];
3702          base[5]= (V382);          base[5]= (V384);
3703          base[6]= (V383);          base[6]= (V385);
3704          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3705          Lformat();          Lformat();
3706          vs_top=sup;}          vs_top=sup;}
3707  goto T1419;  goto T1424;
3708  T1419:;  T1424:;
3709          V381= cdr((V381));          V383= cdr((V383));
3710          V382= car((V381));          V384= car((V383));
3711          goto T1414;}}          goto T1419;}}
3712          }          }
3713  }  }
3714  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.9  
changed lines
  Added in v.1.10

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