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 |
|
|
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; |
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;} |
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;}} |
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;} |
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;} |
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; |
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; |
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; |
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 |
} |
} |
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 |
} |
} |
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;}} |
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 */ |
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; |
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 */ |
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:; |
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; |
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; |
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;} |
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 */ |
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 */ |
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 |
} |
} |
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))); |
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;}}}} |
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 |
} |
} |
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;} |
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 */ |
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 |
} |
} |
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 |
} |
} |
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 |
} |
} |
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;} |
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; |
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; |
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 */ |