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