1784 |
goto T701; |
goto T701; |
1785 |
T701:; |
T701:; |
1786 |
(VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1)); |
(VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1)); |
1787 |
setq(VV[103],make_cons((V125),symbol_value(VV[103]))); |
setq(VV[103],make_cons(V125,symbol_value(VV[103]))); |
1788 |
frs_push(FRS_CATCH,VV[17]); |
frs_push(FRS_CATCH,VV[17]); |
1789 |
if(nlj_active) |
if(nlj_active) |
1790 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
1793 |
else{ |
else{ |
1794 |
if(!(type_of((V125))==t_symbol)){ |
if(!(type_of((V125))==t_symbol)){ |
1795 |
goto T715;} |
goto T715;} |
1796 |
V127= (*(LnkLI182))((V125)); |
V128= (*(LnkLI182))((V125)); |
1797 |
frs_pop(); |
frs_pop(); |
1798 |
base[2]= V127; |
base[2]= V128; |
1799 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1800 |
bds_unwind1; |
bds_unwind1; |
1801 |
return; |
return; |
1807 |
vs_top=sup; |
vs_top=sup; |
1808 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1809 |
goto T718;} |
goto T718;} |
1810 |
V128= (*(LnkLI183))((V125)); |
V129= (*(LnkLI183))((V125)); |
1811 |
frs_pop(); |
frs_pop(); |
1812 |
base[2]= V128; |
base[2]= V129; |
1813 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1814 |
bds_unwind1; |
bds_unwind1; |
1815 |
return; |
return; |
1817 |
T718:; |
T718:; |
1818 |
if(!(type_of((V125))==t_character)){ |
if(!(type_of((V125))==t_character)){ |
1819 |
goto T722;} |
goto T722;} |
1820 |
V129= (*(LnkLI184))((V125)); |
V130= (*(LnkLI184))((V125)); |
1821 |
frs_pop(); |
frs_pop(); |
1822 |
base[2]= V129; |
base[2]= V130; |
1823 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1824 |
bds_unwind1; |
bds_unwind1; |
1825 |
return; |
return; |
1832 |
type_of((V125))==t_longfloat|| |
type_of((V125))==t_longfloat|| |
1833 |
type_of((V125))==t_complex)){ |
type_of((V125))==t_complex)){ |
1834 |
goto T725;} |
goto T725;} |
1835 |
V130= (*(LnkLI185))((V125)); |
V131= (*(LnkLI185))((V125)); |
1836 |
frs_pop(); |
frs_pop(); |
1837 |
base[2]= V130; |
base[2]= V131; |
1838 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1839 |
bds_unwind1; |
bds_unwind1; |
1840 |
return; |
return; |
1842 |
T725:; |
T725:; |
1843 |
if(!(type_of((V125))==t_cons)){ |
if(!(type_of((V125))==t_cons)){ |
1844 |
goto T728;} |
goto T728;} |
1845 |
V131= (*(LnkLI186))((V125)); |
V132= (*(LnkLI186))((V125)); |
1846 |
frs_pop(); |
frs_pop(); |
1847 |
base[2]= V131; |
base[2]= V132; |
1848 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1849 |
bds_unwind1; |
bds_unwind1; |
1850 |
return; |
return; |
1852 |
T728:; |
T728:; |
1853 |
if(!(type_of((V125))==t_string)){ |
if(!(type_of((V125))==t_string)){ |
1854 |
goto T731;} |
goto T731;} |
1855 |
V132= (*(LnkLI187))((V125)); |
V133= (*(LnkLI187))((V125)); |
1856 |
frs_pop(); |
frs_pop(); |
1857 |
base[2]= V132; |
base[2]= V133; |
1858 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1859 |
bds_unwind1; |
bds_unwind1; |
1860 |
return; |
return; |
1864 |
type_of((V125))==t_string|| |
type_of((V125))==t_string|| |
1865 |
type_of((V125))==t_bitvector)){ |
type_of((V125))==t_bitvector)){ |
1866 |
goto T734;} |
goto T734;} |
1867 |
V133= (*(LnkLI188))((V125)); |
V134= (*(LnkLI188))((V125)); |
1868 |
frs_pop(); |
frs_pop(); |
1869 |
base[2]= V133; |
base[2]= V134; |
1870 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1871 |
bds_unwind1; |
bds_unwind1; |
1872 |
return; |
return; |
1877 |
type_of((V125))==t_string|| |
type_of((V125))==t_string|| |
1878 |
type_of((V125))==t_bitvector)){ |
type_of((V125))==t_bitvector)){ |
1879 |
goto T737;} |
goto T737;} |
1880 |
V134= (*(LnkLI189))((V125)); |
V135= (*(LnkLI189))((V125)); |
1881 |
frs_pop(); |
frs_pop(); |
1882 |
base[2]= V134; |
base[2]= V135; |
1883 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1884 |
bds_unwind1; |
bds_unwind1; |
1885 |
return; |
return; |
1887 |
T737:; |
T737:; |
1888 |
if(!(type_of((V125))==t_structure)){ |
if(!(type_of((V125))==t_structure)){ |
1889 |
goto T740;} |
goto T740;} |
1890 |
V135= (*(LnkLI190))((V125)); |
V136= (*(LnkLI190))((V125)); |
1891 |
frs_pop(); |
frs_pop(); |
1892 |
base[2]= V135; |
base[2]= V136; |
1893 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1894 |
bds_unwind1; |
bds_unwind1; |
1895 |
return; |
return; |
1917 |
register object *VOL sup=base+VM18; VC18 |
register object *VOL sup=base+VM18; VC18 |
1918 |
vs_reserve(VM18); |
vs_reserve(VM18); |
1919 |
bds_check; |
bds_check; |
1920 |
{VOL object V136; |
{VOL object V137; |
1921 |
check_arg(1); |
check_arg(1); |
1922 |
V136=(base[0]); |
V137=(base[0]); |
1923 |
vs_top=sup; |
vs_top=sup; |
1924 |
goto TTL; |
goto TTL; |
1925 |
TTL:; |
TTL:; |
1935 |
vs_top=sup; |
vs_top=sup; |
1936 |
goto T748;} |
goto T748;} |
1937 |
else{ |
else{ |
1938 |
base[6]= (V136); |
base[6]= (V137); |
1939 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1940 |
(void) (*Lnk159)(); |
(void) (*Lnk159)(); |
1941 |
vs_top=sup; |
vs_top=sup; |
1960 |
register object *VOL sup=base+VM19; VC19 |
register object *VOL sup=base+VM19; VC19 |
1961 |
vs_reserve(VM19); |
vs_reserve(VM19); |
1962 |
bds_check; |
bds_check; |
1963 |
{VOL object V137; |
{VOL object V138; |
1964 |
check_arg(1); |
check_arg(1); |
1965 |
V137=(base[0]); |
V138=(base[0]); |
1966 |
vs_top=sup; |
vs_top=sup; |
1967 |
goto TTL; |
goto TTL; |
1968 |
TTL:; |
TTL:; |
1984 |
vs_top=sup; |
vs_top=sup; |
1985 |
goto T755;} |
goto T755;} |
1986 |
else{ |
else{ |
1987 |
base[8]= (V137); |
base[8]= (V138); |
1988 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1989 |
(void) (*Lnk159)(); |
(void) (*Lnk159)(); |
1990 |
vs_top=sup; |
vs_top=sup; |
2011 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
2012 |
vs_reserve(VM20); |
vs_reserve(VM20); |
2013 |
bds_check; |
bds_check; |
2014 |
{object V138; |
{object V139; |
2015 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2016 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2017 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2018 |
if(vs_base>=vs_top){vs_top=sup;goto T759;} |
if(vs_base>=vs_top){vs_top=sup;goto T759;} |
2019 |
V138=(base[1]); |
V139=(base[1]); |
2020 |
vs_top=sup; |
vs_top=sup; |
2021 |
goto T760; |
goto T760; |
2022 |
goto T759; |
goto T759; |
2023 |
T759:; |
T759:; |
2024 |
V138= Cnil; |
V139= Cnil; |
2025 |
goto T760; |
goto T760; |
2026 |
T760:; |
T760:; |
2027 |
{register object V139; |
{register object V140; |
2028 |
base[2]= Cnil; |
base[2]= Cnil; |
2029 |
V139= Cnil; |
V140= Cnil; |
2030 |
base[3]= base[0]; |
base[3]= base[0]; |
2031 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2032 |
Lspecial_form_p(); |
Lspecial_form_p(); |
2033 |
vs_top=sup; |
vs_top=sup; |
2034 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2035 |
goto T766;}{object V140; |
goto T766;}{object V141; |
2036 |
V140= (*(LnkLI191))(base[0],VV[105]); |
V141= (*(LnkLI191))(base[0],VV[105]); |
2037 |
if(V140==Cnil)goto T770; |
if(V141==Cnil)goto T770; |
2038 |
base[3]= V140; |
base[3]= V141; |
2039 |
goto T769; |
goto T769; |
2040 |
goto T770; |
goto T770; |
2041 |
T770:;} |
T770:;} |
2066 |
Lmacro_function(); |
Lmacro_function(); |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2069 |
goto T778;}{object V141; |
goto T778;}{object V142; |
2070 |
V141= (*(LnkLI191))(base[0],VV[105]); |
V142= (*(LnkLI191))(base[0],VV[105]); |
2071 |
if(V141==Cnil)goto T782; |
if(V142==Cnil)goto T782; |
2072 |
base[3]= V141; |
base[3]= V142; |
2073 |
goto T781; |
goto T781; |
2074 |
goto T782; |
goto T782; |
2075 |
T782:;} |
T782:;} |
2088 |
Lfboundp(); |
Lfboundp(); |
2089 |
vs_top=sup; |
vs_top=sup; |
2090 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2091 |
goto T786;}{object V142; |
goto T786;}{object V143; |
2092 |
V142= (*(LnkLI191))(base[0],VV[105]); |
V143= (*(LnkLI191))(base[0],VV[105]); |
2093 |
if(V142==Cnil)goto T790; |
if(V143==Cnil)goto T790; |
2094 |
base[3]= V142; |
base[3]= V143; |
2095 |
goto T789; |
goto T789; |
2096 |
goto T790; |
goto T790; |
2097 |
T790:;} |
T790:;} |
2099 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2100 |
Lsymbol_function(); |
Lsymbol_function(); |
2101 |
vs_top=sup; |
vs_top=sup; |
2102 |
V139= vs_base[0]; |
V140= vs_base[0]; |
2103 |
if(!(type_of((V139))==t_cons)){ |
if(!(type_of((V140))==t_cons)){ |
2104 |
goto T793;} |
goto T793;} |
2105 |
{object V143= car((V139)); |
{object V144= car((V140)); |
2106 |
if((V143!= VV[173]))goto T797; |
if((V144!= VV[173]))goto T797; |
2107 |
base[4]= Cnil; |
base[4]= Cnil; |
2108 |
base[5]= VV[111]; |
base[5]= VV[111]; |
2109 |
base[6]= cadr((V139)); |
base[6]= cadr((V140)); |
2110 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2111 |
Lformat(); |
Lformat(); |
2112 |
vs_top=sup; |
vs_top=sup; |
2114 |
goto T789; |
goto T789; |
2115 |
goto T797; |
goto T797; |
2116 |
T797:; |
T797:; |
2117 |
if((V143!= VV[174]))goto T801; |
if((V144!= VV[174]))goto T801; |
2118 |
base[4]= Cnil; |
base[4]= Cnil; |
2119 |
base[5]= VV[112]; |
base[5]= VV[112]; |
2120 |
base[6]= caddr((V139)); |
base[6]= caddr((V140)); |
2121 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2122 |
Lformat(); |
Lformat(); |
2123 |
vs_top=sup; |
vs_top=sup; |
2125 |
goto T789; |
goto T789; |
2126 |
goto T801; |
goto T801; |
2127 |
T801:; |
T801:; |
2128 |
if((V143!= VV[175]))goto T805; |
if((V144!= VV[175]))goto T805; |
2129 |
base[4]= Cnil; |
base[4]= Cnil; |
2130 |
base[5]= VV[113]; |
base[5]= VV[113]; |
2131 |
base[6]= car(cddddr((V139))); |
base[6]= car(cddddr((V140))); |
2132 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2133 |
Lformat(); |
Lformat(); |
2134 |
vs_top=sup; |
vs_top=sup; |
2136 |
goto T789; |
goto T789; |
2137 |
goto T805; |
goto T805; |
2138 |
T805:; |
T805:; |
2139 |
if((V143!= VV[176]))goto T809; |
if((V144!= VV[176]))goto T809; |
2140 |
base[4]= Cnil; |
base[4]= Cnil; |
2141 |
base[5]= VV[114]; |
base[5]= VV[114]; |
2142 |
base[6]= cadr(cddddr((V139))); |
base[6]= cadr(cddddr((V140))); |
2143 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2144 |
Lformat(); |
Lformat(); |
2145 |
vs_top=sup; |
vs_top=sup; |
2161 |
goto T764; |
goto T764; |
2162 |
goto T786; |
goto T786; |
2163 |
T786:; |
T786:; |
2164 |
V139= (*(LnkLI191))(base[0],VV[105]); |
V140= (*(LnkLI191))(base[0],VV[105]); |
2165 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2166 |
goto T764;} |
goto T764;} |
2167 |
base[3]= (V139); |
base[3]= (V140); |
2168 |
base[4]= VV[118]; |
base[4]= VV[118]; |
2169 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2170 |
L20(base); |
L20(base); |
2181 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2182 |
Lsymbol_package(); |
Lsymbol_package(); |
2183 |
vs_top=sup; |
vs_top=sup; |
2184 |
V144= vs_base[0]; |
V145= vs_base[0]; |
2185 |
base[3]= VV[119]; |
base[3]= VV[119]; |
2186 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2187 |
Lfind_package(); |
Lfind_package(); |
2188 |
vs_top=sup; |
vs_top=sup; |
2189 |
V145= vs_base[0]; |
V146= vs_base[0]; |
2190 |
if(!((V144)==(V145))){ |
if(!((V145)==(V146))){ |
2191 |
goto T824;} |
goto T824;} |
2192 |
if(((*(LnkLI191))(base[0],VV[120]))==Cnil){ |
if(((*(LnkLI191))(base[0],VV[120]))==Cnil){ |
2193 |
goto T819;} |
goto T819;} |
2194 |
goto T824; |
goto T824; |
2195 |
T824:;{object V146; |
T824:;{object V147; |
2196 |
V146= (*(LnkLI191))(base[0],VV[120]); |
V147= (*(LnkLI191))(base[0],VV[120]); |
2197 |
if(V146==Cnil)goto T833; |
if(V147==Cnil)goto T833; |
2198 |
base[3]= V146; |
base[3]= V147; |
2199 |
goto T832; |
goto T832; |
2200 |
goto T833; |
goto T833; |
2201 |
T833:;} |
T833:;} |
2214 |
siLspecialp(); |
siLspecialp(); |
2215 |
vs_top=sup; |
vs_top=sup; |
2216 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2217 |
goto T837;}{object V147; |
goto T837;}{object V148; |
2218 |
V147= (*(LnkLI191))(base[0],VV[120]); |
V148= (*(LnkLI191))(base[0],VV[120]); |
2219 |
if(V147==Cnil)goto T841; |
if(V148==Cnil)goto T841; |
2220 |
base[3]= V147; |
base[3]= V148; |
2221 |
goto T840; |
goto T840; |
2222 |
goto T841; |
goto T841; |
2223 |
T841:;} |
T841:;} |
2231 |
goto T819; |
goto T819; |
2232 |
goto T837; |
goto T837; |
2233 |
T837:; |
T837:; |
2234 |
V139= (*(LnkLI191))(base[0],VV[120]); |
V140= (*(LnkLI191))(base[0],VV[120]); |
2235 |
if(((V139))!=Cnil){ |
if(((V140))!=Cnil){ |
2236 |
goto T844;} |
goto T844;} |
2237 |
base[3]= base[0]; |
base[3]= base[0]; |
2238 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2242 |
goto T819;} |
goto T819;} |
2243 |
goto T844; |
goto T844; |
2244 |
T844:; |
T844:; |
2245 |
if((V139)!=Cnil){ |
if((V140)!=Cnil){ |
2246 |
base[3]= (V139); |
base[3]= (V140); |
2247 |
goto T850;} |
goto T850;} |
2248 |
base[3]= VV[125]; |
base[3]= VV[125]; |
2249 |
goto T850; |
goto T850; |
2254 |
vs_top=sup; |
vs_top=sup; |
2255 |
goto T819; |
goto T819; |
2256 |
T819:; |
T819:; |
2257 |
V139= (*(LnkLI191))(base[0],VV[127]); |
V140= (*(LnkLI191))(base[0],VV[127]); |
2258 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2259 |
goto T854;} |
goto T854;} |
2260 |
base[3]= (V139); |
base[3]= (V140); |
2261 |
base[4]= VV[128]; |
base[4]= VV[128]; |
2262 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2263 |
L20(base); |
L20(base); |
2265 |
goto T852; |
goto T852; |
2266 |
goto T854; |
goto T854; |
2267 |
T854:; |
T854:; |
2268 |
V139= get(base[0],VV[129],Cnil); |
V140= get(base[0],VV[129],Cnil); |
2269 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2270 |
goto T852;} |
goto T852;} |
2271 |
vs_base=vs_top; |
vs_base=vs_top; |
2272 |
L21(base); |
L21(base); |
2275 |
bds_bind(VV[130],base[3]); |
bds_bind(VV[130],base[3]); |
2276 |
base[5]= Cnil; |
base[5]= Cnil; |
2277 |
base[6]= VV[131]; |
base[6]= VV[131]; |
2278 |
base[7]= (V139); |
base[7]= (V140); |
2279 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2280 |
Lformat(); |
Lformat(); |
2281 |
vs_top=sup; |
vs_top=sup; |
2287 |
bds_unwind1; |
bds_unwind1; |
2288 |
goto T852; |
goto T852; |
2289 |
T852:; |
T852:; |
2290 |
V139= (*(LnkLI191))(base[0],VV[133]); |
V140= (*(LnkLI191))(base[0],VV[133]); |
2291 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2292 |
goto T870;} |
goto T870;} |
2293 |
base[3]= (V139); |
base[3]= (V140); |
2294 |
base[4]= VV[134]; |
base[4]= VV[134]; |
2295 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2296 |
L20(base); |
L20(base); |
2298 |
goto T868; |
goto T868; |
2299 |
goto T870; |
goto T870; |
2300 |
T870:; |
T870:; |
2301 |
V139= get(base[0],VV[135],Cnil); |
V140= get(base[0],VV[135],Cnil); |
2302 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2303 |
goto T868;} |
goto T868;} |
2304 |
base[4]= Cnil; |
base[4]= Cnil; |
2305 |
base[5]= VV[136]; |
base[5]= VV[136]; |
2306 |
base[6]= (V139); |
base[6]= (V140); |
2307 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2308 |
Lformat(); |
Lformat(); |
2309 |
vs_top=sup; |
vs_top=sup; |
2314 |
vs_top=sup; |
vs_top=sup; |
2315 |
goto T868; |
goto T868; |
2316 |
T868:; |
T868:; |
2317 |
V139= (*(LnkLI191))(base[0],VV[35]); |
V140= (*(LnkLI191))(base[0],VV[35]); |
2318 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2319 |
goto T884;} |
goto T884;} |
2320 |
base[3]= (V139); |
base[3]= (V140); |
2321 |
base[4]= VV[138]; |
base[4]= VV[138]; |
2322 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2323 |
L20(base); |
L20(base); |
2325 |
goto T763; |
goto T763; |
2326 |
goto T884; |
goto T884; |
2327 |
T884:; |
T884:; |
2328 |
V139= get(base[0],VV[139],Cnil); |
V140= get(base[0],VV[139],Cnil); |
2329 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2330 |
goto T890;} |
goto T890;} |
2331 |
vs_base=vs_top; |
vs_base=vs_top; |
2332 |
L21(base); |
L21(base); |
2335 |
bds_bind(VV[130],base[3]); |
bds_bind(VV[130],base[3]); |
2336 |
base[5]= Cnil; |
base[5]= Cnil; |
2337 |
base[6]= VV[140]; |
base[6]= VV[140]; |
2338 |
V148= get(base[0],VV[139],Cnil); |
V149= get(base[0],VV[139],Cnil); |
2339 |
base[7]= list(3,VV[141],base[0],V148); |
base[7]= list(3,VV[141],base[0],V149); |
2340 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2341 |
Lformat(); |
Lformat(); |
2342 |
vs_top=sup; |
vs_top=sup; |
2349 |
goto T763; |
goto T763; |
2350 |
goto T890; |
goto T890; |
2351 |
T890:; |
T890:; |
2352 |
V139= get(base[0],VV[143],Cnil); |
V140= get(base[0],VV[143],Cnil); |
2353 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2354 |
goto T901;} |
goto T901;} |
2355 |
vs_base=vs_top; |
vs_base=vs_top; |
2356 |
L21(base); |
L21(base); |
2359 |
bds_bind(VV[130],base[3]); |
bds_bind(VV[130],base[3]); |
2360 |
base[5]= Cnil; |
base[5]= Cnil; |
2361 |
base[6]= VV[144]; |
base[6]= VV[144]; |
2362 |
V149= get(base[0],VV[143],Cnil); |
V150= get(base[0],VV[143],Cnil); |
2363 |
base[7]= listA(3,VV[141],base[0],V149); |
base[7]= listA(3,VV[141],base[0],V150); |
2364 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2365 |
Lformat(); |
Lformat(); |
2366 |
vs_top=sup; |
vs_top=sup; |
2373 |
goto T763; |
goto T763; |
2374 |
goto T901; |
goto T901; |
2375 |
T901:; |
T901:; |
2376 |
V139= get(base[0],VV[146],Cnil); |
V140= get(base[0],VV[146],Cnil); |
2377 |
if(((V139))==Cnil){ |
if(((V140))==Cnil){ |
2378 |
goto T763;} |
goto T763;} |
2379 |
vs_base=vs_top; |
vs_base=vs_top; |
2380 |
L21(base); |
L21(base); |
2383 |
bds_bind(VV[130],base[3]); |
bds_bind(VV[130],base[3]); |
2384 |
base[5]= Cnil; |
base[5]= Cnil; |
2385 |
base[6]= VV[147]; |
base[6]= VV[147]; |
2386 |
if(!(type_of((V139))==t_cons)){ |
if(!(type_of((V140))==t_cons)){ |
2387 |
goto T920;} |
goto T920;} |
2388 |
{object V150= car((V139)); |
{object V151= car((V140)); |
2389 |
if((V150!= VV[173]))goto T922; |
if((V151!= VV[173]))goto T922; |
2390 |
base[7]= make_cons(VV[148],cdr((V139))); |
base[7]= make_cons(VV[148],cdr((V140))); |
2391 |
goto T918; |
goto T918; |
2392 |
goto T922; |
goto T922; |
2393 |
T922:; |
T922:; |
2394 |
if((V150!= VV[174]))goto T923; |
if((V151!= VV[174]))goto T923; |
2395 |
base[7]= make_cons(VV[148],cddr((V139))); |
base[7]= make_cons(VV[148],cddr((V140))); |
2396 |
goto T918; |
goto T918; |
2397 |
goto T923; |
goto T923; |
2398 |
T923:; |
T923:; |
2399 |
if((V150!= VV[175]))goto T924; |
if((V151!= VV[175]))goto T924; |
2400 |
base[7]= make_cons(VV[148],cddddr((V139))); |
base[7]= make_cons(VV[148],cddddr((V140))); |
2401 |
goto T918; |
goto T918; |
2402 |
goto T924; |
goto T924; |
2403 |
T924:; |
T924:; |
2404 |
if((V150!= VV[176]))goto T925; |
if((V151!= VV[176]))goto T925; |
2405 |
base[7]= make_cons(VV[148],cdr(cddddr((V139)))); |
base[7]= make_cons(VV[148],cdr(cddddr((V140)))); |
2406 |
goto T918; |
goto T918; |
2407 |
goto T925; |
goto T925; |
2408 |
T925:; |
T925:; |
2428 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2429 |
(void) (*Lnk192)(); |
(void) (*Lnk192)(); |
2430 |
vs_top=sup; |
vs_top=sup; |
2431 |
if(((V138))==Cnil){ |
if(((V139))==Cnil){ |
2432 |
goto T930;} |
goto T930;} |
2433 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2434 |
return; |
return; |
2463 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2464 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
2465 |
vs_reserve(VM21); |
vs_reserve(VM21); |
2466 |
{object V151; |
{object V152; |
2467 |
object V152; |
object V153; |
2468 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2469 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2470 |
V151=(base[0]); |
V152=(base[0]); |
2471 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2472 |
if(vs_base>=vs_top){vs_top=sup;goto T941;} |
if(vs_base>=vs_top){vs_top=sup;goto T941;} |
2473 |
V152=(base[1]); |
V153=(base[1]); |
2474 |
vs_top=sup; |
vs_top=sup; |
2475 |
goto T942; |
goto T942; |
2476 |
goto T941; |
goto T941; |
2477 |
T941:; |
T941:; |
2478 |
V152= VV[155]; |
V153= VV[155]; |
2479 |
goto T942; |
goto T942; |
2480 |
T942:; |
T942:; |
2481 |
{register object V153; |
{register object V154; |
2482 |
V153= Cnil; |
V154= Cnil; |
2483 |
V151= coerce_to_string((V151)); |
V152= coerce_to_string((V152)); |
2484 |
if(((V152))==Cnil){ |
if(((V153))==Cnil){ |
2485 |
goto T949;} |
goto T949;} |
2486 |
{object V154; |
{object V155; |
|
register object V155; |
|
2487 |
register object V156; |
register object V156; |
2488 |
base[2]= V152; |
register object V157; |
2489 |
|
base[2]= V153; |
2490 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2491 |
Lpackagep(); |
Lpackagep(); |
2492 |
vs_top=sup; |
vs_top=sup; |
2493 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2494 |
goto T953;} |
goto T953;} |
2495 |
V154= V152; |
V155= V153; |
2496 |
goto T951; |
goto T951; |
2497 |
goto T953; |
goto T953; |
2498 |
T953:; |
T953:; |
2499 |
base[2]= coerce_to_string(V152); |
base[2]= coerce_to_string(V153); |
2500 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2501 |
Lfind_package(); |
Lfind_package(); |
2502 |
vs_top=sup; |
vs_top=sup; |
2503 |
V154= vs_base[0]; |
V155= vs_base[0]; |
2504 |
goto T951; |
goto T951; |
2505 |
T951:; |
T951:; |
|
V155= Cnil; |
|
2506 |
V156= Cnil; |
V156= Cnil; |
2507 |
{long V158; |
V157= Cnil; |
2508 |
long V159; |
{long V159; |
2509 |
base[2]= (V154); |
long V160; |
2510 |
|
base[2]= (V155); |
2511 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2512 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
2513 |
if(vs_base>=vs_top){vs_top=sup;goto T959;} |
if(vs_base>=vs_top){vs_top=sup;goto T959;} |
2514 |
V158= fix(vs_base[0]); |
V159= fix(vs_base[0]); |
2515 |
vs_base++; |
vs_base++; |
2516 |
if(vs_base>=vs_top){vs_top=sup;goto T960;} |
if(vs_base>=vs_top){vs_top=sup;goto T960;} |
2517 |
V159= fix(vs_base[0]); |
V160= fix(vs_base[0]); |
2518 |
vs_top=sup; |
vs_top=sup; |
2519 |
goto T961; |
goto T961; |
2520 |
goto T959; |
goto T959; |
2521 |
T959:; |
T959:; |
2522 |
V158= fix(Cnil); |
V159= fix(Cnil); |
2523 |
goto T960; |
goto T960; |
2524 |
T960:; |
T960:; |
2525 |
V159= fix(Cnil); |
V160= fix(Cnil); |
2526 |
goto T961; |
goto T961; |
2527 |
T961:; |
T961:; |
2528 |
{object V160; |
{object V161; |
2529 |
object V161; |
object V162; |
2530 |
V162 = make_fixnum(V159); |
V163 = make_fixnum(V160); |
2531 |
V163 = make_fixnum(V158); |
V164 = make_fixnum(V159); |
2532 |
V160= number_plus(V162,V163); |
V161= number_plus(V163,V164); |
2533 |
V161= small_fixnum(0); |
V162= small_fixnum(0); |
2534 |
goto T965; |
goto T965; |
2535 |
T965:; |
T965:; |
2536 |
if(!(number_compare((V161),(V160))>=0)){ |
if(!(number_compare((V162),(V161))>=0)){ |
2537 |
goto T966;} |
goto T966;} |
2538 |
V155= Cnil; |
V156= Cnil; |
2539 |
goto T947; |
goto T947; |
2540 |
goto T966; |
goto T966; |
2541 |
T966:; |
T966:; |
2542 |
V164 = make_fixnum(V159); |
V165 = make_fixnum(V160); |
2543 |
if(!(number_compare((V161),V164)<0)){ |
if(!(number_compare((V162),V165)<0)){ |
2544 |
goto T977;} |
goto T977;} |
2545 |
base[3]= (V154); |
base[3]= (V155); |
2546 |
base[4]= (V161); |
base[4]= (V162); |
2547 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2548 |
siLpackage_internal(); |
siLpackage_internal(); |
2549 |
vs_top=sup; |
vs_top=sup; |
2550 |
V156= vs_base[0]; |
V157= vs_base[0]; |
2551 |
goto T975; |
goto T975; |
2552 |
goto T977; |
goto T977; |
2553 |
T977:; |
T977:; |
2554 |
base[3]= (V154); |
base[3]= (V155); |
2555 |
V165 = make_fixnum(V159); |
V166 = make_fixnum(V160); |
2556 |
base[4]= number_minus((V161),V165); |
base[4]= number_minus((V162),V166); |
2557 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2558 |
siLpackage_external(); |
siLpackage_external(); |
2559 |
vs_top=sup; |
vs_top=sup; |
2560 |
V156= vs_base[0]; |
V157= vs_base[0]; |
2561 |
goto T975; |
goto T975; |
2562 |
T975:; |
T975:; |
2563 |
goto T973; |
goto T973; |
2564 |
T973:; |
T973:; |
2565 |
if(((V156))!=Cnil){ |
if(((V157))!=Cnil){ |
2566 |
goto T983;} |
goto T983;} |
2567 |
goto T974; |
goto T974; |
2568 |
goto T983; |
goto T983; |
2569 |
T983:; |
T983:; |
2570 |
V155= car((V156)); |
V156= car((V157)); |
2571 |
V166= coerce_to_string((V155)); |
V167= coerce_to_string((V156)); |
2572 |
if(((*(LnkLI194))((V151),/* INLINE-ARGS */V166))==Cnil){ |
if(((*(LnkLI194))((V152),/* INLINE-ARGS */V167))==Cnil){ |
2573 |
goto T988;}{object V167; |
goto T988;}{object V168; |
2574 |
base[3]= (V155); |
base[3]= (V156); |
2575 |
base[4]= Ct; |
base[4]= Ct; |
2576 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2577 |
(void) (*Lnk163)(); |
(void) (*Lnk163)(); |
2578 |
vs_top=sup; |
vs_top=sup; |
2579 |
V167= vs_base[0]; |
V168= vs_base[0]; |
2580 |
if(V167==Cnil)goto T992; |
if(V168==Cnil)goto T992; |
2581 |
V153= V167; |
V154= V168; |
2582 |
goto T991; |
goto T991; |
2583 |
goto T992; |
goto T992; |
2584 |
T992:;} |
T992:;} |
2586 |
T991:; |
T991:; |
2587 |
goto T988; |
goto T988; |
2588 |
T988:; |
T988:; |
2589 |
V156= cdr((V156)); |
V157= cdr((V157)); |
2590 |
goto T973; |
goto T973; |
2591 |
goto T974; |
goto T974; |
2592 |
T974:; |
T974:; |
2593 |
goto T971; |
goto T971; |
2594 |
goto T971; |
goto T971; |
2595 |
T971:; |
T971:; |
2596 |
V161= one_plus((V161)); |
V162= one_plus((V162)); |
2597 |
goto T965;}}} |
goto T965;}}} |
2598 |
goto T949; |
goto T949; |
2599 |
T949:; |
T949:; |
2600 |
{object V168; |
{object V169; |
2601 |
object V169; |
object V170; |
2602 |
vs_base=vs_top; |
vs_base=vs_top; |
2603 |
Llist_all_packages(); |
Llist_all_packages(); |
2604 |
vs_top=sup; |
vs_top=sup; |
2605 |
V168= vs_base[0]; |
V169= vs_base[0]; |
2606 |
V169= car((V168)); |
V170= car((V169)); |
2607 |
goto T1004; |
goto T1004; |
2608 |
T1004:; |
T1004:; |
2609 |
if(!(endp_prop((V168)))){ |
if(!(endp_prop((V169)))){ |
2610 |
goto T1005;} |
goto T1005;} |
2611 |
goto T947; |
goto T947; |
2612 |
goto T1005; |
goto T1005; |
2613 |
T1005:; |
T1005:; |
2614 |
{object V170; |
{object V171; |
|
register object V171; |
|
2615 |
register object V172; |
register object V172; |
2616 |
base[4]= V169; |
register object V173; |
2617 |
|
base[4]= V170; |
2618 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2619 |
Lpackagep(); |
Lpackagep(); |
2620 |
vs_top=sup; |
vs_top=sup; |
2621 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2622 |
goto T1012;} |
goto T1012;} |
2623 |
V170= V169; |
V171= V170; |
2624 |
goto T1010; |
goto T1010; |
2625 |
goto T1012; |
goto T1012; |
2626 |
T1012:; |
T1012:; |
2627 |
base[4]= coerce_to_string(V169); |
base[4]= coerce_to_string(V170); |
2628 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2629 |
Lfind_package(); |
Lfind_package(); |
2630 |
vs_top=sup; |
vs_top=sup; |
2631 |
V170= vs_base[0]; |
V171= vs_base[0]; |
2632 |
goto T1010; |
goto T1010; |
2633 |
T1010:; |
T1010:; |
|
V171= Cnil; |
|
2634 |
V172= Cnil; |
V172= Cnil; |
2635 |
{long V174; |
V173= Cnil; |
2636 |
long V175; |
{long V175; |
2637 |
base[4]= (V170); |
long V176; |
2638 |
|
base[4]= (V171); |
2639 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2640 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
2641 |
if(vs_base>=vs_top){vs_top=sup;goto T1018;} |
if(vs_base>=vs_top){vs_top=sup;goto T1018;} |
2642 |
V174= fix(vs_base[0]); |
V175= fix(vs_base[0]); |
2643 |
vs_base++; |
vs_base++; |
2644 |
if(vs_base>=vs_top){vs_top=sup;goto T1019;} |
if(vs_base>=vs_top){vs_top=sup;goto T1019;} |
2645 |
V175= fix(vs_base[0]); |
V176= fix(vs_base[0]); |
2646 |
vs_top=sup; |
vs_top=sup; |
2647 |
goto T1020; |
goto T1020; |
2648 |
goto T1018; |
goto T1018; |
2649 |
T1018:; |
T1018:; |
2650 |
V174= fix(Cnil); |
V175= fix(Cnil); |
2651 |
goto T1019; |
goto T1019; |
2652 |
T1019:; |
T1019:; |
2653 |
V175= fix(Cnil); |
V176= fix(Cnil); |
2654 |
goto T1020; |
goto T1020; |
2655 |
T1020:; |
T1020:; |
2656 |
{object V176; |
{object V177; |
2657 |
register object V177; |
register object V178; |
2658 |
V178 = make_fixnum(V175); |
V179 = make_fixnum(V176); |
2659 |
V179 = make_fixnum(V174); |
V180 = make_fixnum(V175); |
2660 |
V176= number_plus(V178,V179); |
V177= number_plus(V179,V180); |
2661 |
V177= small_fixnum(0); |
V178= small_fixnum(0); |
2662 |
goto T1024; |
goto T1024; |
2663 |
T1024:; |
T1024:; |
2664 |
if(!(number_compare((V177),(V176))>=0)){ |
if(!(number_compare((V178),(V177))>=0)){ |
2665 |
goto T1025;} |
goto T1025;} |
2666 |
V171= Cnil; |
V172= Cnil; |
2667 |
goto T1009; |
goto T1009; |
2668 |
goto T1025; |
goto T1025; |
2669 |
T1025:; |
T1025:; |
2670 |
V180 = make_fixnum(V175); |
V181 = make_fixnum(V176); |
2671 |
if(!(number_compare((V177),V180)<0)){ |
if(!(number_compare((V178),V181)<0)){ |
2672 |
goto T1036;} |
goto T1036;} |
2673 |
base[5]= (V170); |
base[5]= (V171); |
2674 |
base[6]= (V177); |
base[6]= (V178); |
2675 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2676 |
siLpackage_internal(); |
siLpackage_internal(); |
2677 |
vs_top=sup; |
vs_top=sup; |
2678 |
V172= vs_base[0]; |
V173= vs_base[0]; |
2679 |
goto T1034; |
goto T1034; |
2680 |
goto T1036; |
goto T1036; |
2681 |
T1036:; |
T1036:; |
2682 |
base[5]= (V170); |
base[5]= (V171); |
2683 |
V181 = make_fixnum(V175); |
V182 = make_fixnum(V176); |
2684 |
base[6]= number_minus((V177),V181); |
base[6]= number_minus((V178),V182); |
2685 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2686 |
siLpackage_external(); |
siLpackage_external(); |
2687 |
vs_top=sup; |
vs_top=sup; |
2688 |
V172= vs_base[0]; |
V173= vs_base[0]; |
2689 |
goto T1034; |
goto T1034; |
2690 |
T1034:; |
T1034:; |
2691 |
goto T1032; |
goto T1032; |
2692 |
T1032:; |
T1032:; |
2693 |
if(((V172))!=Cnil){ |
if(((V173))!=Cnil){ |
2694 |
goto T1042;} |
goto T1042;} |
2695 |
goto T1033; |
goto T1033; |
2696 |
goto T1042; |
goto T1042; |
2697 |
T1042:; |
T1042:; |
2698 |
V171= car((V172)); |
V172= car((V173)); |
2699 |
V182= coerce_to_string((V171)); |
V183= coerce_to_string((V172)); |
2700 |
if(((*(LnkLI194))((V151),/* INLINE-ARGS */V182))==Cnil){ |
if(((*(LnkLI194))((V152),/* INLINE-ARGS */V183))==Cnil){ |
2701 |
goto T1047;}{object V183; |
goto T1047;}{object V184; |
2702 |
base[5]= (V171); |
base[5]= (V172); |
2703 |
base[6]= Ct; |
base[6]= Ct; |
2704 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2705 |
(void) (*Lnk163)(); |
(void) (*Lnk163)(); |
2706 |
vs_top=sup; |
vs_top=sup; |
2707 |
V183= vs_base[0]; |
V184= vs_base[0]; |
2708 |
if(V183==Cnil)goto T1051; |
if(V184==Cnil)goto T1051; |
2709 |
V153= V183; |
V154= V184; |
2710 |
goto T1050; |
goto T1050; |
2711 |
goto T1051; |
goto T1051; |
2712 |
T1051:;} |
T1051:;} |
2714 |
T1050:; |
T1050:; |
2715 |
goto T1047; |
goto T1047; |
2716 |
T1047:; |
T1047:; |
2717 |
V172= cdr((V172)); |
V173= cdr((V173)); |
2718 |
goto T1032; |
goto T1032; |
2719 |
goto T1033; |
goto T1033; |
2720 |
T1033:; |
T1033:; |
2721 |
goto T1030; |
goto T1030; |
2722 |
goto T1030; |
goto T1030; |
2723 |
T1030:; |
T1030:; |
2724 |
V177= one_plus((V177)); |
V178= one_plus((V178)); |
2725 |
goto T1024;}}} |
goto T1024;}}} |
2726 |
goto T1009; |
goto T1009; |
2727 |
T1009:; |
T1009:; |
2728 |
V168= cdr((V168)); |
V169= cdr((V169)); |
2729 |
V169= car((V168)); |
V170= car((V169)); |
2730 |
goto T1004;} |
goto T1004;} |
2731 |
goto T947; |
goto T947; |
2732 |
T947:; |
T947:; |
2733 |
if(((V153))==Cnil){ |
if(((V154))==Cnil){ |
2734 |
goto T1067;} |
goto T1067;} |
2735 |
base[2]= Ct; |
base[2]= Ct; |
2736 |
base[3]= VV[156]; |
base[3]= VV[156]; |
2742 |
T1067:; |
T1067:; |
2743 |
base[2]= Ct; |
base[2]= Ct; |
2744 |
base[3]= VV[157]; |
base[3]= VV[157]; |
2745 |
base[4]= (V151); |
base[4]= (V152); |
2746 |
base[5]= (V152); |
base[5]= (V153); |
2747 |
if((V152)==Cnil){ |
if((V153)==Cnil){ |
2748 |
base[6]= Cnil; |
base[6]= Cnil; |
2749 |
goto T1075;} |
goto T1075;} |
2750 |
base[8]= V152; |
base[8]= V153; |
2751 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2752 |
Lpackagep(); |
Lpackagep(); |
2753 |
vs_top=sup; |
vs_top=sup; |
2754 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2755 |
goto T1078;} |
goto T1078;} |
2756 |
base[7]= V152; |
base[7]= V153; |
2757 |
goto T1076; |
goto T1076; |
2758 |
goto T1078; |
goto T1078; |
2759 |
T1078:; |
T1078:; |
2760 |
base[8]= coerce_to_string(V152); |
base[8]= coerce_to_string(V153); |
2761 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2762 |
Lfind_package(); |
Lfind_package(); |
2763 |
vs_top=sup; |
vs_top=sup; |
2795 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2796 |
Lsymbol_package(); |
Lsymbol_package(); |
2797 |
vs_top=sup; |
vs_top=sup; |
2798 |
V185= vs_base[0]; |
V186= vs_base[0]; |
2799 |
base[0]= VV[151]; |
base[0]= VV[151]; |
2800 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2801 |
Lfind_package(); |
Lfind_package(); |
2802 |
vs_top=sup; |
vs_top=sup; |
2803 |
V186= vs_base[0]; |
V187= vs_base[0]; |
2804 |
if(!((V185)==(V186))){ |
if(!((V186)==(V187))){ |
2805 |
goto T1083;} |
goto T1083;} |
2806 |
base[0]= VV[152]; |
base[0]= VV[152]; |
2807 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2820 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2821 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
2822 |
vs_reserve(VM23); |
vs_reserve(VM23); |
2823 |
{object V187; |
{object V188; |
2824 |
object V188; |
object V189; |
2825 |
check_arg(2); |
check_arg(2); |
2826 |
V187=(base[0]); |
V188=(base[0]); |
2827 |
V188=(base[1]); |
V189=(base[1]); |
2828 |
vs_top=sup; |
vs_top=sup; |
2829 |
goto TTL; |
goto TTL; |
2830 |
TTL:; |
TTL:; |
2832 |
base[2]= Ct; |
base[2]= Ct; |
2833 |
base[3]= VV[150]; |
base[3]= VV[150]; |
2834 |
base[4]= base0[0]; |
base[4]= base0[0]; |
2835 |
base[5]= (V188); |
base[5]= (V189); |
2836 |
base[6]= (V187); |
base[6]= (V188); |
2837 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
2838 |
Lformat(); |
Lformat(); |
2839 |
return; |
return; |