2000 |
V416= Cnil; |
V416= Cnil; |
2001 |
goto T791; |
goto T791; |
2002 |
T791:; |
T791:; |
2003 |
{object V421; |
V420 = (V411); |
2004 |
V421= ((V414))->v.v_self[1]; |
V421 = (V412); |
2005 |
if(!(type_of(V421)==t_fixnum)){ |
{object V423; |
2006 |
|
V423= ((V414))->v.v_self[1]; |
2007 |
|
if(!(type_of(V423)==t_fixnum)){ |
2008 |
goto T810;} |
goto T810;} |
2009 |
if(!((((((V416))->v.v_self[fix((V421))])==(VV[14])?Ct:Cnil))==Cnil)){ |
if(!((((((V416))->v.v_self[fix((V423))])==(VV[14])?Ct:Cnil))==Cnil)){ |
2010 |
goto T806;} |
goto T806;} |
2011 |
goto T807; |
goto T807; |
2012 |
goto T810; |
goto T810; |
2024 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2025 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
2026 |
vs_top=sup; |
vs_top=sup; |
2027 |
V423= vs_base[0]; |
V425= vs_base[0]; |
2028 |
V424 = CMPmake_fixnum((long)length(V423)); |
V426 = CMPmake_fixnum((long)length(V425)); |
2029 |
V420= make_cons(V424,Cnil); |
V422= make_cons(V426,Cnil); |
2030 |
goto T804; |
goto T804; |
2031 |
goto T806; |
goto T806; |
2032 |
T806:; |
T806:; |
2033 |
V420= VV[68]; |
V422= VV[68]; |
2034 |
goto T804; |
goto T804; |
2035 |
T804:; |
T804:; |
2036 |
{object V425 = (VFUN_NARGS=3,(*(LnkLI212))((V411),(V412),V420)); |
{object V427 = (VFUN_NARGS=3,(*(LnkLI212))(V420,V421,V422)); |
2037 |
VMR28(V425)}}} |
VMR28(V427)}}} |
2038 |
base[0]=base[0]; |
base[0]=base[0]; |
2039 |
return Cnil; |
return Cnil; |
2040 |
} |
} |
2044 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2045 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
2046 |
vs_check; |
vs_check; |
2047 |
{object V426; |
{object V428; |
|
object V427; |
|
|
object V428; |
|
2048 |
object V429; |
object V429; |
2049 |
|
object V430; |
2050 |
|
object V431; |
2051 |
check_arg(5); |
check_arg(5); |
2052 |
V426=(base[0]); |
V428=(base[0]); |
2053 |
V427=(base[1]); |
V429=(base[1]); |
2054 |
V428=(base[3]); |
V430=(base[3]); |
2055 |
V429=(base[4]); |
V431=(base[4]); |
2056 |
vs_top=sup; |
vs_top=sup; |
2057 |
goto TTL; |
goto TTL; |
2058 |
TTL:; |
TTL:; |
2059 |
{register object V430; |
{register object V432; |
|
object V431; |
|
2060 |
object V433; |
object V433; |
2061 |
object V434; |
object V435; |
2062 |
object V436; |
object V436; |
|
object V437; |
|
2063 |
object V438; |
object V438; |
2064 |
object V439; |
object V439; |
2065 |
object V440; |
object V440; |
2066 |
register object V442; |
object V441; |
2067 |
object V443; |
object V442; |
2068 |
|
register object V444; |
2069 |
object V445; |
object V445; |
2070 |
V430= (V429); |
object V447; |
2071 |
V431= (*(LnkLI220))(VV[69],(V430)); |
V432= (V431); |
2072 |
if(!(type_of((V431))==t_cons)){ |
V433= (*(LnkLI220))(VV[69],(V432)); |
2073 |
|
if(!(type_of((V433))==t_cons)){ |
2074 |
goto T822;} |
goto T822;} |
2075 |
V433= CMPcar((V431)); |
V435= CMPcar((V433)); |
2076 |
goto T820; |
goto T820; |
2077 |
goto T822; |
goto T822; |
2078 |
T822:; |
T822:; |
2079 |
V433= Cnil; |
V435= Cnil; |
2080 |
goto T820; |
goto T820; |
2081 |
T820:; |
T820:; |
2082 |
V434= (*(LnkLI220))(VV[52],(V430)); |
V436= (*(LnkLI220))(VV[52],(V432)); |
2083 |
if(!(type_of((V434))==t_cons)){ |
if(!(type_of((V436))==t_cons)){ |
2084 |
goto T827;} |
goto T827;} |
2085 |
V436= CMPcar((V434)); |
V438= CMPcar((V436)); |
2086 |
goto T825; |
goto T825; |
2087 |
goto T827; |
goto T827; |
2088 |
T827:; |
T827:; |
2089 |
V436= Cnil; |
V438= Cnil; |
2090 |
goto T825; |
goto T825; |
2091 |
T825:; |
T825:; |
2092 |
V437= (*(LnkLI239))(VV[70],(V430)); |
V439= (*(LnkLI239))(VV[70],(V432)); |
2093 |
V438= (*(LnkLI239))(VV[71],(V430)); |
V440= (*(LnkLI239))(VV[71],(V432)); |
2094 |
V439= (*(LnkLI239))(VV[56],(V430)); |
V441= (*(LnkLI239))(VV[56],(V432)); |
2095 |
V440= (*(LnkLI220))(VV[72],(V430)); |
V442= (*(LnkLI220))(VV[72],(V432)); |
2096 |
if(!(type_of((V440))==t_cons)){ |
if(!(type_of((V442))==t_cons)){ |
2097 |
goto T835;} |
goto T835;} |
2098 |
V442= CMPcar((V440)); |
V444= CMPcar((V442)); |
2099 |
goto T833; |
goto T833; |
2100 |
goto T835; |
goto T835; |
2101 |
T835:; |
T835:; |
2102 |
V442= Cnil; |
V444= Cnil; |
2103 |
goto T833; |
goto T833; |
2104 |
T833:; |
T833:; |
2105 |
V443= (*(LnkLI220))(VV[73],(V430)); |
V445= (*(LnkLI220))(VV[73],(V432)); |
2106 |
if(!(type_of((V443))==t_cons)){ |
if(!(type_of((V445))==t_cons)){ |
2107 |
goto T840;} |
goto T840;} |
2108 |
V445= CMPcar((V443)); |
V447= CMPcar((V445)); |
2109 |
goto T838; |
goto T838; |
2110 |
goto T840; |
goto T840; |
2111 |
T840:; |
T840:; |
2112 |
V445= Cnil; |
V447= Cnil; |
2113 |
goto T838; |
goto T838; |
2114 |
T838:; |
T838:; |
2115 |
{register object V446; |
{register object V448; |
2116 |
object V447; |
object V449; |
2117 |
V446= CMPcar((V426)); |
V448= CMPcar((V428)); |
2118 |
V447= CMPcdr((V426)); |
V449= CMPcdr((V428)); |
2119 |
{object V448; |
{object V450; |
2120 |
if(type_of(base[2])==t_structure){ |
if(type_of(base[2])==t_structure){ |
2121 |
goto T850;} |
goto T850;} |
2122 |
goto T848; |
goto T848; |
2124 |
T850:; |
T850:; |
2125 |
if(!(((base[2])->str.str_def)==(VV[74]))){ |
if(!(((base[2])->str.str_def)==(VV[74]))){ |
2126 |
goto T848;} |
goto T848;} |
2127 |
V448= STREF(object,base[2],4); |
V450= STREF(object,base[2],4); |
2128 |
goto T846; |
goto T846; |
2129 |
goto T848; |
goto T848; |
2130 |
T848:;{object V450; |
T848:;{object V452; |
2131 |
V450= (VV[13]->s.s_dbind); |
V452= (VV[13]->s.s_dbind); |
2132 |
base[16]= small_fixnum(14); |
base[16]= small_fixnum(14); |
2133 |
base[17]= base[2]; |
base[17]= base[2]; |
2134 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2135 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
2136 |
vs_top=sup; |
vs_top=sup; |
2137 |
V451= vs_base[0]; |
V453= vs_base[0]; |
2138 |
if(!((V450)==(CMPcar(V451)))){ |
if(!((V452)==(CMPcar(V453)))){ |
2139 |
goto T853;}} |
goto T853;}} |
2140 |
V448= CMPcar((base[2])->cc.cc_turbo[12]); |
V450= CMPcar((base[2])->cc.cc_turbo[12]); |
2141 |
goto T846; |
goto T846; |
2142 |
goto T853; |
goto T853; |
2143 |
T853:; |
T853:; |
2144 |
V448= Cnil; |
V450= Cnil; |
2145 |
goto T846; |
goto T846; |
2146 |
T846:; |
T846:; |
2147 |
if((V431)==Cnil){ |
if((V433)==Cnil){ |
2148 |
goto T859;} |
goto T859;} |
2149 |
base[16]= base[2]; |
base[16]= base[2]; |
2150 |
base[17]= (V433); |
base[17]= (V435); |
2151 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2152 |
(void) (*Lnk259)(); |
(void) (*Lnk259)(); |
2153 |
vs_top=sup; |
vs_top=sup; |
2154 |
goto T859; |
goto T859; |
2155 |
T859:; |
T859:; |
2156 |
if((V440)==Cnil){ |
if((V442)==Cnil){ |
2157 |
goto T866;} |
goto T866;} |
2158 |
if(!(type_of((V442))==t_symbol)){ |
if(!(type_of((V444))==t_symbol)){ |
2159 |
goto T868;} |
goto T868;} |
2160 |
V442= (VFUN_NARGS=1,(*(LnkLI260))((V442))); |
V444= (VFUN_NARGS=1,(*(LnkLI260))((V444))); |
2161 |
goto T868; |
goto T868; |
2162 |
T868:; |
T868:; |
2163 |
base[16]= (V442); |
base[16]= (V444); |
2164 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2165 |
(void) (*Lnk237)(Lclptr237); |
(void) (*Lnk237)(Lclptr237); |
2166 |
vs_top=sup; |
vs_top=sup; |
2167 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2168 |
goto T873;} |
goto T873;} |
2169 |
base[17]= (V442); |
base[17]= (V444); |
2170 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
2171 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk261)(Lclptr261); |
2172 |
vs_top=sup; |
vs_top=sup; |
2180 |
goto T873; |
goto T873; |
2181 |
T873:; |
T873:; |
2182 |
base[16]= VV[72]; |
base[16]= VV[72]; |
2183 |
base[17]= (V442); |
base[17]= (V444); |
2184 |
base[18]= VV[76]; |
base[18]= VV[76]; |
2185 |
vs_top=(vs_base=base+16)+3; |
vs_top=(vs_base=base+16)+3; |
2186 |
L33(base); |
L33(base); |
2187 |
vs_top=sup; |
vs_top=sup; |
2188 |
goto T872; |
goto T872; |
2189 |
T872:; |
T872:; |
2190 |
{object V453; |
{object V455; |
2191 |
V453= ((V446))->v.v_self[2]; |
V455= ((V448))->v.v_self[2]; |
2192 |
if(!(type_of(V453)==t_fixnum)){ |
if(!(type_of(V455)==t_fixnum)){ |
2193 |
goto T886;} |
goto T886;} |
2194 |
(void)(((V448))->v.v_self[fix((V453))]= (V442)); |
(void)(((V450))->v.v_self[fix((V455))]= (V444)); |
2195 |
goto T864; |
goto T864; |
2196 |
goto T886; |
goto T886; |
2197 |
T886:; |
T886:; |
2198 |
base[16]= V442; |
base[16]= V444; |
2199 |
base[17]= base[2]; |
base[17]= base[2]; |
2200 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2201 |
(void) (*Lnk263)(Lclptr263); |
(void) (*Lnk263)(Lclptr263); |
2203 |
goto T864;} |
goto T864;} |
2204 |
goto T866; |
goto T866; |
2205 |
T866:; |
T866:; |
2206 |
{object V455; |
{object V457; |
2207 |
{object V456; |
{object V458; |
2208 |
V456= ((V446))->v.v_self[2]; |
V458= ((V448))->v.v_self[2]; |
2209 |
if(!(type_of(V456)==t_fixnum)){ |
if(!(type_of(V458)==t_fixnum)){ |
2210 |
goto T893;} |
goto T893;} |
2211 |
V455= ((((((V448))->v.v_self[fix((V456))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
V457= ((((((V450))->v.v_self[fix((V458))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
2212 |
goto T890; |
goto T890; |
2213 |
goto T893; |
goto T893; |
2214 |
T893:; |
T893:; |
2217 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2218 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
2219 |
vs_top=sup; |
vs_top=sup; |
2220 |
V455= vs_base[0];} |
V457= vs_base[0];} |
2221 |
goto T890; |
goto T890; |
2222 |
T890:; |
T890:; |
2223 |
if(((V455))==Cnil){ |
if(((V457))==Cnil){ |
2224 |
goto T898;} |
goto T898;} |
2225 |
goto T864; |
goto T864; |
2226 |
goto T898; |
goto T898; |
2233 |
vs_top=sup;} |
vs_top=sup;} |
2234 |
goto T864; |
goto T864; |
2235 |
T864:; |
T864:; |
2236 |
if((V443)==Cnil){ |
if((V445)==Cnil){ |
2237 |
goto T904;} |
goto T904;} |
2238 |
base[16]= (V445); |
base[16]= (V447); |
2239 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2240 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk264)(Lclptr264); |
2241 |
vs_top=sup; |
vs_top=sup; |
2242 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2243 |
goto T907;} |
goto T907;} |
2244 |
base[16]= VV[73]; |
base[16]= VV[73]; |
2245 |
base[17]= (V445); |
base[17]= (V447); |
2246 |
base[18]= VV[80]; |
base[18]= VV[80]; |
2247 |
vs_top=(vs_base=base+16)+3; |
vs_top=(vs_base=base+16)+3; |
2248 |
L33(base); |
L33(base); |
2254 |
return; |
return; |
2255 |
goto T904; |
goto T904; |
2256 |
T904:; |
T904:; |
2257 |
{object V458; |
{object V460; |
2258 |
{object V459; |
{object V461; |
2259 |
V459= ((V446))->v.v_self[1]; |
V461= ((V448))->v.v_self[1]; |
2260 |
if(!(type_of(V459)==t_fixnum)){ |
if(!(type_of(V461)==t_fixnum)){ |
2261 |
goto T916;} |
goto T916;} |
2262 |
V458= ((((((V448))->v.v_self[fix((V459))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
V460= ((((((V450))->v.v_self[fix((V461))])==(VV[14])?Ct:Cnil))==Cnil?Ct:Cnil); |
2263 |
goto T913; |
goto T913; |
2264 |
goto T916; |
goto T916; |
2265 |
T916:; |
T916:; |
2268 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
2269 |
(void) (*Lnk226)(); |
(void) (*Lnk226)(); |
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
V458= vs_base[0];} |
V460= vs_base[0];} |
2272 |
goto T913; |
goto T913; |
2273 |
T913:; |
T913:; |
2274 |
if(((V458))==Cnil){ |
if(((V460))==Cnil){ |
2275 |
goto T921;} |
goto T921;} |
2276 |
base[16]= (V458); |
base[16]= (V460); |
2277 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
2278 |
return; |
return; |
2279 |
goto T921; |
goto T921; |
2288 |
} |
} |
2289 |
/* local entry for function (FAST-METHOD REMOVE-NAMED-METHOD (T T)) */ |
/* local entry for function (FAST-METHOD REMOVE-NAMED-METHOD (T T)) */ |
2290 |
|
|
2291 |
static object LI34(V466,V467,V468,V469,V470) |
static object LI34(V468,V469,V470,V471,V472) |
2292 |
|
|
2293 |
object V466;object V467;object V468;object V469;object V470; |
object V468;object V469;object V470;object V471;object V472; |
2294 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
2295 |
goto TTL; |
goto TTL; |
2296 |
TTL:; |
TTL:; |
2297 |
{register object V471; |
{register object V473; |
2298 |
object V472; |
object V474; |
2299 |
V471= (V470); |
V473= (V472); |
2300 |
if(((V471))==Cnil){ |
if(((V473))==Cnil){ |
2301 |
goto T931;} |
goto T931;} |
2302 |
{object V473; |
{object V475; |
2303 |
V473= CMPcar((V471)); |
V475= CMPcar((V473)); |
2304 |
V471= CMPcdr((V471)); |
V473= CMPcdr((V473)); |
2305 |
V472= (V473); |
V474= (V475); |
2306 |
goto T929;} |
goto T929;} |
2307 |
goto T931; |
goto T931; |
2308 |
T931:; |
T931:; |
2309 |
V472= Cnil; |
V474= Cnil; |
2310 |
goto T929; |
goto T929; |
2311 |
T929:; |
T929:; |
2312 |
{register object V474; |
{register object V476; |
2313 |
object V475; |
object V477; |
2314 |
V474= Cnil; |
V476= Cnil; |
2315 |
V475= Cnil; |
V477= Cnil; |
2316 |
base[1]= (V468); |
base[1]= (V470); |
2317 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2318 |
Lfboundp(); |
Lfboundp(); |
2319 |
vs_top=sup; |
vs_top=sup; |
2320 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2321 |
goto T937;} |
goto T937;} |
2322 |
base[2]= (V468); |
base[2]= (V470); |
2323 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2324 |
Lsymbol_function(); |
Lsymbol_function(); |
2325 |
vs_top=sup; |
vs_top=sup; |
2326 |
V474= vs_base[0]; |
V476= vs_base[0]; |
2327 |
base[1]= (V474); |
base[1]= (V476); |
2328 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2329 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk265)(Lclptr265); |
2330 |
vs_top=sup; |
vs_top=sup; |
2333 |
goto T937; |
goto T937; |
2334 |
T937:; |
T937:; |
2335 |
base[1]= VV[85]; |
base[1]= VV[85]; |
2336 |
base[2]= (V468); |
base[2]= (V470); |
2337 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2338 |
Lerror(); |
Lerror(); |
2339 |
vs_top=sup; |
vs_top=sup; |
2340 |
{object V476 = vs_base[0]; |
{object V478 = vs_base[0]; |
2341 |
VMR30(V476)} |
VMR30(V478)} |
2342 |
goto T938; |
goto T938; |
2343 |
T938:; |
T938:; |
2344 |
V477= (*(LnkLI267))((V469)); |
V479 = (V476); |
2345 |
V475= (VFUN_NARGS=4,(*(LnkLI266))((V474),(V472),/* INLINE-ARGS */V477,Cnil)); |
V480 = (V474); |
2346 |
if(((V475))!=Cnil){ |
V481= (*(LnkLI267))((V471)); |
2347 |
|
V477= (VFUN_NARGS=4,(*(LnkLI266))(V479,V480,/* INLINE-ARGS */V481,Cnil)); |
2348 |
|
if(((V477))!=Cnil){ |
2349 |
goto T949;} |
goto T949;} |
2350 |
base[1]= VV[86]; |
base[1]= VV[86]; |
2351 |
base[2]= (V474); |
base[2]= (V476); |
2352 |
base[3]= (V469); |
base[3]= (V471); |
2353 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2354 |
Lerror(); |
Lerror(); |
2355 |
vs_top=sup; |
vs_top=sup; |
2356 |
{object V478 = vs_base[0]; |
{object V482 = vs_base[0]; |
2357 |
VMR30(V478)} |
VMR30(V482)} |
2358 |
goto T949; |
goto T949; |
2359 |
T949:; |
T949:; |
2360 |
base[1]= (V474); |
base[1]= (V476); |
2361 |
base[2]= (V475); |
base[2]= (V477); |
2362 |
{object V479 = simple_symlispcall(VV[268],base+1,2); |
{object V483 = simple_symlispcall(VV[268],base+1,2); |
2363 |
VMR30(V479)}}} |
VMR30(V483)}}} |
2364 |
base[0]=base[0]; |
base[0]=base[0]; |
2365 |
return Cnil; |
return Cnil; |
2366 |
} |
} |
2367 |
/* local entry for function REAL-ADD-NAMED-METHOD */ |
/* local entry for function REAL-ADD-NAMED-METHOD */ |
2368 |
|
|
2369 |
static object LI35(object V483,object V482,object V481,object V480,object first,...) |
static object LI35(object V487,object V486,object V485,object V484,object first,...) |
2370 |
{ |
{ |
2371 |
va_list ap; |
va_list ap; |
2372 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
2373 |
{object V484; |
{object V488; |
2374 |
object V485; |
object V489; |
2375 |
object V486; |
object V490; |
2376 |
object V487; |
object V491; |
2377 |
object V488; |
object V492; |
2378 |
va_start(ap,first); |
va_start(ap,first); |
2379 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
2380 |
V484= V483; |
V488= V487; |
2381 |
V485= V482; |
V489= V486; |
2382 |
V486= V481; |
V490= V485; |
2383 |
V487= V480; |
V491= V484; |
2384 |
narg= narg - 4; |
narg= narg - 4; |
2385 |
V489 = list_vector_new(narg,first,ap); |
V493 = list_vector_new(narg,first,ap); |
2386 |
V488= V489; |
V492= V493; |
2387 |
{object V490; |
{object V494; |
2388 |
object V491; |
object V495; |
2389 |
object V492; |
object V496; |
2390 |
object V493; |
object V497; |
2391 |
base[4]= (V484); |
base[4]= (V488); |
2392 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2393 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
2394 |
vs_top=sup; |
vs_top=sup; |
2395 |
V490= vs_base[0]; |
V494= vs_base[0]; |
2396 |
V491= (*(LnkLI267))((V486)); |
V495= (*(LnkLI267))((V490)); |
2397 |
base[4]= (V484); |
base[4]= (V488); |
2398 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2399 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2400 |
vs_top=sup; |
vs_top=sup; |
2401 |
V492= vs_base[0]; |
V496= vs_base[0]; |
2402 |
base[4]=VV[271]->s.s_gfdef; |
base[4]=VV[271]->s.s_gfdef; |
2403 |
base[5]= (*(LnkLI149))((V492)); |
base[5]= (*(LnkLI149))((V496)); |
2404 |
base[6]= VV[51]; |
base[6]= VV[51]; |
2405 |
base[7]= (V485); |
base[7]= (V489); |
2406 |
base[8]= VV[53]; |
base[8]= VV[53]; |
2407 |
base[9]= (V491); |
base[9]= (V495); |
2408 |
base[10]= VV[52]; |
base[10]= VV[52]; |
2409 |
base[11]= (V487); |
base[11]= (V491); |
2410 |
{object V494; |
{object V498; |
2411 |
V494= (V488); |
V498= (V492); |
2412 |
vs_top=base+12; |
vs_top=base+12; |
2413 |
while(V494!=Cnil) |
while(V498!=Cnil) |
2414 |
{vs_push((V494)->c.c_car);V494=(V494)->c.c_cdr;} |
{vs_push((V498)->c.c_car);V498=(V498)->c.c_cdr;} |
2415 |
vs_base=base+5;} |
vs_base=base+5;} |
2416 |
(void) (*Lnk271)(Lclptr271); |
(void) (*Lnk271)(Lclptr271); |
2417 |
vs_top=sup; |
vs_top=sup; |
2418 |
V493= vs_base[0]; |
V497= vs_base[0]; |
2419 |
base[4]= (V490); |
base[4]= (V494); |
2420 |
base[5]= (V493); |
base[5]= (V497); |
2421 |
{object V495 = simple_symlispcall(VV[272],base+4,2); |
{object V499 = simple_symlispcall(VV[272],base+4,2); |
2422 |
VMR31(V495)}} |
VMR31(V499)}} |
2423 |
va_end(ap); |
va_end(ap); |
2424 |
base[0]=base[0]; |
base[0]=base[0]; |
2425 |
return Cnil;} |
return Cnil;} |
2426 |
} |
} |
2427 |
/* local entry for function MAKE-SPECIALIZABLE */ |
/* local entry for function MAKE-SPECIALIZABLE */ |
2428 |
|
|
2429 |
static object LI36(object V496,object first,...) |
static object LI36(object V500,object first,...) |
2430 |
{ |
{ |
2431 |
va_list ap; |
va_list ap; |
2432 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
2433 |
{register object V497; |
{register object V501; |
2434 |
register object V498; |
register object V502; |
2435 |
object V499; |
object V503; |
2436 |
va_start(ap,first); |
va_start(ap,first); |
2437 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2438 |
V497= V496; |
V501= V500; |
2439 |
narg= narg - 1; |
narg= narg - 1; |
2440 |
{ |
{ |
2441 |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI36key,first,ap); |
2442 |
if(Vcs[1]==0){ |
if(Vcs[1]==0){ |
2443 |
V498= Cnil; |
V502= Cnil; |
2444 |
V499= Cnil; |
V503= Cnil; |
2445 |
}else{ |
}else{ |
2446 |
V498=(Vcs[1]); |
V502=(Vcs[1]); |
2447 |
V499= Ct;} |
V503= Ct;} |
2448 |
{object V500; |
{object V504; |
2449 |
V500= (((((V499))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V504= (((((V503))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
2450 |
if(((V500))==Cnil){ |
if(((V504))==Cnil){ |
2451 |
goto T977;} |
goto T977;} |
2452 |
goto T974; |
goto T974; |
2453 |
goto T977; |
goto T977; |
2454 |
T977:; |
T977:; |
2455 |
{object V501; |
{object V505; |
2456 |
base[0]= (V497); |
base[0]= (V501); |
2457 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2458 |
Lfboundp(); |
Lfboundp(); |
2459 |
vs_top=sup; |
vs_top=sup; |
2460 |
V502= vs_base[0]; |
V506= vs_base[0]; |
2461 |
V501= ((V502)==Cnil?Ct:Cnil); |
V505= ((V506)==Cnil?Ct:Cnil); |
2462 |
if(((V501))==Cnil){ |
if(((V505))==Cnil){ |
2463 |
goto T983;} |
goto T983;} |
2464 |
goto T974; |
goto T974; |
2465 |
goto T983; |
goto T983; |
2470 |
vs_top=sup; |
vs_top=sup; |
2471 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2472 |
goto T986;} |
goto T986;} |
2473 |
base[0]= (V497); |
base[0]= (V501); |
2474 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2475 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
2476 |
vs_top=sup; |
vs_top=sup; |
2477 |
V498= vs_base[0]; |
V502= vs_base[0]; |
2478 |
goto T974; |
goto T974; |
2479 |
goto T986; |
goto T986; |
2480 |
T986:; |
T986:; |
2484 |
vs_top=sup;}} |
vs_top=sup;}} |
2485 |
goto T974; |
goto T974; |
2486 |
T974:; |
T974:; |
2487 |
{register object V503; |
{register object V507; |
2488 |
register object V504; |
register object V508; |
2489 |
base[1]= (V497); |
base[1]= (V501); |
2490 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2491 |
Lfboundp(); |
Lfboundp(); |
2492 |
vs_top=sup; |
vs_top=sup; |
2496 |
goto T992; |
goto T992; |
2497 |
goto T993; |
goto T993; |
2498 |
T993:; |
T993:; |
2499 |
base[1]= (V497); |
base[1]= (V501); |
2500 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2501 |
Lsymbol_function(); |
Lsymbol_function(); |
2502 |
vs_top=sup; |
vs_top=sup; |
2505 |
T992:; |
T992:; |
2506 |
base[1]= VV[89]; |
base[1]= VV[89]; |
2507 |
base[2]= VV[69]; |
base[2]= VV[69]; |
2508 |
base[3]= (V497); |
base[3]= (V501); |
2509 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2510 |
(void) (*Lnk271)(Lclptr271); |
(void) (*Lnk271)(Lclptr271); |
2511 |
vs_top=sup; |
vs_top=sup; |
2512 |
V503= vs_base[0]; |
V507= vs_base[0]; |
2513 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2514 |
V504= small_fixnum(0); |
V508= small_fixnum(0); |
2515 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
2516 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2517 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk265)(Lclptr265); |
2518 |
vs_top=sup; |
vs_top=sup; |
2519 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2520 |
goto T1002;} |
goto T1002;} |
2521 |
{object V505 = (base[0]->c.c_car); |
{object V509 = (base[0]->c.c_car); |
2522 |
VMR32(V505)} |
VMR32(V509)} |
2523 |
goto T1002; |
goto T1002; |
2524 |
T1002:; |
T1002:; |
2525 |
{register object V506; |
{register object V510; |
2526 |
register object V507; |
register object V511; |
2527 |
V506= (V498); |
V510= (V502); |
2528 |
V507= CMPcar((V506)); |
V511= CMPcar((V510)); |
2529 |
goto T1009; |
goto T1009; |
2530 |
T1009:; |
T1009:; |
2531 |
if(!(((V506))==Cnil)){ |
if(!(((V510))==Cnil)){ |
2532 |
goto T1010;} |
goto T1010;} |
2533 |
goto T1005; |
goto T1005; |
2534 |
goto T1010; |
goto T1010; |
2535 |
T1010:; |
T1010:; |
2536 |
{register object x= (V507),V508= VV[90]; |
{register object x= (V511),V512= VV[90]; |
2537 |
while(V508!=Cnil) |
while(V512!=Cnil) |
2538 |
if(x==(V508->c.c_car)){ |
if(x==(V512->c.c_car)){ |
2539 |
goto T1017; |
goto T1017; |
2540 |
}else V508=V508->c.c_cdr; |
}else V512=V512->c.c_cdr; |
2541 |
goto T1016;} |
goto T1016;} |
2542 |
goto T1017; |
goto T1017; |
2543 |
T1017:; |
T1017:; |
2544 |
goto T1005; |
goto T1005; |
2545 |
goto T1016; |
goto T1016; |
2546 |
T1016:; |
T1016:; |
2547 |
V504= number_plus((V504),small_fixnum(1)); |
V508= number_plus((V508),small_fixnum(1)); |
2548 |
V506= CMPcdr((V506)); |
V510= CMPcdr((V510)); |
2549 |
V507= CMPcar((V506)); |
V511= CMPcar((V510)); |
2550 |
goto T1009;} |
goto T1009;} |
2551 |
goto T1005; |
goto T1005; |
2552 |
T1005:; |
T1005:; |
2553 |
(void)((*(LnkLI274))((V503),V497)); |
(void)((*(LnkLI274))((V507),V501)); |
2554 |
base[1]= (V503); |
base[1]= (V507); |
2555 |
base[2]= (V497); |
base[2]= (V501); |
2556 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2557 |
(void) (*Lnk259)(); |
(void) (*Lnk259)(); |
2558 |
vs_top=sup; |
vs_top=sup; |
2559 |
if(((V499))==Cnil){ |
if(((V503))==Cnil){ |
2560 |
goto T1028;} |
goto T1028;} |
2561 |
base[1]= (V498); |
base[1]= (V502); |
2562 |
base[2]= V503; |
base[2]= V507; |
2563 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2564 |
(void) (*Lnk275)(Lclptr275); |
(void) (*Lnk275)(Lclptr275); |
2565 |
vs_top=sup; |
vs_top=sup; |
2568 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
2569 |
goto T1033;} |
goto T1033;} |
2570 |
base[1]=(VV[276]->s.s_gfdef); |
base[1]=(VV[276]->s.s_gfdef); |
2571 |
base[2]= (V497); |
base[2]= (V501); |
2572 |
base[3]= Cnil; |
base[3]= Cnil; |
2573 |
base[5]= (V504); |
base[5]= (V508); |
2574 |
base[6]= VV[91]; |
base[6]= VV[91]; |
2575 |
base[7]= Ct; |
base[7]= Ct; |
2576 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2577 |
Lmake_list(); |
Lmake_list(); |
2578 |
vs_top=sup; |
vs_top=sup; |
2579 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2580 |
base[5]= (V498); |
base[5]= (V502); |
2581 |
V511= |
V515= |
2582 |
make_cclosure_new(LC123,Cnil,base[0],Cdata); |
make_cclosure_new(LC123,Cnil,base[0],Cdata); |
2583 |
base[6]= list(2,VV[54],V511); |
base[6]= list(2,VV[54],V515); |
2584 |
(void)simple_lispcall(base+1,5); |
(void)simple_lispcall(base+1,5); |
2585 |
goto T1033; |
goto T1033; |
2586 |
T1033:; |
T1033:; |
2587 |
{object V512 = (V503); |
{object V516 = (V507); |
2588 |
VMR32(V512)}} |
VMR32(V516)}} |
2589 |
va_end(ap); |
va_end(ap); |
2590 |
base[0]=base[0]; |
base[0]=base[0]; |
2591 |
return Cnil;} |
return Cnil;} |
2592 |
}} |
}} |
2593 |
/* local entry for function REAL-GET-METHOD */ |
/* local entry for function REAL-GET-METHOD */ |
2594 |
|
|
2595 |
static object LI37(object V515,object V514,object V513,object first,...) |
static object LI37(object V519,object V518,object V517,object first,...) |
2596 |
{ |
{ |
2597 |
va_list ap; |
va_list ap; |
2598 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
int narg = VFUN_NARGS; VMB33 VMS33 VMV33 |
2599 |
{object V516; |
{object V520; |
2600 |
register object V517; |
register object V521; |
2601 |
register object V518; |
register object V522; |
2602 |
object V519; |
object V523; |
2603 |
va_start(ap,first); |
va_start(ap,first); |
2604 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2605 |
V516= V515; |
V520= V519; |
2606 |
V517= V514; |
V521= V518; |
2607 |
V518= V513; |
V522= V517; |
2608 |
narg = narg - 3; |
narg = narg - 3; |
2609 |
if (narg <= 0) goto T1045; |
if (narg <= 0) goto T1045; |
2610 |
else { |
else { |
2611 |
V519= first;} |
V523= first;} |
2612 |
--narg; goto T1046; |
--narg; goto T1046; |
2613 |
goto T1045; |
goto T1045; |
2614 |
T1045:; |
T1045:; |
2615 |
V519= Ct; |
V523= Ct; |
2616 |
goto T1046; |
goto T1046; |
2617 |
T1046:; |
T1046:; |
2618 |
{object V520; |
{object V524; |
2619 |
{register object V521; |
{register object V525; |
2620 |
register object V522; |
register object V526; |
2621 |
base[2]= (V516); |
base[2]= (V520); |
2622 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2623 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
2624 |
vs_top=sup; |
vs_top=sup; |
2625 |
V521= vs_base[0]; |
V525= vs_base[0]; |
2626 |
V522= CMPcar((V521)); |
V526= CMPcar((V525)); |
2627 |
goto T1053; |
goto T1053; |
2628 |
T1053:; |
T1053:; |
2629 |
if(!(((V521))==Cnil)){ |
if(!(((V525))==Cnil)){ |
2630 |
goto T1054;} |
goto T1054;} |
2631 |
V520= Cnil; |
V524= Cnil; |
2632 |
goto T1048; |
goto T1048; |
2633 |
goto T1054; |
goto T1054; |
2634 |
T1054:; |
T1054:; |
2635 |
base[2]= (V522); |
V527 = (V521); |
2636 |
|
base[2]= (V526); |
2637 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2638 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
2639 |
vs_top=sup; |
vs_top=sup; |
2640 |
V523= vs_base[0]; |
V528= vs_base[0]; |
2641 |
if(!(equal((V517),V523))){ |
if(!(equal(V527,V528))){ |
2642 |
goto T1058;} |
goto T1058;} |
2643 |
base[2]= (VV[277]->s.s_gfdef); |
base[2]= (VV[277]->s.s_gfdef); |
2644 |
base[3]= (V518); |
base[3]= (V522); |
2645 |
base[5]= (V522); |
base[5]= (V526); |
2646 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2647 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
2648 |
vs_top=sup; |
vs_top=sup; |
2652 |
vs_top=sup; |
vs_top=sup; |
2653 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2654 |
goto T1058;} |
goto T1058;} |
2655 |
V520= (V522); |
V524= (V526); |
2656 |
goto T1048; |
goto T1048; |
2657 |
goto T1058; |
goto T1058; |
2658 |
T1058:; |
T1058:; |
2659 |
V521= CMPcdr((V521)); |
V525= CMPcdr((V525)); |
2660 |
V522= CMPcar((V521)); |
V526= CMPcar((V525)); |
2661 |
goto T1053;} |
goto T1053;} |
2662 |
goto T1048; |
goto T1048; |
2663 |
T1048:; |
T1048:; |
2664 |
if(((V520))==Cnil){ |
if(((V524))==Cnil){ |
2665 |
goto T1075;} |
goto T1075;} |
2666 |
{object V524 = (V520); |
{object V529 = (V524); |
2667 |
VMR33(V524)} |
VMR33(V529)} |
2668 |
goto T1075; |
goto T1075; |
2669 |
T1075:; |
T1075:; |
2670 |
if(((V519))!=Cnil){ |
if(((V523))!=Cnil){ |
2671 |
goto T1078;} |
goto T1078;} |
2672 |
{object V525 = Cnil; |
{object V530 = Cnil; |
2673 |
VMR33(V525)} |
VMR33(V530)} |
2674 |
goto T1078; |
goto T1078; |
2675 |
T1078:; |
T1078:; |
2676 |
base[0]= VV[92]; |
base[0]= VV[92]; |
2677 |
base[1]= (V516); |
base[1]= (V520); |
2678 |
base[2]= (V517); |
base[2]= (V521); |
2679 |
base[3]= (V518); |
base[3]= (V522); |
2680 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
2681 |
Lerror(); |
Lerror(); |
2682 |
vs_top=sup; |
vs_top=sup; |
2683 |
{object V526 = vs_base[0]; |
{object V531 = vs_base[0]; |
2684 |
VMR33(V526)}} |
VMR33(V531)}} |
2685 |
va_end(ap); |
va_end(ap); |
2686 |
base[0]=base[0]; |
base[0]=base[0]; |
2687 |
return Cnil;} |
return Cnil;} |
2692 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2693 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2694 |
vs_check; |
vs_check; |
2695 |
{object V527; |
{object V532; |
2696 |
object V528; |
object V533; |
2697 |
register object V529; |
register object V534; |
2698 |
check_arg(3); |
check_arg(3); |
2699 |
V527=(base[0]); |
V532=(base[0]); |
2700 |
V528=(base[1]); |
V533=(base[1]); |
2701 |
V529=(base[2]); |
V534=(base[2]); |
2702 |
vs_top=sup; |
vs_top=sup; |
2703 |
goto TTL; |
goto TTL; |
2704 |
TTL:; |
TTL:; |
2705 |
{register object V531; |
{register object V536; |
2706 |
register object V532; |
register object V537; |
2707 |
register object V533; |
register object V538; |
2708 |
object V534; |
object V539; |
2709 |
base[3]= (V529); |
base[3]= (V534); |
2710 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2711 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
2712 |
vs_top=sup; |
vs_top=sup; |
2713 |
V534= vs_base[0]; |
V539= vs_base[0]; |
2714 |
V531= Cnil; |
V536= Cnil; |
2715 |
V532= Cnil; |
V537= Cnil; |
2716 |
V533= Cnil; |
V538= Cnil; |
2717 |
{register object V535; |
{register object V540; |
2718 |
register object V536; |
register object V541; |
2719 |
V535= (V534); |
V540= (V539); |
2720 |
V536= CMPcar((V535)); |
V541= CMPcar((V540)); |
2721 |
goto T1093; |
goto T1093; |
2722 |
T1093:; |
T1093:; |
2723 |
if(!(((V535))==Cnil)){ |
if(!(((V540))==Cnil)){ |
2724 |
goto T1094;} |
goto T1094;} |
2725 |
goto T1089; |
goto T1089; |
2726 |
goto T1094; |
goto T1094; |
2727 |
T1094:; |
T1094:; |
2728 |
base[4]= (V529); |
base[4]= (V534); |
2729 |
base[5]= (V536); |
base[5]= (V541); |
2730 |
base[6]= (V531); |
base[6]= (V536); |
2731 |
base[7]= (V532); |
base[7]= (V537); |
2732 |
base[8]= (V533); |
base[8]= (V538); |
2733 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
2734 |
(void) (*Lnk280)(); |
(void) (*Lnk280)(); |
2735 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2736 |
V531= vs_base[0]; |
V536= vs_base[0]; |
2737 |
vs_base++; |
vs_base++; |
2738 |
}else{ |
}else{ |
2739 |
V531= Cnil;} |
V536= Cnil;} |
2740 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2741 |
V532= vs_base[0]; |
V537= vs_base[0]; |
2742 |
vs_base++; |
vs_base++; |
2743 |
}else{ |
}else{ |
2744 |
V532= Cnil;} |
V537= Cnil;} |
2745 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2746 |
V533= vs_base[0]; |
V538= vs_base[0]; |
2747 |
}else{ |
}else{ |
2748 |
V533= Cnil;} |
V538= Cnil;} |
2749 |
vs_top=sup; |
vs_top=sup; |
2750 |
V535= CMPcdr((V535)); |
V540= CMPcdr((V540)); |
2751 |
V536= CMPcar((V535)); |
V541= CMPcar((V540)); |
2752 |
goto T1093;} |
goto T1093;} |
2753 |
goto T1089; |
goto T1089; |
2754 |
T1089:; |
T1089:; |
2755 |
base[3]= (V531); |
base[3]= (V536); |
2756 |
base[4]= (V532); |
base[4]= (V537); |
2757 |
base[6]= (V533); |
base[6]= (V538); |
2758 |
base[7]= (VV[281]->s.s_gfdef); |
base[7]= (VV[281]->s.s_gfdef); |
2759 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2760 |
(void) (*Lnk282)(); |
(void) (*Lnk282)(); |
2770 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2771 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2772 |
vs_check; |
vs_check; |
2773 |
{object V537; |
{object V542; |
2774 |
object V538; |
object V543; |
2775 |
object V539; |
object V544; |
2776 |
object V540; |
object V545; |
2777 |
object V541; |
object V546; |
2778 |
check_arg(5); |
check_arg(5); |
2779 |
V537=(base[0]); |
V542=(base[0]); |
2780 |
V538=(base[1]); |
V543=(base[1]); |
2781 |
V539=(base[2]); |
V544=(base[2]); |
2782 |
V540=(base[3]); |
V545=(base[3]); |
2783 |
V541=(base[4]); |
V546=(base[4]); |
2784 |
vs_top=sup; |
vs_top=sup; |
2785 |
goto TTL; |
goto TTL; |
2786 |
TTL:; |
TTL:; |
2787 |
{long V542; |
{long V547; |
2788 |
V542= 0; |
V547= 0; |
2789 |
{register object V543; |
{register object V548; |
2790 |
register object V544; |
register object V549; |
2791 |
base[7]= (V538); |
base[7]= (V543); |
2792 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2793 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk283)(Lclptr283); |
2794 |
vs_top=sup; |
vs_top=sup; |
2795 |
V543= vs_base[0]; |
V548= vs_base[0]; |
2796 |
V544= CMPcar((V543)); |
V549= CMPcar((V548)); |
2797 |
goto T1121; |
goto T1121; |
2798 |
T1121:; |
T1121:; |
2799 |
if(!(((V543))==Cnil)){ |
if(!(((V548))==Cnil)){ |
2800 |
goto T1122;} |
goto T1122;} |
2801 |
goto T1116; |
goto T1116; |
2802 |
goto T1122; |
goto T1122; |
2803 |
T1122:; |
T1122:; |
2804 |
if(!(((V544))==(VV[93]))){ |
if(!(((V549))==(VV[93]))){ |
2805 |
goto T1128;} |
goto T1128;} |
2806 |
goto T1116; |
goto T1116; |
2807 |
goto T1128; |
goto T1128; |
2808 |
T1128:; |
T1128:; |
2809 |
{register object x= (V544),V545= VV[94]; |
{register object x= (V549),V550= VV[94]; |
2810 |
while(V545!=Cnil) |
while(V550!=Cnil) |
2811 |
if(x==(V545->c.c_car)){ |
if(x==(V550->c.c_car)){ |
2812 |
goto T1132; |
goto T1132; |
2813 |
}else V545=V545->c.c_cdr; |
}else V550=V550->c.c_cdr; |
2814 |
goto T1131;} |
goto T1131;} |
2815 |
goto T1132; |
goto T1132; |
2816 |
T1132:; |
T1132:; |
2817 |
V540= Ct; |
V545= Ct; |
2818 |
goto T1116; |
goto T1116; |
2819 |
goto T1131; |
goto T1131; |
2820 |
T1131:; |
T1131:; |
2821 |
{register object V546; |
{register object V551; |
2822 |
{register object x= (V544),V547= VV[90]; |
{register object x= (V549),V552= VV[90]; |
2823 |
while(V547!=Cnil) |
while(V552!=Cnil) |
2824 |
if(x==(V547->c.c_car)){ |
if(x==(V552->c.c_car)){ |
2825 |
V546= V547; |
V551= V552; |
2826 |
goto T1134; |
goto T1134; |
2827 |
}else V547=V547->c.c_cdr; |
}else V552=V552->c.c_cdr; |
2828 |
V546= Cnil;} |
V551= Cnil;} |
2829 |
goto T1134; |
goto T1134; |
2830 |
T1134:; |
T1134:; |
2831 |
if(((V546))==Cnil){ |
if(((V551))==Cnil){ |
2832 |
goto T1136;} |
goto T1136;} |
2833 |
goto T1126; |
goto T1126; |
2834 |
goto T1136; |
goto T1136; |
2835 |
T1136:; |
T1136:; |
2836 |
V542= (long)(V542)+(1);} |
V547= (long)(V547)+(1);} |
2837 |
goto T1126; |
goto T1126; |
2838 |
T1126:; |
T1126:; |
2839 |
V543= CMPcdr((V543)); |
V548= CMPcdr((V548)); |
2840 |
V544= CMPcar((V543)); |
V549= CMPcar((V548)); |
2841 |
goto T1121;} |
goto T1121;} |
2842 |
goto T1116; |
goto T1116; |
2843 |
T1116:; |
T1116:; |
2844 |
{register object V548; |
{register object V553; |
2845 |
object V549; |
object V554; |
2846 |
register object V550; |
register object V555; |
2847 |
object V551; |
object V556; |
2848 |
base[6]= (V538); |
base[6]= (V543); |
2849 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2850 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
2851 |
vs_top=sup; |
vs_top=sup; |
2852 |
V548= vs_base[0]; |
V553= vs_base[0]; |
2853 |
V549= Cnil; |
V554= Cnil; |
2854 |
V550= small_fixnum(0); |
V555= small_fixnum(0); |
2855 |
V551= Cnil; |
V556= Cnil; |
2856 |
goto T1151; |
goto T1151; |
2857 |
T1151:; |
T1151:; |
2858 |
{object V552; |
{object V557; |
2859 |
if(!(((V548))==Cnil)){ |
if(!(((V553))==Cnil)){ |
2860 |
goto T1157;} |
goto T1157;} |
2861 |
goto T1144; |
goto T1144; |
2862 |
goto T1157; |
goto T1157; |
2863 |
T1157:; |
T1157:; |
2864 |
V552= CMPcar((V548)); |
V557= CMPcar((V553)); |
2865 |
V548= CMPcdr((V548)); |
V553= CMPcdr((V553)); |
2866 |
V549= (V552);} |
V554= (V557);} |
2867 |
{object V553; |
{object V558; |
2868 |
V553= (V550); |
V558= (V555); |
2869 |
V550= number_plus((V550),small_fixnum(1)); |
V555= number_plus((V555),small_fixnum(1)); |
2870 |
V551= (V553);} |
V556= (V558);} |
2871 |
if(((V549))==((VV[95]->s.s_dbind))){ |
if(((V554))==((VV[95]->s.s_dbind))){ |
2872 |
goto T1152;} |
goto T1152;} |
2873 |
base[6]= V551; |
base[6]= V556; |
2874 |
base[7]= (V541); |
base[7]= (V546); |
2875 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2876 |
Ladjoin(); |
Ladjoin(); |
2877 |
vs_top=sup; |
vs_top=sup; |
2878 |
V541= vs_base[0]; |
V546= vs_base[0]; |
2879 |
goto T1152; |
goto T1152; |
2880 |
T1152:; |
T1152:; |
2881 |
goto T1151;} |
goto T1151;} |
2882 |
goto T1144; |
goto T1144; |
2883 |
T1144:; |
T1144:; |
2884 |
if((V539)!=Cnil){ |
if((V544)!=Cnil){ |
2885 |
V555= (V539); |
V560= (V544); |
2886 |
goto T1172;} |
goto T1172;} |
2887 |
V555= CMPmake_fixnum(V542); |
V560= CMPmake_fixnum(V547); |
2888 |
goto T1172; |
goto T1172; |
2889 |
T1172:; |
T1172:; |
2890 |
V556 = CMPmake_fixnum(V542); |
V561 = CMPmake_fixnum(V547); |
2891 |
base[5]= (number_compare(V555,V556)<=0?(V555):V556); |
base[5]= (number_compare(V560,V561)<=0?(V560):V561); |
2892 |
if((V540)!=Cnil){ |
if((V545)!=Cnil){ |
2893 |
base[6]= (V540); |
base[6]= (V545); |
2894 |
goto T1173;} |
goto T1173;} |
2895 |
if((V539)==Cnil){ |
if((V544)==Cnil){ |
2896 |
base[6]= Cnil; |
base[6]= Cnil; |
2897 |
goto T1173;} |
goto T1173;} |
2898 |
V557 = CMPmake_fixnum(V542); |
V562 = CMPmake_fixnum(V547); |
2899 |
base[6]= (number_compare((V539),V557)!=0?Ct:Cnil); |
base[6]= (number_compare((V544),V562)!=0?Ct:Cnil); |
2900 |
goto T1173; |
goto T1173; |
2901 |
T1173:; |
T1173:; |
2902 |
base[7]= (V541); |
base[7]= (V546); |
2903 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2904 |
return;} |
return;} |
2905 |
} |
} |
2906 |
} |
} |
2907 |
/* local entry for function MAKE-DISCRIMINATING-FUNCTION-ARGLIST */ |
/* local entry for function MAKE-DISCRIMINATING-FUNCTION-ARGLIST */ |
2908 |
|
|
2909 |
static object LI40(V560,V561) |
static object LI40(V565,V566) |
2910 |
|
|
2911 |
object V560;object V561; |
object V565;object V566; |
2912 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
2913 |
goto TTL; |
goto TTL; |
2914 |
TTL:; |
TTL:; |
2915 |
{register object V563; |
{register object V568; |
2916 |
register object V564; |
register object V569; |
2917 |
V563= Cnil; |
V568= Cnil; |
2918 |
V564= Cnil; |
V569= Cnil; |
2919 |
{register object V565; |
{register object V570; |
2920 |
register object V567; |
register object V572; |
2921 |
V565= small_fixnum(0); |
V570= small_fixnum(0); |
2922 |
V567= Cnil; |
V572= Cnil; |
2923 |
goto T1182; |
goto T1182; |
2924 |
T1182:; |
T1182:; |
2925 |
{register object V568; |
{register object V573; |
2926 |
if(!(number_compare((V565),V560)<0)){ |
if(!(number_compare((V570),V565)<0)){ |
2927 |
goto T1188;} |
goto T1188;} |
2928 |
V568= (V565); |
V573= (V570); |
2929 |
goto T1186; |
goto T1186; |
2930 |
goto T1188; |
goto T1188; |
2931 |
T1188:; |
T1188:; |
2932 |
goto T1178; |
goto T1178; |
2933 |
goto T1186; |
goto T1186; |
2934 |
T1186:; |
T1186:; |
2935 |
V565= number_plus((V565),small_fixnum(1)); |
V570= number_plus((V570),small_fixnum(1)); |
2936 |
V567= (V568);} |
V572= (V573);} |
2937 |
{register object V569; |
{register object V574; |
2938 |
base[1]= Cnil; |
base[1]= Cnil; |
2939 |
base[2]= VV[96]; |
base[2]= VV[96]; |
2940 |
base[3]= (V567); |
base[3]= (V572); |
2941 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2942 |
Lformat(); |
Lformat(); |
2943 |
vs_top=sup; |
vs_top=sup; |
2945 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2946 |
Lintern(); |
Lintern(); |
2947 |
vs_top=sup; |
vs_top=sup; |
2948 |
V569= vs_base[0]; |
V574= vs_base[0]; |
2949 |
if(((V563))!=Cnil){ |
if(((V568))!=Cnil){ |
2950 |
goto T1198;} |
goto T1198;} |
2951 |
V564= make_cons((V569),Cnil); |
V569= make_cons((V574),Cnil); |
2952 |
V563= (V564); |
V568= (V569); |
2953 |
goto T1183; |
goto T1183; |
2954 |
goto T1198; |
goto T1198; |
2955 |
T1198:; |
T1198:; |
2956 |
V571= make_cons((V569),Cnil); |
V576= make_cons((V574),Cnil); |
2957 |
((V564))->c.c_cdr = /* INLINE-ARGS */V571; |
((V569))->c.c_cdr = /* INLINE-ARGS */V576; |
2958 |
V570= (V564); |
V575= (V569); |
2959 |
V564= CMPcdr(V570);} |
V569= CMPcdr(V575);} |
2960 |
goto T1183; |
goto T1183; |
2961 |
T1183:; |
T1183:; |
2962 |
goto T1182;} |
goto T1182;} |
2963 |
goto T1178; |
goto T1178; |
2964 |
T1178:; |
T1178:; |
2965 |
V562= (V563);} |
V567= (V568);} |
2966 |
if(((V561))==Cnil){ |
if(((V566))==Cnil){ |
2967 |
goto T1207;} |
goto T1207;} |
2968 |
base[0]= VV[98]; |
base[0]= VV[98]; |
2969 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2970 |
Lintern(); |
Lintern(); |
2971 |
vs_top=sup; |
vs_top=sup; |
2972 |
V573= vs_base[0]; |
V578= vs_base[0]; |
2973 |
V572= list(2,VV[97],V573); |
V577= list(2,VV[97],V578); |
2974 |
goto T1205; |
goto T1205; |
2975 |
goto T1207; |
goto T1207; |
2976 |
T1207:; |
T1207:; |
2977 |
V572= Cnil; |
V577= Cnil; |
2978 |
goto T1205; |
goto T1205; |
2979 |
T1205:; |
T1205:; |
2980 |
{object V574 = nconc(V562,V572); |
{object V579 = nconc(V567,V577); |
2981 |
VMR36(V574)} |
VMR36(V579)} |
2982 |
base[0]=base[0]; |
base[0]=base[0]; |
2983 |
return Cnil; |
return Cnil; |
2984 |
} |
} |
2985 |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION)) */ |
2986 |
|
|
2987 |
static object LI41(V578,V579,V580) |
static object LI41(V583,V584,V585) |
2988 |
|
|
2989 |
object V578;object V579;object V580; |
object V583;object V584;object V585; |
2990 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
2991 |
goto TTL; |
goto TTL; |
2992 |
TTL:; |
TTL:; |
2993 |
{object V582 = (*(LnkLI284))((V580)); |
{object V587 = (*(LnkLI284))((V585)); |
2994 |
VMR37(V582)} |
VMR37(V587)} |
2995 |
return Cnil; |
return Cnil; |
2996 |
} |
} |
2997 |
/* local entry for function (FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION)) */ |
2998 |
|
|
2999 |
static object LI42(V586,V587,V588) |
static object LI42(V591,V592,V593) |
3000 |
|
|
3001 |
object V586;object V587;register object V588; |
object V591;object V592;register object V593; |
3002 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
3003 |
goto TTL; |
goto TTL; |
3004 |
TTL:; |
TTL:; |
3005 |
{object V590; |
{object V595; |
3006 |
object V591; |
object V596; |
3007 |
V590= CMPcar((V586)); |
V595= CMPcar((V591)); |
3008 |
V591= CMPcdr((V586)); |
V596= CMPcdr((V591)); |
3009 |
{object V592; |
{object V597; |
3010 |
if(type_of(V588)==t_structure){ |
if(type_of(V593)==t_structure){ |
3011 |
goto T1224;} |
goto T1224;} |
3012 |
goto T1222; |
goto T1222; |
3013 |
goto T1224; |
goto T1224; |
3014 |
T1224:; |
T1224:; |
3015 |
if(!(((V588)->str.str_def)==(VV[99]))){ |
if(!(((V593)->str.str_def)==(VV[99]))){ |
3016 |
goto T1222;} |
goto T1222;} |
3017 |
V592= STREF(object,(V588),4); |
V597= STREF(object,(V593),4); |
3018 |
goto T1220; |
goto T1220; |
3019 |
goto T1222; |
goto T1222; |
3020 |
T1222:;{object V594; |
T1222:;{object V599; |
3021 |
V594= (VV[13]->s.s_dbind); |
V599= (VV[13]->s.s_dbind); |
3022 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3023 |
base[1]= (V588); |
base[1]= (V593); |
3024 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3025 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3026 |
vs_top=sup; |
vs_top=sup; |
3027 |
V595= vs_base[0]; |
V600= vs_base[0]; |
3028 |
if(!((V594)==(CMPcar(V595)))){ |
if(!((V599)==(CMPcar(V600)))){ |
3029 |
goto T1227;}} |
goto T1227;}} |
3030 |
V592= CMPcar(((V588))->cc.cc_turbo[12]); |
V597= CMPcar(((V593))->cc.cc_turbo[12]); |
3031 |
goto T1220; |
goto T1220; |
3032 |
goto T1227; |
goto T1227; |
3033 |
T1227:; |
T1227:; |
3034 |
V592= Cnil; |
V597= Cnil; |
3035 |
goto T1220; |
goto T1220; |
3036 |
T1220:; |
T1220:; |
3037 |
{register object V597; |
{register object V602; |
3038 |
V597= ((V590))->v.v_self[1]; |
V602= ((V595))->v.v_self[1]; |
3039 |
if(!(type_of(V597)==t_fixnum)){ |
if(!(type_of(V602)==t_fixnum)){ |
3040 |
goto T1238;} |
goto T1238;} |
3041 |
V597= ((V592))->v.v_self[fix((V597))]; |
V602= ((V597))->v.v_self[fix((V602))]; |
3042 |
goto T1236; |
goto T1236; |
3043 |
goto T1238; |
goto T1238; |
3044 |
T1238:; |
T1238:; |
3045 |
V597= VV[14]; |
V602= VV[14]; |
3046 |
goto T1236; |
goto T1236; |
3047 |
T1236:; |
T1236:; |
3048 |
if(!(((V597))==(VV[14]))){ |
if(!(((V602))==(VV[14]))){ |
3049 |
goto T1241;} |
goto T1241;} |
3050 |
base[0]= (V588); |
base[0]= (V593); |
3051 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3052 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk285)(Lclptr285); |
3053 |
vs_top=sup; |
vs_top=sup; |
3054 |
V596= vs_base[0]; |
V601= vs_base[0]; |
3055 |
goto T1233; |
goto T1233; |
3056 |
goto T1241; |
goto T1241; |
3057 |
T1241:; |
T1241:; |
3058 |
V596= (V597);} |
V601= (V602);} |
3059 |
goto T1233; |
goto T1233; |
3060 |
T1233:; |
T1233:; |
3061 |
{object V599 = STREF(object,V596,40); |
{object V604 = STREF(object,V601,40); |
3062 |
VMR38(V599)}}} |
VMR38(V604)}}} |
3063 |
base[0]=base[0]; |
base[0]=base[0]; |
3064 |
return Cnil; |
return Cnil; |
3065 |
} |
} |
3066 |
/* local entry for function (FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
3067 |
|
|
3068 |
static object LI43(V604,V605,V606,V607) |
static object LI43(V609,V610,V611,V612) |
3069 |
|
|
3070 |
object V604;object V605;register object V606;object V607; |
object V609;object V610;register object V611;object V612; |
3071 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
3072 |
goto TTL; |
goto TTL; |
3073 |
TTL:; |
TTL:; |
3074 |
{object V609; |
{object V614; |
3075 |
object V611; |
object V616; |
3076 |
object V612; |
object V617; |
3077 |
V609= (*(LnkLI220))(VV[52],V607); |
V614= (*(LnkLI220))(VV[52],V612); |
3078 |
if(!(type_of((V609))==t_cons)){ |
if(!(type_of((V614))==t_cons)){ |
3079 |
goto T1249;} |
goto T1249;} |
3080 |
V611= CMPcar((V609)); |
V616= CMPcar((V614)); |
3081 |
goto T1247; |
goto T1247; |
3082 |
goto T1249; |
goto T1249; |
3083 |
T1249:; |
T1249:; |
3084 |
V611= Cnil; |
V616= Cnil; |
3085 |
goto T1247; |
goto T1247; |
3086 |
T1247:; |
T1247:; |
3087 |
V612= (*(LnkLI239))(VV[70],V607); |
V617= (*(LnkLI239))(VV[70],V612); |
3088 |
{object V613; |
{object V618; |
3089 |
object V614; |
object V619; |
3090 |
V613= CMPcar((V604)); |
V618= CMPcar((V609)); |
3091 |
V614= CMPcdr((V604)); |
V619= CMPcdr((V609)); |
3092 |
{object V615; |
{object V620; |
3093 |
if(type_of(V606)==t_structure){ |
if(type_of(V611)==t_structure){ |
3094 |
goto T1260;} |
goto T1260;} |
3095 |
goto T1258; |
goto T1258; |
3096 |
goto T1260; |
goto T1260; |
3097 |
T1260:; |
T1260:; |
3098 |
if(!(((V606)->str.str_def)==(VV[101]))){ |
if(!(((V611)->str.str_def)==(VV[101]))){ |
3099 |
goto T1258;} |
goto T1258;} |
3100 |
V615= STREF(object,(V606),4); |
V620= STREF(object,(V611),4); |
3101 |
goto T1256; |
goto T1256; |
3102 |
goto T1258; |
goto T1258; |
3103 |
T1258:;{object V617; |
T1258:;{object V622; |
3104 |
V617= (VV[13]->s.s_dbind); |
V622= (VV[13]->s.s_dbind); |
3105 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
3106 |
base[4]= (V606); |
base[4]= (V611); |
3107 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3108 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3109 |
vs_top=sup; |
vs_top=sup; |
3110 |
V618= vs_base[0]; |
V623= vs_base[0]; |
3111 |
if(!((V617)==(CMPcar(V618)))){ |
if(!((V622)==(CMPcar(V623)))){ |
3112 |
goto T1263;}} |
goto T1263;}} |
3113 |
V615= CMPcar(((V606))->cc.cc_turbo[12]); |
V620= CMPcar(((V611))->cc.cc_turbo[12]); |
3114 |
goto T1256; |
goto T1256; |
3115 |
goto T1263; |
goto T1263; |
3116 |
T1263:; |
T1263:; |
3117 |
V615= Cnil; |
V620= Cnil; |
3118 |
goto T1256; |
goto T1256; |
3119 |
T1256:; |
T1256:; |
3120 |
if((V609)==Cnil){ |
if((V614)==Cnil){ |
3121 |
goto T1272;} |
goto T1272;} |
3122 |
(void)((VFUN_NARGS=5,(*(LnkLI286))((V606),VV[52],(V611),VV[70],(V612)))); |
(void)((VFUN_NARGS=5,(*(LnkLI286))((V611),VV[52],(V616),VV[70],(V617)))); |
3123 |
goto T1270; |
goto T1270; |
3124 |
goto T1272; |
goto T1272; |
3125 |
T1272:; |
T1272:; |
3126 |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V606)))); |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V611)))); |
3127 |
goto T1270; |
goto T1270; |
3128 |
T1270:; |
T1270:; |
3129 |
{register object V621; |
{register object V626; |
3130 |
V621= ((V613))->v.v_self[1]; |
V626= ((V618))->v.v_self[1]; |
3131 |
if(!(type_of(V621)==t_fixnum)){ |
if(!(type_of(V626)==t_fixnum)){ |
3132 |
goto T1282;} |
goto T1282;} |
3133 |
V621= ((V615))->v.v_self[fix((V621))]; |
V626= ((V620))->v.v_self[fix((V626))]; |
3134 |
goto T1280; |
goto T1280; |
3135 |
goto T1282; |
goto T1282; |
3136 |
T1282:; |
T1282:; |
3137 |
V621= VV[14]; |
V626= VV[14]; |
3138 |
goto T1280; |
goto T1280; |
3139 |
T1280:; |
T1280:; |
3140 |
if(!(((V621))==(VV[14]))){ |
if(!(((V626))==(VV[14]))){ |
3141 |
goto T1285;} |
goto T1285;} |
3142 |
base[3]= (V606); |
base[3]= (V611); |
3143 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3144 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk285)(Lclptr285); |
3145 |
vs_top=sup; |
vs_top=sup; |
3146 |
V620= vs_base[0]; |
V625= vs_base[0]; |
3147 |
goto T1277; |
goto T1277; |
3148 |
goto T1285; |
goto T1285; |
3149 |
T1285:; |
T1285:; |
3150 |
V620= (V621);} |
V625= (V626);} |
3151 |
goto T1277; |
goto T1277; |
3152 |
T1277:; |
T1277:; |
3153 |
if(((*(LnkLI287))(V620))==Cnil){ |
if(((*(LnkLI287))(V625))==Cnil){ |
3154 |
goto T1275;} |
goto T1275;} |
3155 |
{object V623 = (VFUN_NARGS=1,(*(LnkLI288))((V606))); |
{object V628 = (VFUN_NARGS=1,(*(LnkLI288))((V611))); |
3156 |
VMR39(V623)} |
VMR39(V628)} |
3157 |
goto T1275; |
goto T1275; |
3158 |
T1275:; |
T1275:; |
3159 |
{object V624 = Cnil; |
{object V629 = Cnil; |
3160 |
VMR39(V624)}}}} |
VMR39(V629)}}}} |
3161 |
base[0]=base[0]; |
base[0]=base[0]; |
3162 |
return Cnil; |
return Cnil; |
3163 |
} |
} |
3164 |
/* local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION)) */ |
3165 |
|
|
3166 |
static object LI44(V629,V630,V631,V632) |
static object LI44(V634,V635,V636,V637) |
3167 |
|
|
3168 |
object V629;object V630;register object V631;object V632; |
object V634;object V635;register object V636;object V637; |
3169 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
3170 |
goto TTL; |
goto TTL; |
3171 |
TTL:; |
TTL:; |
3172 |
{object V635; |
{object V640; |
3173 |
object V637; |
object V642; |
3174 |
object V638; |
object V643; |
3175 |
object V640; |
object V645; |
3176 |
V635= (*(LnkLI220))(VV[52],V632); |
V640= (*(LnkLI220))(VV[52],V637); |
3177 |
if(!(type_of((V635))==t_cons)){ |
if(!(type_of((V640))==t_cons)){ |
3178 |
goto T1293;} |
goto T1293;} |
3179 |
V637= CMPcar((V635)); |
V642= CMPcar((V640)); |
3180 |
goto T1291; |
goto T1291; |
3181 |
goto T1293; |
goto T1293; |
3182 |
T1293:; |
T1293:; |
3183 |
V637= Cnil; |
V642= Cnil; |
3184 |
goto T1291; |
goto T1291; |
3185 |
T1291:; |
T1291:; |
3186 |
V638= (*(LnkLI220))(VV[70],V632); |
V643= (*(LnkLI220))(VV[70],V637); |
3187 |
if(!(type_of((V638))==t_cons)){ |
if(!(type_of((V643))==t_cons)){ |
3188 |
goto T1298;} |
goto T1298;} |
3189 |
V640= CMPcar((V638)); |
V645= CMPcar((V643)); |
3190 |
goto T1296; |
goto T1296; |
3191 |
goto T1298; |
goto T1298; |
3192 |
T1298:; |
T1298:; |
3193 |
V640= Cnil; |
V645= Cnil; |
3194 |
goto T1296; |
goto T1296; |
3195 |
T1296:; |
T1296:; |
3196 |
{object V641; |
{object V646; |
3197 |
object V642; |
object V647; |
3198 |
V641= CMPcar((V629)); |
V646= CMPcar((V634)); |
3199 |
V642= CMPcdr((V629)); |
V647= CMPcdr((V634)); |
3200 |
{object V643; |
{object V648; |
3201 |
if(type_of(V631)==t_structure){ |
if(type_of(V636)==t_structure){ |
3202 |
goto T1308;} |
goto T1308;} |
3203 |
goto T1306; |
goto T1306; |
3204 |
goto T1308; |
goto T1308; |
3205 |
T1308:; |
T1308:; |
3206 |
if(!(((V631)->str.str_def)==(VV[102]))){ |
if(!(((V636)->str.str_def)==(VV[102]))){ |
3207 |
goto T1306;} |
goto T1306;} |
3208 |
V643= STREF(object,(V631),4); |
V648= STREF(object,(V636),4); |
3209 |
goto T1304; |
goto T1304; |
3210 |
goto T1306; |
goto T1306; |
3211 |
T1306:;{object V645; |
T1306:;{object V650; |
3212 |
V645= (VV[13]->s.s_dbind); |
V650= (VV[13]->s.s_dbind); |
3213 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3214 |
base[5]= (V631); |
base[5]= (V636); |
3215 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3216 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3217 |
vs_top=sup; |
vs_top=sup; |
3218 |
V646= vs_base[0]; |
V651= vs_base[0]; |
3219 |
if(!((V645)==(CMPcar(V646)))){ |
if(!((V650)==(CMPcar(V651)))){ |
3220 |
goto T1311;}} |
goto T1311;}} |
3221 |
V643= CMPcar(((V631))->cc.cc_turbo[12]); |
V648= CMPcar(((V636))->cc.cc_turbo[12]); |
3222 |
goto T1304; |
goto T1304; |
3223 |
goto T1311; |
goto T1311; |
3224 |
T1311:; |
T1311:; |
3225 |
V643= Cnil; |
V648= Cnil; |
3226 |
goto T1304; |
goto T1304; |
3227 |
T1304:; |
T1304:; |
3228 |
if((V635)==Cnil){ |
if((V640)==Cnil){ |
3229 |
goto T1320;} |
goto T1320;} |
3230 |
if((V638)==Cnil){ |
if((V643)==Cnil){ |
3231 |
goto T1323;} |
goto T1323;} |
3232 |
(void)((VFUN_NARGS=5,(*(LnkLI286))((V631),VV[52],(V637),VV[70],(V640)))); |
(void)((VFUN_NARGS=5,(*(LnkLI286))((V636),VV[52],(V642),VV[70],(V645)))); |
3233 |
goto T1318; |
goto T1318; |
3234 |
goto T1323; |
goto T1323; |
3235 |
T1323:; |
T1323:; |
3236 |
(void)((VFUN_NARGS=3,(*(LnkLI286))((V631),VV[52],(V637)))); |
(void)((VFUN_NARGS=3,(*(LnkLI286))((V636),VV[52],(V642)))); |
3237 |
goto T1318; |
goto T1318; |
3238 |
goto T1320; |
goto T1320; |
3239 |
T1320:; |
T1320:; |
3240 |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V631)))); |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V636)))); |
3241 |
goto T1318; |
goto T1318; |
3242 |
T1318:; |
T1318:; |
3243 |
{register object V649; |
{register object V654; |
3244 |
V649= ((V641))->v.v_self[1]; |
V654= ((V646))->v.v_self[1]; |
3245 |
if(!(type_of(V649)==t_fixnum)){ |
if(!(type_of(V654)==t_fixnum)){ |
3246 |
goto T1336;} |
goto T1336;} |
3247 |
V649= ((V643))->v.v_self[fix((V649))]; |
V654= ((V648))->v.v_self[fix((V654))]; |
3248 |
goto T1334; |
goto T1334; |
3249 |
goto T1336; |
goto T1336; |
3250 |
T1336:; |
T1336:; |
3251 |
V649= VV[14]; |
V654= VV[14]; |
3252 |
goto T1334; |
goto T1334; |
3253 |
T1334:; |
T1334:; |
3254 |
if(!(((V649))==(VV[14]))){ |
if(!(((V654))==(VV[14]))){ |
3255 |
goto T1339;} |
goto T1339;} |
3256 |
base[4]= (V631); |
base[4]= (V636); |
3257 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3258 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk285)(Lclptr285); |
3259 |
vs_top=sup; |
vs_top=sup; |
3260 |
V648= vs_base[0]; |
V653= vs_base[0]; |
3261 |
goto T1331; |
goto T1331; |
3262 |
goto T1339; |
goto T1339; |
3263 |
T1339:; |
T1339:; |
3264 |
V648= (V649);} |
V653= (V654);} |
3265 |
goto T1331; |
goto T1331; |
3266 |
T1331:; |
T1331:; |
3267 |
if(((*(LnkLI287))(V648))==Cnil){ |
if(((*(LnkLI287))(V653))==Cnil){ |
3268 |
goto T1329;} |
goto T1329;} |
3269 |
if((V632)==Cnil){ |
if((V637)==Cnil){ |
3270 |
goto T1343;} |
goto T1343;} |
3271 |
if(V635!=Cnil){ |
if(V640!=Cnil){ |
3272 |
if((V635)==Cnil){ |
if((V640)==Cnil){ |
3273 |
goto T1326;} |
goto T1326;} |
3274 |
goto T1327;} |
goto T1327;} |
3275 |
if((CMPcddr(V632))==Cnil){ |
if((CMPcddr(V637))==Cnil){ |
3276 |
goto T1326;} |
goto T1326;} |
3277 |
goto T1327; |
goto T1327; |
3278 |
goto T1343; |
goto T1343; |
3283 |
goto T1326; |
goto T1326; |
3284 |
goto T1327; |
goto T1327; |
3285 |
T1327:; |
T1327:; |
3286 |
{object V651 = (VFUN_NARGS=1,(*(LnkLI288))((V631))); |
{object V656 = (VFUN_NARGS=1,(*(LnkLI288))((V636))); |
3287 |
VMR40(V651)} |
VMR40(V656)} |
3288 |
goto T1326; |
goto T1326; |
3289 |
T1326:; |
T1326:; |
3290 |
{object V652 = Cnil; |
{object V657 = Cnil; |
3291 |
VMR40(V652)}}}} |
VMR40(V657)}}}} |
3292 |
base[0]=base[0]; |
base[0]=base[0]; |
3293 |
return Cnil; |
return Cnil; |
3294 |
} |
} |
3295 |
/* local entry for function SET-METHODS */ |
/* local entry for function SET-METHODS */ |
3296 |
|
|
3297 |
static object LI45(V655,V656) |
static object LI45(V660,V661) |
3298 |
|
|
3299 |
register object V655;register object V656; |
register object V660;register object V661; |
3300 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
3301 |
goto TTL; |
goto TTL; |
3302 |
TTL:; |
TTL:; |
3303 |
base[0]= Cnil; |
base[0]= Cnil; |
3304 |
base[1]= V655; |
base[1]= V660; |
3305 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3306 |
(void) (*Lnk289)(Lclptr289); |
(void) (*Lnk289)(Lclptr289); |
3307 |
vs_top=sup; |
vs_top=sup; |
3308 |
goto T1349; |
goto T1349; |
3309 |
T1349:; |
T1349:; |
3310 |
if(((V656))!=Cnil){ |
if(((V661))!=Cnil){ |
3311 |
goto T1351;} |
goto T1351;} |
3312 |
{object V658 = (V655); |
{object V663 = (V660); |
3313 |
VMR41(V658)} |
VMR41(V663)} |
3314 |
goto T1351; |
goto T1351; |
3315 |
T1351:; |
T1351:; |
3316 |
{register object V660; |
V664 = (V660); |
3317 |
V660= CMPcar((V656)); |
{register object V666; |
3318 |
V656= CMPcdr((V656)); |
V666= CMPcar((V661)); |
3319 |
V659= (V660);} |
V661= CMPcdr((V661)); |
3320 |
(void)((VFUN_NARGS=3,(*(LnkLI290))((V655),V659,(V656)))); |
V665= (V666);} |
3321 |
|
V667 = (V661); |
3322 |
|
(void)((VFUN_NARGS=3,(*(LnkLI290))(V664,V665,V667))); |
3323 |
goto T1349; |
goto T1349; |
3324 |
base[0]=base[0]; |
base[0]=base[0]; |
3325 |
return Cnil; |
return Cnil; |
3326 |
} |
} |
3327 |
/* local entry for function REAL-ADD-METHOD */ |
/* local entry for function REAL-ADD-METHOD */ |
3328 |
|
|
3329 |
static object LI46(object V662,object V661,object first,...) |
static object LI46(object V669,object V668,object first,...) |
3330 |
{ |
{ |
3331 |
va_list ap; |
va_list ap; |
3332 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
3333 |
{register object V663; |
{register object V670; |
3334 |
register object V664; |
register object V671; |
3335 |
object V665; |
object V672; |
3336 |
va_start(ap,first); |
va_start(ap,first); |
3337 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3338 |
V663= V662; |
V670= V669; |
3339 |
V664= V661; |
V671= V668; |
3340 |
narg = narg - 2; |
narg = narg - 2; |
3341 |
if (narg <= 0) goto T1359; |
if (narg <= 0) goto T1359; |
3342 |
else { |
else { |
3343 |
V665= first;} |
V672= first;} |
3344 |
--narg; goto T1360; |
--narg; goto T1360; |
3345 |
goto T1359; |
goto T1359; |
3346 |
T1359:; |
T1359:; |
3347 |
V665= Cnil; |
V672= Cnil; |
3348 |
goto T1360; |
goto T1360; |
3349 |
T1360:; |
T1360:; |
3350 |
base[0]= (V664); |
base[0]= (V671); |
3351 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3352 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3353 |
vs_top=sup; |
vs_top=sup; |
3354 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3355 |
goto T1363;} |
goto T1363;} |
3356 |
base[0]= VV[103]; |
base[0]= VV[103]; |
3357 |
base[1]= (V664); |
base[1]= (V671); |
3358 |
base[3]= (V664); |
base[3]= (V671); |
3359 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3360 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3361 |
vs_top=sup; |
vs_top=sup; |
3363 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3364 |
Lerror(); |
Lerror(); |
3365 |
vs_top=sup; |
vs_top=sup; |
3366 |
{object V666 = vs_base[0]; |
{object V673 = vs_base[0]; |
3367 |
VMR42(V666)} |
VMR42(V673)} |
3368 |
goto T1363; |
goto T1363; |
3369 |
T1363:; |
T1363:; |
3370 |
{object V667; |
{object V674; |
3371 |
object V668; |
object V675; |
3372 |
object V669; |
object V676; |
3373 |
object V670; |
object V677; |
3374 |
base[4]= (V663); |
base[4]= (V670); |
3375 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3376 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
3377 |
vs_top=sup; |
vs_top=sup; |
3378 |
V667= vs_base[0]; |
V674= vs_base[0]; |
3379 |
base[4]= (V664); |
base[4]= (V671); |
3380 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3381 |
(void) (*Lnk229)(Lclptr229); |
(void) (*Lnk229)(Lclptr229); |
3382 |
vs_top=sup; |
vs_top=sup; |
3383 |
V668= vs_base[0]; |
V675= vs_base[0]; |
3384 |
base[4]= (V664); |
base[4]= (V671); |
3385 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3386 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
3387 |
vs_top=sup; |
vs_top=sup; |
3388 |
V669= vs_base[0]; |
V676= vs_base[0]; |
3389 |
V670= (VFUN_NARGS=4,(*(LnkLI266))((V663),(V668),(V669),Cnil)); |
V677= (VFUN_NARGS=4,(*(LnkLI266))((V670),(V675),(V676),Cnil)); |
3390 |
if(((V670))==Cnil){ |
if(((V677))==Cnil){ |
3391 |
goto T1377;} |
goto T1377;} |
3392 |
base[4]= (V663); |
base[4]= (V670); |
3393 |
base[5]= (V670); |
base[5]= (V677); |
3394 |
(void)simple_symlispcall(VV[268],base+4,2); |
(void)simple_symlispcall(VV[268],base+4,2); |
3395 |
goto T1377; |
goto T1377; |
3396 |
T1377:; |
T1377:; |
3397 |
base[4]= (V663); |
base[4]= (V670); |
3398 |
base[5]= V664; |
base[5]= V671; |
3399 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3400 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
3401 |
vs_top=sup; |
vs_top=sup; |
3402 |
{object V674; |
{object V681; |
3403 |
base[5]= V664; |
base[5]= V671; |
3404 |
base[7]= V663; |
base[7]= V670; |
3405 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3406 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
3407 |
vs_top=sup; |
vs_top=sup; |
3409 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3410 |
Ladjoin(); |
Ladjoin(); |
3411 |
vs_top=sup; |
vs_top=sup; |
3412 |
V674= vs_base[0]; |
V681= vs_base[0]; |
3413 |
base[5]= (V674); |
base[5]= (V681); |
3414 |
base[6]= V663; |
base[6]= V670; |
3415 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3416 |
(void) (*Lnk289)(Lclptr289); |
(void) (*Lnk289)(Lclptr289); |
3417 |
vs_top=sup;} |
vs_top=sup;} |
3418 |
{register object V676; |
{register object V683; |
3419 |
register object V677; |
register object V684; |
3420 |
V676= (V669); |
V683= (V676); |
3421 |
V677= CMPcar((V676)); |
V684= CMPcar((V683)); |
3422 |
goto T1396; |
goto T1396; |
3423 |
T1396:; |
T1396:; |
3424 |
if(!(((V676))==Cnil)){ |
if(!(((V683))==Cnil)){ |
3425 |
goto T1397;} |
goto T1397;} |
3426 |
goto T1392; |
goto T1392; |
3427 |
goto T1397; |
goto T1397; |
3428 |
T1397:; |
T1397:; |
3429 |
base[5]= (V677); |
base[5]= (V684); |
3430 |
base[6]= (V664); |
base[6]= (V671); |
3431 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3432 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk292)(Lclptr292); |
3433 |
vs_top=sup; |
vs_top=sup; |
3434 |
V676= CMPcdr((V676)); |
V683= CMPcdr((V683)); |
3435 |
V677= CMPcar((V676)); |
V684= CMPcar((V683)); |
3436 |
goto T1396;} |
goto T1396;} |
3437 |
goto T1392; |
goto T1392; |
3438 |
T1392:; |
T1392:; |
3439 |
(void)((VFUN_NARGS=3,(*(LnkLI286))((V663),VV[104],(V664)))); |
(void)((VFUN_NARGS=3,(*(LnkLI286))((V670),VV[104],(V671)))); |
3440 |
if(((V665))!=Cnil){ |
if(((V672))!=Cnil){ |
3441 |
goto T1410;} |
goto T1410;} |
3442 |
{register object x= (V667),V678= VV[105]; |
{register object x= (V674),V685= VV[105]; |
3443 |
while(V678!=Cnil) |
while(V685!=Cnil) |
3444 |
if(eql(x,V678->c.c_car)){ |
if(eql(x,V685->c.c_car)){ |
3445 |
goto T1415; |
goto T1415; |
3446 |
}else V678=V678->c.c_cdr; |
}else V685=V685->c.c_cdr; |
3447 |
goto T1413;} |
goto T1413;} |
3448 |
goto T1415; |
goto T1415; |
3449 |
T1415:; |
T1415:; |
3450 |
base[4]= (*(LnkLI293))(CMPcar((V669))); |
base[4]= (*(LnkLI293))(CMPcar((V676))); |
3451 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3452 |
(void) (*Lnk294)(); |
(void) (*Lnk294)(); |
3453 |
vs_top=sup; |
vs_top=sup; |
3454 |
goto T1413; |
goto T1413; |
3455 |
T1413:; |
T1413:; |
3456 |
(void)((VFUN_NARGS=1,(*(LnkLI288))((V663)))); |
(void)((VFUN_NARGS=1,(*(LnkLI288))((V670)))); |
3457 |
goto T1410; |
goto T1410; |
3458 |
T1410:; |
T1410:; |
3459 |
{object V679 = (V664); |
{object V686 = (V671); |
3460 |
VMR42(V679)}} |
VMR42(V686)}} |
3461 |
va_end(ap); |
va_end(ap); |
3462 |
base[0]=base[0]; |
base[0]=base[0]; |
3463 |
return Cnil;} |
return Cnil;} |
3464 |
} |
} |
3465 |
/* local entry for function REAL-REMOVE-METHOD */ |
/* local entry for function REAL-REMOVE-METHOD */ |
3466 |
|
|
3467 |
static object LI47(V682,V683) |
static object LI47(V689,V690) |
3468 |
|
|
3469 |
register object V682;register object V683; |
register object V689;register object V690; |
3470 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
3471 |
goto TTL; |
goto TTL; |
3472 |
TTL:; |
TTL:; |
3473 |
base[0]= (V683); |
V691 = (V689); |
3474 |
|
base[0]= (V690); |
3475 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3476 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3477 |
vs_top=sup; |
vs_top=sup; |
3478 |
V684= vs_base[0]; |
V692= vs_base[0]; |
3479 |
if(!(((((V682))==(V684)?Ct:Cnil))==Cnil)){ |
if(!((((V691)==(V692)?Ct:Cnil))==Cnil)){ |
3480 |
goto T1418;} |
goto T1418;} |
3481 |
base[0]= VV[106]; |
base[0]= VV[106]; |
3482 |
base[1]= (V683); |
base[1]= (V690); |
3483 |
base[3]= (V683); |
base[3]= (V690); |
3484 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3485 |
(void) (*Lnk227)(Lclptr227); |
(void) (*Lnk227)(Lclptr227); |
3486 |
vs_top=sup; |
vs_top=sup; |
3488 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3489 |
Lerror(); |
Lerror(); |
3490 |
vs_top=sup; |
vs_top=sup; |
3491 |
{object V685 = vs_base[0]; |
{object V693 = vs_base[0]; |
3492 |
VMR43(V685)} |
VMR43(V693)} |
3493 |
goto T1418; |
goto T1418; |
3494 |
T1418:; |
T1418:; |
3495 |
{object V686; |
{object V694; |
3496 |
object V687; |
object V695; |
3497 |
object V688; |
object V696; |
3498 |
object V689; |
object V697; |
3499 |
base[4]= (V682); |
base[4]= (V689); |
3500 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3501 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
3502 |
vs_top=sup; |
vs_top=sup; |
3503 |
V686= vs_base[0]; |
V694= vs_base[0]; |
3504 |
base[4]= (V683); |
base[4]= (V690); |
3505 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3506 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
3507 |
vs_top=sup; |
vs_top=sup; |
3508 |
V687= vs_base[0]; |
V695= vs_base[0]; |
3509 |
base[4]= (V682); |
base[4]= (V689); |
3510 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3511 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
3512 |
vs_top=sup; |
vs_top=sup; |
3513 |
V688= vs_base[0]; |
V696= vs_base[0]; |
3514 |
base[4]= (V683); |
base[4]= (V690); |
3515 |
base[5]= (V688); |
base[5]= (V696); |
3516 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3517 |
(void) (*Lnk295)(); |
(void) (*Lnk295)(); |
3518 |
vs_top=sup; |
vs_top=sup; |
3519 |
V689= vs_base[0]; |
V697= vs_base[0]; |
3520 |
base[4]= Cnil; |
base[4]= Cnil; |
3521 |
base[5]= V683; |
base[5]= V690; |
3522 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3523 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
3524 |
vs_top=sup; |
vs_top=sup; |
3525 |
base[4]= (V689); |
base[4]= (V697); |
3526 |
base[5]= V682; |
base[5]= V689; |
3527 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3528 |
(void) (*Lnk289)(Lclptr289); |
(void) (*Lnk289)(Lclptr289); |
3529 |
vs_top=sup; |
vs_top=sup; |
3530 |
{register object V692; |
{register object V700; |
3531 |
register object V693; |
register object V701; |
3532 |
base[6]= (V683); |
base[6]= (V690); |
3533 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3534 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
3535 |
vs_top=sup; |
vs_top=sup; |
3536 |
V692= vs_base[0]; |
V700= vs_base[0]; |
3537 |
V693= CMPcar((V692)); |
V701= CMPcar((V700)); |
3538 |
goto T1446; |
goto T1446; |
3539 |
T1446:; |
T1446:; |
3540 |
if(!(((V692))==Cnil)){ |
if(!(((V700))==Cnil)){ |
3541 |
goto T1447;} |
goto T1447;} |
3542 |
goto T1441; |
goto T1441; |
3543 |
goto T1447; |
goto T1447; |
3544 |
T1447:; |
T1447:; |
3545 |
base[6]= (V693); |
base[6]= (V701); |
3546 |
base[7]= (V683); |
base[7]= (V690); |
3547 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
3548 |
(void) (*Lnk296)(Lclptr296); |
(void) (*Lnk296)(Lclptr296); |
3549 |
vs_top=sup; |
vs_top=sup; |
3550 |
V692= CMPcdr((V692)); |
V700= CMPcdr((V700)); |
3551 |
V693= CMPcar((V692)); |
V701= CMPcar((V700)); |
3552 |
goto T1446;} |
goto T1446;} |
3553 |
goto T1441; |
goto T1441; |
3554 |
T1441:; |
T1441:; |
3555 |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V682)))); |
(void)((VFUN_NARGS=1,(*(LnkLI286))((V689)))); |
3556 |
{register object x= (V686),V694= VV[107]; |
{register object x= (V694),V702= VV[107]; |
3557 |
while(V694!=Cnil) |
while(V702!=Cnil) |
3558 |
if(eql(x,V694->c.c_car)){ |
if(eql(x,V702->c.c_car)){ |
3559 |
goto T1462; |
goto T1462; |
3560 |
}else V694=V694->c.c_cdr; |
}else V702=V702->c.c_cdr; |
3561 |
goto T1460;} |
goto T1460;} |
3562 |
goto T1462; |
goto T1462; |
3563 |
T1462:; |
T1462:; |
3564 |
base[4]= (*(LnkLI293))(CMPcar((V687))); |
base[4]= (*(LnkLI293))(CMPcar((V695))); |
3565 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3566 |
(void) (*Lnk294)(); |
(void) (*Lnk294)(); |
3567 |
vs_top=sup; |
vs_top=sup; |
3568 |
goto T1460; |
goto T1460; |
3569 |
T1460:; |
T1460:; |
3570 |
(void)((VFUN_NARGS=1,(*(LnkLI288))((V682)))); |
(void)((VFUN_NARGS=1,(*(LnkLI288))((V689)))); |
3571 |
{object V695 = (V682); |
{object V703 = (V689); |
3572 |
VMR43(V695)}} |
VMR43(V703)}} |
3573 |
base[0]=base[0]; |
base[0]=base[0]; |
3574 |
return Cnil; |
return Cnil; |
3575 |
} |
} |
3576 |
/* local entry for function COMPUTE-APPLICABLE-METHODS-FUNCTION */ |
/* local entry for function COMPUTE-APPLICABLE-METHODS-FUNCTION */ |
3577 |
|
|
3578 |
static object LI48(V698,V699) |
static object LI48(V706,V707) |
3579 |
|
|
3580 |
object V698;object V699; |
object V706;object V707; |
3581 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
3582 |
goto TTL; |
goto TTL; |
3583 |
TTL:; |
TTL:; |
3584 |
base[1]= (V698); |
base[1]= (V706); |
3585 |
base[3]= (V698); |
base[3]= (V706); |
3586 |
base[4]= (V699); |
base[4]= (V707); |
3587 |
base[5]= VV[108]; |
base[5]= VV[108]; |
3588 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3589 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
3595 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3596 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3597 |
vs_top=sup; |
vs_top=sup; |
3598 |
{object V700 = vs_base[0]; |
{object V708 = vs_base[0]; |
3599 |
VMR44(V700)} |
VMR44(V708)} |
3600 |
base[0]=base[0]; |
base[0]=base[0]; |
3601 |
return Cnil; |
return Cnil; |
3602 |
} |
} |
3603 |
/* local entry for function (FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) */ |
/* local entry for function (FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T)) */ |
3604 |
|
|
3605 |
static object LI49(V705,V706,V707,V708) |
static object LI49(V713,V714,V715,V716) |
3606 |
|
|
3607 |
object V705;object V706;object V707;object V708; |
object V713;object V714;object V715;object V716; |
3608 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
3609 |
goto TTL; |
goto TTL; |
3610 |
TTL:; |
TTL:; |
3611 |
base[1]= (V707); |
base[1]= (V715); |
3612 |
base[3]= (V707); |
base[3]= (V715); |
3613 |
base[4]= (V708); |
base[4]= (V716); |
3614 |
base[5]= VV[108]; |
base[5]= VV[108]; |
3615 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3616 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
3622 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3623 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3624 |
vs_top=sup; |
vs_top=sup; |
3625 |
{object V710 = vs_base[0]; |
{object V718 = vs_base[0]; |
3626 |
VMR45(V710)} |
VMR45(V718)} |
3627 |
base[0]=base[0]; |
base[0]=base[0]; |
3628 |
return Cnil; |
return Cnil; |
3629 |
} |
} |
3633 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3634 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
3635 |
vs_check; |
vs_check; |
3636 |
{object V711; |
{object V719; |
3637 |
object V712; |
object V720; |
3638 |
object V713; |
object V721; |
3639 |
object V714; |
object V722; |
3640 |
check_arg(4); |
check_arg(4); |
3641 |
V711=(base[0]); |
V719=(base[0]); |
3642 |
V712=(base[1]); |
V720=(base[1]); |
3643 |
V713=(base[2]); |
V721=(base[2]); |
3644 |
V714=(base[3]); |
V722=(base[3]); |
3645 |
vs_top=sup; |
vs_top=sup; |
3646 |
goto TTL; |
goto TTL; |
3647 |
TTL:; |
TTL:; |
3648 |
base[4]= (V713); |
base[4]= (V721); |
3649 |
base[6]= (V713); |
base[6]= (V721); |
3650 |
base[7]= (V714); |
base[7]= (V722); |
3651 |
base[8]= VV[109]; |
base[8]= VV[109]; |
3652 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3653 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
3660 |
} |
} |
3661 |
/* local entry for function PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
/* local entry for function PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
3662 |
|
|
3663 |
static object LI51(V717) |
static object LI51(V725) |
3664 |
|
|
3665 |
object V717; |
object V725; |
3666 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
3667 |
goto TTL; |
goto TTL; |
3668 |
TTL:; |
TTL:; |
3669 |
{object V718; |
{object V726; |
3670 |
object V719= (V717); |
object V727= (V725); |
3671 |
if(V719==Cnil){ |
if(V727==Cnil){ |
3672 |
V717= Cnil; |
V725= Cnil; |
3673 |
goto T1489;} |
goto T1489;} |
3674 |
base[0]=V718=MMcons(Cnil,Cnil); |
base[0]=V726=MMcons(Cnil,Cnil); |
3675 |
goto T1490; |
goto T1490; |
3676 |
T1490:; |
T1490:; |
3677 |
if(!(type_of((V719->c.c_car))==t_symbol)){ |
if(!(type_of((V727->c.c_car))==t_symbol)){ |
3678 |
goto T1493;} |
goto T1493;} |
3679 |
(V718->c.c_car)= (VFUN_NARGS=1,(*(LnkLI260))((V719->c.c_car))); |
(V726->c.c_car)= (VFUN_NARGS=1,(*(LnkLI260))((V727->c.c_car))); |
3680 |
goto T1491; |
goto T1491; |
3681 |
goto T1493; |
goto T1493; |
3682 |
T1493:; |
T1493:; |
3683 |
(V718->c.c_car)= (V719->c.c_car); |
(V726->c.c_car)= (V727->c.c_car); |
3684 |
goto T1491; |
goto T1491; |
3685 |
T1491:; |
T1491:; |
3686 |
if((V719=MMcdr(V719))==Cnil){ |
if((V727=MMcdr(V727))==Cnil){ |
3687 |
V717= base[0]; |
V725= base[0]; |
3688 |
goto T1489;} |
goto T1489;} |
3689 |
V718=MMcdr(V718)=MMcons(Cnil,Cnil); |
V726=MMcdr(V726)=MMcons(Cnil,Cnil); |
3690 |
goto T1490;} |
goto T1490;} |
3691 |
goto T1489; |
goto T1489; |
3692 |
T1489:; |
T1489:; |
3693 |
{register object V721; |
{register object V729; |
3694 |
register object V722; |
register object V730; |
3695 |
V721= (V717); |
V729= (V725); |
3696 |
V722= CMPcar((V721)); |
V730= CMPcar((V729)); |
3697 |
goto T1498; |
goto T1498; |
3698 |
T1498:; |
T1498:; |
3699 |
if(!(((V721))==Cnil)){ |
if(!(((V729))==Cnil)){ |
3700 |
goto T1499;} |
goto T1499;} |
3701 |
{object V723 = Cnil; |
{object V731 = Cnil; |
3702 |
VMR47(V723)} |
VMR47(V731)} |
3703 |
goto T1499; |
goto T1499; |
3704 |
T1499:; |
T1499:; |
3705 |
{register object V724; |
{register object V732; |
3706 |
register object V725; |
register object V733; |
3707 |
V724= (V717); |
V732= (V725); |
3708 |
V725= CMPcar((V724)); |
V733= CMPcar((V732)); |
3709 |
goto T1507; |
goto T1507; |
3710 |
T1507:; |
T1507:; |
3711 |
if(!(((V724))==Cnil)){ |
if(!(((V732))==Cnil)){ |
3712 |
goto T1508;} |
goto T1508;} |
3713 |
goto T1503; |
goto T1503; |
3714 |
goto T1508; |
goto T1508; |
3715 |
T1508:; |
T1508:; |
3716 |
if(((V722))==((V725))){ |
if(((V730))==((V733))){ |
3717 |
goto T1512;} |
goto T1512;} |
3718 |
{register object V726; |
{register object V734; |
3719 |
register object V727; |
register object V735; |
3720 |
register object V728; |
register object V736; |
3721 |
V726= (V725); |
V734= (V733); |
3722 |
V727= (V722); |
V735= (V730); |
3723 |
base[3]= (V726); |
base[3]= (V734); |
3724 |
base[5]= (V727); |
base[5]= (V735); |
3725 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3726 |
(void) (*Lnk299)(Lclptr299); |
(void) (*Lnk299)(Lclptr299); |
3727 |
vs_top=sup; |
vs_top=sup; |
3729 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3730 |
Ladjoin(); |
Ladjoin(); |
3731 |
vs_top=sup; |
vs_top=sup; |
3732 |
V728= vs_base[0]; |
V736= vs_base[0]; |
3733 |
{register object V729; |
{register object V737; |
3734 |
V729= (V727); |
V737= (V735); |
3735 |
base[3]= (V728); |
base[3]= (V736); |
3736 |
base[4]= (V729); |
base[4]= (V737); |
3737 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3738 |
(void) (*Lnk300)(Lclptr300); |
(void) (*Lnk300)(Lclptr300); |
3739 |
vs_top=sup;}} |
vs_top=sup;}} |
3740 |
goto T1512; |
goto T1512; |
3741 |
T1512:; |
T1512:; |
3742 |
V724= CMPcdr((V724)); |
V732= CMPcdr((V732)); |
3743 |
V725= CMPcar((V724)); |
V733= CMPcar((V732)); |
3744 |
goto T1507;} |
goto T1507;} |
3745 |
goto T1503; |
goto T1503; |
3746 |
T1503:; |
T1503:; |
3747 |
V721= CMPcdr((V721)); |
V729= CMPcdr((V729)); |
3748 |
V722= CMPcar((V721)); |
V730= CMPcar((V729)); |
3749 |
goto T1498;} |
goto T1498;} |
3750 |
base[0]=base[0]; |
base[0]=base[0]; |
3751 |
return Cnil; |
return Cnil; |
3752 |
} |
} |
3753 |
/* local entry for function SUPERCLASSES-COMPATIBLE-P */ |
/* local entry for function SUPERCLASSES-COMPATIBLE-P */ |
3754 |
|
|
3755 |
static object LI52(V732,V733) |
static object LI52(V740,V741) |
3756 |
|
|
3757 |
object V732;object V733; |
object V740;object V741; |
3758 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3759 |
goto TTL; |
goto TTL; |
3760 |
TTL:; |
TTL:; |
3761 |
{object V734; |
{object V742; |
3762 |
register object V735; |
register object V743; |
3763 |
base[0]= (V732); |
base[0]= (V740); |
3764 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3765 |
(void) (*Lnk155)(Lclptr155); |
(void) (*Lnk155)(Lclptr155); |
3766 |
vs_top=sup; |
vs_top=sup; |
3767 |
V734= vs_base[0]; |
V742= vs_base[0]; |
3768 |
base[0]= (V733); |
base[0]= (V741); |
3769 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3770 |
(void) (*Lnk155)(Lclptr155); |
(void) (*Lnk155)(Lclptr155); |
3771 |
vs_top=sup; |
vs_top=sup; |
3772 |
V735= vs_base[0]; |
V743= vs_base[0]; |
3773 |
{register object V736; |
{register object V744; |
3774 |
register object V737; |
register object V745; |
3775 |
V736= (V734); |
V744= (V742); |
3776 |
V737= CMPcar((V736)); |
V745= CMPcar((V744)); |
3777 |
goto T1540; |
goto T1540; |
3778 |
T1540:; |
T1540:; |
3779 |
if(!(((V736))==Cnil)){ |
if(!(((V744))==Cnil)){ |
3780 |
goto T1541;} |
goto T1541;} |
3781 |
{object V738 = Ct; |
{object V746 = Ct; |
3782 |
VMR48(V738)} |
VMR48(V746)} |
3783 |
goto T1541; |
goto T1541; |
3784 |
T1541:; |
T1541:; |
3785 |
{register object V739; |
{register object V747; |
3786 |
register object V740; |
register object V748; |
3787 |
base[3]= (V737); |
base[3]= (V745); |
3788 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3789 |
(void) (*Lnk299)(Lclptr299); |
(void) (*Lnk299)(Lclptr299); |
3790 |
vs_top=sup; |
vs_top=sup; |
3791 |
V739= vs_base[0]; |
V747= vs_base[0]; |
3792 |
V740= CMPcar((V739)); |
V748= CMPcar((V747)); |
3793 |
goto T1550; |
goto T1550; |
3794 |
T1550:; |
T1550:; |
3795 |
if(!(((V739))==Cnil)){ |
if(!(((V747))==Cnil)){ |
3796 |
goto T1551;} |
goto T1551;} |
3797 |
goto T1545; |
goto T1545; |
3798 |
goto T1551; |
goto T1551; |
3799 |
T1551:; |
T1551:; |
3800 |
{register object x= (V740),V741= (V735); |
{register object x= (V748),V749= (V743); |
3801 |
while(V741!=Cnil) |
while(V749!=Cnil) |
3802 |
if(x==(V741->c.c_car)){ |
if(x==(V749->c.c_car)){ |
3803 |
goto T1557; |
goto T1557; |
3804 |
}else V741=V741->c.c_cdr; |
}else V749=V749->c.c_cdr; |
3805 |
goto T1555;} |
goto T1555;} |
3806 |
goto T1557; |
goto T1557; |
3807 |
T1557:; |
T1557:; |
3808 |
{object V742 = Cnil; |
{object V750 = Cnil; |
3809 |
VMR48(V742)} |
VMR48(V750)} |
3810 |
goto T1555; |
goto T1555; |
3811 |
T1555:; |
T1555:; |
3812 |
V739= CMPcdr((V739)); |
V747= CMPcdr((V747)); |
3813 |
V740= CMPcar((V739)); |
V748= CMPcar((V747)); |
3814 |
goto T1550;} |
goto T1550;} |
3815 |
goto T1545; |
goto T1545; |
3816 |
T1545:; |
T1545:; |
3817 |
V736= CMPcdr((V736)); |
V744= CMPcdr((V744)); |
3818 |
V737= CMPcar((V736)); |
V745= CMPcar((V744)); |
3819 |
goto T1540;}} |
goto T1540;}} |
3820 |
base[0]=base[0]; |
base[0]=base[0]; |
3821 |
return Cnil; |
return Cnil; |
3822 |
} |
} |
3823 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER)) */ |
3824 |
|
|
3825 |
static object LI53(V747,V748,V749,V750) |
static object LI53(V755,V756,V757,V758) |
3826 |
|
|
3827 |
object V747;object V748;object V749;object V750; |
object V755;object V756;object V757;object V758; |
3828 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
3829 |
goto TTL; |
goto TTL; |
3830 |
TTL:; |
TTL:; |
3831 |
{object V752 = Cnil; |
{object V760 = Cnil; |
3832 |
VMR49(V752)} |
VMR49(V760)} |
3833 |
return Cnil; |
return Cnil; |
3834 |
} |
} |
3835 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS)) */ |
3836 |
|
|
3837 |
static object LI54(V757,V758,V759,V760) |
static object LI54(V765,V766,V767,V768) |
3838 |
|
|
3839 |
object V757;object V758;object V759;object V760; |
object V765;object V766;object V767;object V768; |
3840 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3841 |
goto TTL; |
goto TTL; |
3842 |
TTL:; |
TTL:; |
3843 |
{object V762 = (((V759))==((V760))?Ct:Cnil); |
{object V770 = (((V767))==((V768))?Ct:Cnil); |
3844 |
VMR50(V762)} |
VMR50(V770)} |
3845 |
return Cnil; |
return Cnil; |
3846 |
} |
} |
3847 |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (CLASS)) */ |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (CLASS)) */ |
3848 |
|
|
3849 |
static object LI55(V766,V767,V768) |
static object LI55(V774,V775,V776) |
3850 |
|
|
3851 |
object V766;object V767;object V768; |
object V774;object V775;object V776; |
3852 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
3853 |
goto TTL; |
goto TTL; |
3854 |
TTL:; |
TTL:; |
3855 |
{object V770 = (V768); |
{object V778 = (V776); |
3856 |
VMR51(V770)} |
VMR51(V778)} |
3857 |
return Cnil; |
return Cnil; |
3858 |
} |
} |
3859 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER)) */ |
3860 |
|
|
3861 |
static object LI56(V775,V776,V777,V778) |
static object LI56(V783,V784,V785,V786) |
3862 |
|
|
3863 |
object V775;object V776;object V777;object V778; |
object V783;object V784;object V785;object V786; |
3864 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
3865 |
goto TTL; |
goto TTL; |
3866 |
TTL:; |
TTL:; |
3867 |
base[0]= (V777); |
base[0]= (V785); |
3868 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3869 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
3870 |
vs_top=sup; |
vs_top=sup; |
3871 |
V780= vs_base[0]; |
V788= vs_base[0]; |
3872 |
base[0]= (V778); |
base[0]= (V786); |
3873 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3874 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
3875 |
vs_top=sup; |
vs_top=sup; |
3876 |
V781= vs_base[0]; |
V789= vs_base[0]; |
3877 |
{object V782 = ((V780)==(V781)?Ct:Cnil); |
{object V790 = ((V788)==(V789)?Ct:Cnil); |
3878 |
VMR52(V782)} |
VMR52(V790)} |
3879 |
base[0]=base[0]; |
base[0]=base[0]; |
3880 |
return Cnil; |
return Cnil; |
3881 |
} |
} |
3882 |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER)) */ |
3883 |
|
|
3884 |
static object LI57(V787,V788,V789,V790) |
static object LI57(V795,V796,V797,V798) |
3885 |
|
|
3886 |
object V787;object V788;object V789;object V790; |
object V795;object V796;object V797;object V798; |
3887 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3888 |
goto TTL; |
goto TTL; |
3889 |
TTL:; |
TTL:; |
3890 |
base[0]= (V789); |
base[0]= (V797); |
3891 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3892 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk302)(Lclptr302); |
3893 |
vs_top=sup; |
vs_top=sup; |
3894 |
V792= vs_base[0]; |
V800= vs_base[0]; |
3895 |
base[0]= (V790); |
base[0]= (V798); |
3896 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3897 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk302)(Lclptr302); |
3898 |
vs_top=sup; |
vs_top=sup; |
3899 |
V793= vs_base[0]; |
V801= vs_base[0]; |
3900 |
{object V794 = ((V792)==(V793)?Ct:Cnil); |
{object V802 = ((V800)==(V801)?Ct:Cnil); |
3901 |
VMR53(V794)} |
VMR53(V802)} |
3902 |
base[0]=base[0]; |
base[0]=base[0]; |
3903 |
return Cnil; |
return Cnil; |
3904 |
} |
} |
3905 |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) */ |
/* local entry for function (FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER)) */ |
3906 |
|
|
3907 |
static object LI58(V798,V799,V800) |
static object LI58(V806,V807,V808) |
3908 |
|
|
3909 |
object V798;object V799;register object V800; |
object V806;object V807;register object V808; |
3910 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3911 |
goto TTL; |
goto TTL; |
3912 |
TTL:; |
TTL:; |
3913 |
{object V802; |
{object V810; |
3914 |
object V803; |
object V811; |
3915 |
V802= CMPcar((V798)); |
V810= CMPcar((V806)); |
3916 |
V803= CMPcdr((V798)); |
V811= CMPcdr((V806)); |
3917 |
{object V804; |
{object V812; |
3918 |
if(type_of(V800)==t_structure){ |
if(type_of(V808)==t_structure){ |
3919 |
goto T1605;} |
goto T1605;} |
3920 |
goto T1603; |
goto T1603; |
3921 |
goto T1605; |
goto T1605; |
3922 |
T1605:; |
T1605:; |
3923 |
if(!(((V800)->str.str_def)==(VV[110]))){ |
if(!(((V808)->str.str_def)==(VV[110]))){ |
3924 |
goto T1603;} |
goto T1603;} |
3925 |
V804= STREF(object,(V800),4); |
V812= STREF(object,(V808),4); |
3926 |
goto T1601; |
goto T1601; |
3927 |
goto T1603; |
goto T1603; |
3928 |
T1603:;{object V806; |
T1603:;{object V814; |
3929 |
V806= (VV[13]->s.s_dbind); |
V814= (VV[13]->s.s_dbind); |
3930 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3931 |
base[1]= (V800); |
base[1]= (V808); |
3932 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3933 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3934 |
vs_top=sup; |
vs_top=sup; |
3935 |
V807= vs_base[0]; |
V815= vs_base[0]; |
3936 |
if(!((V806)==(CMPcar(V807)))){ |
if(!((V814)==(CMPcar(V815)))){ |
3937 |
goto T1608;}} |
goto T1608;}} |
3938 |
V804= CMPcar(((V800))->cc.cc_turbo[12]); |
V812= CMPcar(((V808))->cc.cc_turbo[12]); |
3939 |
goto T1601; |
goto T1601; |
3940 |
goto T1608; |
goto T1608; |
3941 |
T1608:; |
T1608:; |
3942 |
V804= Cnil; |
V812= Cnil; |
3943 |
goto T1601; |
goto T1601; |
3944 |
T1601:; |
T1601:; |
3945 |
{register object V809; |
{register object V817; |
3946 |
V809= ((V802))->v.v_self[1]; |
V817= ((V810))->v.v_self[1]; |
3947 |
if(!(type_of(V809)==t_fixnum)){ |
if(!(type_of(V817)==t_fixnum)){ |
3948 |
goto T1619;} |
goto T1619;} |
3949 |
V809= ((V804))->v.v_self[fix((V809))]; |
V817= ((V812))->v.v_self[fix((V817))]; |
3950 |
goto T1617; |
goto T1617; |
3951 |
goto T1619; |
goto T1619; |
3952 |
T1619:; |
T1619:; |
3953 |
V809= VV[14]; |
V817= VV[14]; |
3954 |
goto T1617; |
goto T1617; |
3955 |
T1617:; |
T1617:; |
3956 |
if(!(((V809))==(VV[14]))){ |
if(!(((V817))==(VV[14]))){ |
3957 |
goto T1622;} |
goto T1622;} |
3958 |
base[0]= (V800); |
base[0]= (V808); |
3959 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3960 |
(void) (*Lnk303)(Lclptr303); |
(void) (*Lnk303)(Lclptr303); |
3961 |
vs_top=sup; |
vs_top=sup; |
3962 |
V808= vs_base[0]; |
V816= vs_base[0]; |
3963 |
goto T1614; |
goto T1614; |
3964 |
goto T1622; |
goto T1622; |
3965 |
T1622:; |
T1622:; |
3966 |
V808= (V809);} |
V816= (V817);} |
3967 |
goto T1614; |
goto T1614; |
3968 |
T1614:; |
T1614:; |
3969 |
{object V811 = (*(LnkLI149))(V808); |
{object V819 = (*(LnkLI149))(V816); |
3970 |
VMR54(V811)}}} |
VMR54(V819)}}} |
3971 |
base[0]=base[0]; |
base[0]=base[0]; |
3972 |
return Cnil; |
return Cnil; |
3973 |
} |
} |
3977 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3978 |
register object *sup=base+VM55; VC55 |
register object *sup=base+VM55; VC55 |
3979 |
vs_check; |
vs_check; |
3980 |
{object V812; |
{object V820; |
3981 |
register object V813; |
register object V821; |
3982 |
register object V814; |
register object V822; |
3983 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3984 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
3985 |
V812=(base[0]); |
V820=(base[0]); |
3986 |
V813=(base[1]); |
V821=(base[1]); |
3987 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
3988 |
if(vs_base>=vs_top){vs_top=sup;goto T1625;} |
if(vs_base>=vs_top){vs_top=sup;goto T1625;} |
3989 |
V814=(base[2]); |
V822=(base[2]); |
3990 |
vs_top=sup; |
vs_top=sup; |
3991 |
goto T1626; |
goto T1626; |
3992 |
goto T1625; |
goto T1625; |
3993 |
T1625:; |
T1625:; |
3994 |
V814= Cnil; |
V822= Cnil; |
3995 |
goto T1626; |
goto T1626; |
3996 |
T1626:; |
T1626:; |
3997 |
{object V815; |
{object V823; |
3998 |
object V816; |
object V824; |
3999 |
object V817; |
object V825; |
4000 |
object V818; |
object V826; |
4001 |
object V819; |
object V827; |
4002 |
base[3]= (V812); |
base[3]= (V820); |
4003 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4004 |
(void) (*Lnk304)(); |
(void) (*Lnk304)(); |
4005 |
if(vs_base>=vs_top){vs_top=sup;goto T1630;} |
if(vs_base>=vs_top){vs_top=sup;goto T1630;} |
4006 |
V815= vs_base[0]; |
V823= vs_base[0]; |
4007 |
vs_base++; |
vs_base++; |
4008 |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
4009 |
V816= vs_base[0]; |
V824= vs_base[0]; |
4010 |
vs_base++; |
vs_base++; |
4011 |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
4012 |
V817= vs_base[0]; |
V825= vs_base[0]; |
4013 |
vs_base++; |
vs_base++; |
4014 |
if(vs_base>=vs_top){vs_top=sup;goto T1633;} |
if(vs_base>=vs_top){vs_top=sup;goto T1633;} |
4015 |
V818= vs_base[0]; |
V826= vs_base[0]; |
4016 |
vs_base++; |
vs_base++; |
4017 |
if(vs_base>=vs_top){vs_top=sup;goto T1634;} |
if(vs_base>=vs_top){vs_top=sup;goto T1634;} |
4018 |
V819= vs_base[0]; |
V827= vs_base[0]; |
4019 |
vs_top=sup; |
vs_top=sup; |
4020 |
goto T1635; |
goto T1635; |
4021 |
goto T1630; |
goto T1630; |
4022 |
T1630:; |
T1630:; |
4023 |
V815= Cnil; |
V823= Cnil; |
4024 |
goto T1631; |
goto T1631; |
4025 |
T1631:; |
T1631:; |
4026 |
V816= Cnil; |
V824= Cnil; |
4027 |
goto T1632; |
goto T1632; |
4028 |
T1632:; |
T1632:; |
4029 |
V817= Cnil; |
V825= Cnil; |
4030 |
goto T1633; |
goto T1633; |
4031 |
T1633:; |
T1633:; |
4032 |
V818= Cnil; |
V826= Cnil; |
4033 |
goto T1634; |
goto T1634; |
4034 |
T1634:; |
T1634:; |
4035 |
V819= Cnil; |
V827= Cnil; |
4036 |
goto T1635; |
goto T1635; |
4037 |
T1635:; |
T1635:; |
4038 |
{register object V820; |
{register object V828; |
4039 |
V820= Cnil; |
V828= Cnil; |
4040 |
{long V821; |
{long V829; |
4041 |
register long V822; |
register long V830; |
4042 |
V821= fix((V815)); |
V829= fix((V823)); |
4043 |
V822= 0; |
V830= 0; |
4044 |
goto T1640; |
goto T1640; |
4045 |
T1640:; |
T1640:; |
4046 |
if(!((V822)>=(V821))){ |
if(!((V830)>=(V829))){ |
4047 |
goto T1641;} |
goto T1641;} |
4048 |
goto T1636; |
goto T1636; |
4049 |
goto T1641; |
goto T1641; |
4050 |
T1641:; |
T1641:; |
4051 |
if(((V813))!=Cnil){ |
if(((V821))!=Cnil){ |
4052 |
goto T1644;} |
goto T1644;} |
4053 |
base[3]= VV[111]; |
base[3]= VV[111]; |
4054 |
base[5]= (V812); |
base[5]= (V820); |
4055 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4056 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
4057 |
vs_top=sup; |
vs_top=sup; |
4058 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
4059 |
base[5]= (V815); |
base[5]= (V823); |
4060 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4061 |
Lerror(); |
Lerror(); |
4062 |
vs_top=sup; |
vs_top=sup; |
4063 |
goto T1644; |
goto T1644; |
4064 |
T1644:; |
T1644:; |
4065 |
{register object V823; |
{register object V831; |
4066 |
{register object V824; |
{register object V832; |
4067 |
V824= CMPcar((V813)); |
V832= CMPcar((V821)); |
4068 |
V813= CMPcdr((V813)); |
V821= CMPcdr((V821)); |
4069 |
V823= (V824);} |
V831= (V832);} |
4070 |
{register object V825; |
{register object V833; |
4071 |
if(((V814))==Cnil){ |
if(((V822))==Cnil){ |
4072 |
goto T1658;} |
goto T1658;} |
4073 |
V825= list(2,(V814),(V823)); |
V833= list(2,(V822),(V831)); |
4074 |
goto T1656; |
goto T1656; |
4075 |
goto T1658; |
goto T1658; |
4076 |
T1658:; |
T1658:; |
4077 |
V825= (V823); |
V833= (V831); |
4078 |
goto T1656; |
goto T1656; |
4079 |
T1656:; |
T1656:; |
4080 |
V820= make_cons((V825),(V820));}} |
V828= make_cons((V833),(V828));}} |
4081 |
V822= (long)(V822)+1; |
V830= (long)(V830)+1; |
4082 |
goto T1640;} |
goto T1640;} |
4083 |
goto T1636; |
goto T1636; |
4084 |
T1636:; |
T1636:; |
4085 |
base[3]= nreverse((V820)); |
base[3]= nreverse((V828)); |
4086 |
base[4]= (V819); |
base[4]= (V827); |
4087 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4088 |
return;}} |
return;}} |
4089 |
} |
} |
4090 |
} |
} |
4091 |
/* local entry for function GET-WRAPPERS-FROM-CLASSES */ |
/* local entry for function GET-WRAPPERS-FROM-CLASSES */ |
4092 |
|
|
4093 |
static object LI60(V830,V831,V832,V833) |
static object LI60(V838,V839,V840,V841) |
4094 |
|
|
4095 |
object V830;object V831;object V832;object V833; |
object V838;object V839;object V840;object V841; |
4096 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
4097 |
goto TTL; |
goto TTL; |
4098 |
TTL:; |
TTL:; |
4099 |
{object V834; |
{object V842; |
4100 |
register object V835; |
register object V843; |
4101 |
register object V836; |
register object V844; |
4102 |
V834= (V831); |
V842= (V839); |
4103 |
V835= (V834); |
V843= (V842); |
4104 |
V836= (V833); |
V844= (V841); |
4105 |
{register object V837; |
{register object V845; |
4106 |
register object V838; |
register object V846; |
4107 |
if(!(type_of((V832))==t_cons||((V832))==Cnil)){ |
if(!(type_of((V840))==t_cons||((V840))==Cnil)){ |
4108 |
goto T1672;} |
goto T1672;} |
4109 |
V837= (V832); |
V845= (V840); |
4110 |
goto T1670; |
goto T1670; |
4111 |
goto T1672; |
goto T1672; |
4112 |
T1672:; |
T1672:; |
4113 |
V837= make_cons((V832),Cnil); |
V845= make_cons((V840),Cnil); |
4114 |
goto T1670; |
goto T1670; |
4115 |
T1670:; |
T1670:; |
4116 |
V838= CMPcar((V837)); |
V846= CMPcar((V845)); |
4117 |
goto T1676; |
goto T1676; |
4118 |
T1676:; |
T1676:; |
4119 |
if(!(((V837))==Cnil)){ |
if(!(((V845))==Cnil)){ |
4120 |
goto T1677;} |
goto T1677;} |
4121 |
goto T1669; |
goto T1669; |
4122 |
goto T1677; |
goto T1677; |
4123 |
T1677:; |
T1677:; |
4124 |
if((Ct)==(CMPcar((V836)))){ |
if((Ct)==(CMPcar((V844)))){ |
4125 |
goto T1681;} |
goto T1681;} |
4126 |
{register object V839; |
{register object V847; |
4127 |
base[2]= (V838); |
base[2]= (V846); |
4128 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4129 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk305)(Lclptr305); |
4130 |
vs_top=sup; |
vs_top=sup; |
4131 |
V839= vs_base[0]; |
V847= vs_base[0]; |
4132 |
if(((V839))!=Cnil){ |
if(((V847))!=Cnil){ |
4133 |
goto T1686;} |
goto T1686;} |
4134 |
{object V840 = Cnil; |
{object V848 = Cnil; |
4135 |
VMR56(V840)} |
VMR56(V848)} |
4136 |
goto T1686; |
goto T1686; |
4137 |
T1686:; |
T1686:; |
4138 |
if(!(eql((V830),small_fixnum(1)))){ |
if(!(eql((V838),small_fixnum(1)))){ |
4139 |
goto T1690;} |
goto T1690;} |
4140 |
V834= (V839); |
V842= (V847); |
4141 |
goto T1681; |
goto T1681; |
4142 |
goto T1690; |
goto T1690; |
4143 |
T1690:; |
T1690:; |
4144 |
{register object V842; |
{register object V850; |
4145 |
V842= (V839); |
V850= (V847); |
4146 |
(V835)->c.c_car = (V842);} |
(V843)->c.c_car = (V850);} |
4147 |
V835= CMPcdr((V835));} |
V843= CMPcdr((V843));} |
4148 |
goto T1681; |
goto T1681; |
4149 |
T1681:; |
T1681:; |
4150 |
V836= CMPcdr((V836)); |
V844= CMPcdr((V844)); |
4151 |
V837= CMPcdr((V837)); |
V845= CMPcdr((V845)); |
4152 |
V838= CMPcar((V837)); |
V846= CMPcar((V845)); |
4153 |
goto T1676;} |
goto T1676;} |
4154 |
goto T1669; |
goto T1669; |
4155 |
T1669:; |
T1669:; |
4156 |
{object V843 = (V834); |
{object V851 = (V842); |
4157 |
VMR56(V843)}} |
VMR56(V851)}} |
4158 |
base[0]=base[0]; |
base[0]=base[0]; |
4159 |
return Cnil; |
return Cnil; |
4160 |
} |
} |
4164 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4165 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
4166 |
vs_check; |
vs_check; |
4167 |
{object V844; |
{object V852; |
4168 |
object V845; |
object V853; |
4169 |
check_arg(2); |
check_arg(2); |
4170 |
V844=(base[0]); |
V852=(base[0]); |
4171 |
V845=(base[1]); |
V853=(base[1]); |
4172 |
vs_top=sup; |
vs_top=sup; |
4173 |
goto TTL; |
goto TTL; |
4174 |
TTL:; |
TTL:; |
4175 |
{object V846; |
{object V854; |
4176 |
base[3]=VV[306]->s.s_gfdef; |
base[3]=VV[306]->s.s_gfdef; |
4177 |
{object V847; |
{object V855; |
4178 |
object V848= (V845); |
object V856= (V853); |
4179 |
if(V848==Cnil){ |
if(V856==Cnil){ |
4180 |
V846= Cnil; |
V854= Cnil; |
4181 |
goto T1704;} |
goto T1704;} |
4182 |
base[2]=V847=MMcons(Cnil,Cnil); |
base[2]=V855=MMcons(Cnil,Cnil); |
4183 |
goto T1705; |
goto T1705; |
4184 |
T1705:; |
T1705:; |
4185 |
base[4]= (V848->c.c_car); |
base[4]= (V856->c.c_car); |
4186 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4187 |
(void) (*Lnk306)(); |
(void) (*Lnk306)(); |
4188 |
vs_top=sup; |
vs_top=sup; |
4189 |
(V847->c.c_car)= vs_base[0]; |
(V855->c.c_car)= vs_base[0]; |
4190 |
if((V848=MMcdr(V848))==Cnil){ |
if((V856=MMcdr(V856))==Cnil){ |
4191 |
V846= base[2]; |
V854= base[2]; |
4192 |
goto T1704;} |
goto T1704;} |
4193 |
V847=MMcdr(V847)=MMcons(Cnil,Cnil); |
V855=MMcdr(V855)=MMcons(Cnil,Cnil); |
4194 |
goto T1705;} |
goto T1705;} |
4195 |
goto T1704; |
goto T1704; |
4196 |
T1704:; |
T1704:; |
4197 |
{object V849; |
{object V857; |
4198 |
object V850; |
object V858; |
4199 |
base[2]= (V844); |
base[2]= (V852); |
4200 |
base[3]= (V846); |
base[3]= (V854); |
4201 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4202 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
4203 |
if(vs_base>=vs_top){vs_top=sup;goto T1711;} |
if(vs_base>=vs_top){vs_top=sup;goto T1711;} |
4204 |
V849= vs_base[0]; |
V857= vs_base[0]; |
4205 |
vs_base++; |
vs_base++; |
4206 |
if(vs_base>=vs_top){vs_top=sup;goto T1712;} |
if(vs_base>=vs_top){vs_top=sup;goto T1712;} |
4207 |
V850= vs_base[0]; |
V858= vs_base[0]; |
4208 |
vs_top=sup; |
vs_top=sup; |
4209 |
goto T1713; |
goto T1713; |
4210 |
goto T1711; |
goto T1711; |
4211 |
T1711:; |
T1711:; |
4212 |
V849= Cnil; |
V857= Cnil; |
4213 |
goto T1712; |
goto T1712; |
4214 |
T1712:; |
T1712:; |
4215 |
V850= Cnil; |
V858= Cnil; |
4216 |
goto T1713; |
goto T1713; |
4217 |
T1713:; |
T1713:; |
4218 |
base[2]= (VFUN_NARGS=6,(*(LnkLI307))((V844),(V849),(V846),Cnil,Ct,(V850))); |
base[2]= (VFUN_NARGS=6,(*(LnkLI307))((V852),(V857),(V854),Cnil,Ct,(V858))); |
4219 |
base[3]= Cnil; |
base[3]= Cnil; |
4220 |
base[6]=VV[305]->s.s_gfdef; |
base[6]=VV[305]->s.s_gfdef; |
4221 |
{object V851; |
{object V859; |
4222 |
object V852= (V845); |
object V860= (V853); |
4223 |
if(V852==Cnil){ |
if(V860==Cnil){ |
4224 |
base[4]= Cnil; |
base[4]= Cnil; |
4225 |
goto T1716;} |
goto T1716;} |
4226 |
base[5]=V851=MMcons(Cnil,Cnil); |
base[5]=V859=MMcons(Cnil,Cnil); |
4227 |
goto T1717; |
goto T1717; |
4228 |
T1717:; |
T1717:; |
4229 |
base[7]= (V852->c.c_car); |
base[7]= (V860->c.c_car); |
4230 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4231 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk305)(Lclptr305); |
4232 |
vs_top=sup; |
vs_top=sup; |
4233 |
(V851->c.c_car)= vs_base[0]; |
(V859->c.c_car)= vs_base[0]; |
4234 |
if((V852=MMcdr(V852))==Cnil){ |
if((V860=MMcdr(V860))==Cnil){ |
4235 |
base[4]= base[5]; |
base[4]= base[5]; |
4236 |
goto T1716;} |
goto T1716;} |
4237 |
V851=MMcdr(V851)=MMcons(Cnil,Cnil); |
V859=MMcdr(V859)=MMcons(Cnil,Cnil); |
4238 |
goto T1717;} |
goto T1717;} |
4239 |
goto T1716; |
goto T1716; |
4240 |
T1716:; |
T1716:; |
4248 |
} |
} |
4249 |
/* local entry for function VALUE-FOR-CACHING */ |
/* local entry for function VALUE-FOR-CACHING */ |
4250 |
|
|
4251 |
static object LI62(V855,V856) |
static object LI62(V863,V864) |
4252 |
|
|
4253 |
object V855;object V856; |
object V863;object V864; |
4254 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
4255 |
goto TTL; |
goto TTL; |
4256 |
TTL:; |
TTL:; |
4257 |
{object V857; |
{object V865; |
4258 |
base[0]= (V855); |
base[0]= (V863); |
4259 |
base[3]=VV[306]->s.s_gfdef; |
base[3]=VV[306]->s.s_gfdef; |
4260 |
{object V858; |
{object V866; |
4261 |
object V859= (V856); |
object V867= (V864); |
4262 |
if(V859==Cnil){ |
if(V867==Cnil){ |
4263 |
base[1]= Cnil; |
base[1]= Cnil; |
4264 |
goto T1722;} |
goto T1722;} |
4265 |
base[2]=V858=MMcons(Cnil,Cnil); |
base[2]=V866=MMcons(Cnil,Cnil); |
4266 |
goto T1723; |
goto T1723; |
4267 |
T1723:; |
T1723:; |
4268 |
base[4]= (V859->c.c_car); |
base[4]= (V867->c.c_car); |
4269 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4270 |
(void) (*Lnk306)(); |
(void) (*Lnk306)(); |
4271 |
vs_top=sup; |
vs_top=sup; |
4272 |
(V858->c.c_car)= vs_base[0]; |
(V866->c.c_car)= vs_base[0]; |
4273 |
if((V859=MMcdr(V859))==Cnil){ |
if((V867=MMcdr(V867))==Cnil){ |
4274 |
base[1]= base[2]; |
base[1]= base[2]; |
4275 |
goto T1722;} |
goto T1722;} |
4276 |
V858=MMcdr(V858)=MMcons(Cnil,Cnil); |
V866=MMcdr(V866)=MMcons(Cnil,Cnil); |
4277 |
goto T1723;} |
goto T1723;} |
4278 |
goto T1722; |
goto T1722; |
4279 |
T1722:; |
T1722:; |
4280 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4281 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
4282 |
vs_top=sup; |
vs_top=sup; |
4283 |
V857= vs_base[0];{object V861; |
V865= vs_base[0];{object V869; |
4284 |
base[0]= CMPcar((V857)); |
base[0]= CMPcar((V865)); |
4285 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4286 |
(void) (*Lnk309)(Lclptr309); |
(void) (*Lnk309)(Lclptr309); |
4287 |
vs_top=sup; |
vs_top=sup; |
4288 |
V861= vs_base[0]; |
V869= vs_base[0]; |
4289 |
if(V861==Cnil)goto T1727; |
if(V869==Cnil)goto T1727; |
4290 |
V860= V861; |
V868= V869; |
4291 |
goto T1726; |
goto T1726; |
4292 |
goto T1727; |
goto T1727; |
4293 |
T1727:;} |
T1727:;} |
4294 |
base[0]= CMPcar((V857)); |
base[0]= CMPcar((V865)); |
4295 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4296 |
(void) (*Lnk310)(Lclptr310); |
(void) (*Lnk310)(Lclptr310); |
4297 |
vs_top=sup; |
vs_top=sup; |
4298 |
V860= vs_base[0]; |
V868= vs_base[0]; |
4299 |
goto T1726; |
goto T1726; |
4300 |
T1726:; |
T1726:; |
4301 |
{object V862 = (VFUN_NARGS=2,(*(LnkLI308))(V860,VV[112])); |
{object V870 = (VFUN_NARGS=2,(*(LnkLI308))(V868,VV[112])); |
4302 |
VMR58(V862)}} |
VMR58(V870)}} |
4303 |
base[0]=base[0]; |
base[0]=base[0]; |
4304 |
return Cnil; |
return Cnil; |
4305 |
} |
} |
4306 |
/* local entry for function DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
/* local entry for function DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
4307 |
|
|
4308 |
static object LI64(V864) |
static object LI64(V872) |
4309 |
|
|
4310 |
object V864; |
object V872; |
4311 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
4312 |
goto TTL; |
goto TTL; |
4313 |
TTL:; |
TTL:; |
4314 |
base[0]=MMcons((V864),Cnil); |
base[0]=MMcons((V872),Cnil); |
4315 |
{object V865 = |
{object V873 = |
4316 |
make_cclosure_new(LC124,Cnil,base[0],Cdata); |
make_cclosure_new(LC124,Cnil,base[0],Cdata); |
4317 |
VMR59(V865)} |
VMR59(V873)} |
4318 |
base[0]=base[0]; |
base[0]=base[0]; |
4319 |
return Cnil; |
return Cnil; |
4320 |
} |
} |
4321 |
/* local entry for function LIST-EQ */ |
/* local entry for function LIST-EQ */ |
4322 |
|
|
4323 |
static object LI65(V868,V869) |
static object LI65(V876,V877) |
4324 |
|
|
4325 |
register object V868;register object V869; |
register object V876;register object V877; |
4326 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
4327 |
goto TTL; |
goto TTL; |
4328 |
TTL:; |
TTL:; |
4329 |
goto T1732; |
goto T1732; |
4330 |
T1732:; |
T1732:; |
4331 |
if(!(type_of((V868))!=t_cons)){ |
if(!(type_of((V876))!=t_cons)){ |
4332 |
goto T1734;} |
goto T1734;} |
4333 |
{object V870 = (((V868))==((V869))?Ct:Cnil); |
{object V878 = (((V876))==((V877))?Ct:Cnil); |
4334 |
VMR60(V870)} |
VMR60(V878)} |
4335 |
goto T1734; |
goto T1734; |
4336 |
T1734:; |
T1734:; |
4337 |
if(!(type_of((V869))!=t_cons)){ |
if(!(type_of((V877))!=t_cons)){ |
4338 |
goto T1737;} |
goto T1737;} |
4339 |
{object V871 = Cnil; |
{object V879 = Cnil; |
4340 |
VMR60(V871)} |
VMR60(V879)} |
4341 |
goto T1737; |
goto T1737; |
4342 |
T1737:; |
T1737:; |
4343 |
if((CMPcar((V868)))==(CMPcar((V869)))){ |
if((CMPcar((V876)))==(CMPcar((V877)))){ |
4344 |
goto T1740;} |
goto T1740;} |
4345 |
{object V872 = Cnil; |
{object V880 = Cnil; |
4346 |
VMR60(V872)} |
VMR60(V880)} |
4347 |
goto T1740; |
goto T1740; |
4348 |
T1740:; |
T1740:; |
4349 |
V868= CMPcdr((V868)); |
V876= CMPcdr((V876)); |
4350 |
V869= CMPcdr((V869)); |
V877= CMPcdr((V877)); |
4351 |
goto T1732; |
goto T1732; |
4352 |
return Cnil; |
return Cnil; |
4353 |
} |
} |
4357 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4358 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
4359 |
vs_check; |
vs_check; |
4360 |
{object V873; |
{object V881; |
4361 |
check_arg(1); |
check_arg(1); |
4362 |
V873=(base[0]); |
V881=(base[0]); |
4363 |
vs_top=sup; |
vs_top=sup; |
4364 |
goto TTL; |
goto TTL; |
4365 |
TTL:; |
TTL:; |
4366 |
if(!(((VV[113]->s.s_dbind))==(VV[114]))){ |
if(!(((VV[113]->s.s_dbind))==(VV[114]))){ |
4367 |
goto T1748;} |
goto T1748;} |
4368 |
{register object V874; |
{register object V882; |
4369 |
object V875; |
object V883; |
4370 |
V874= (*(LnkLI311))(VV[115]); |
V882= (*(LnkLI311))(VV[115]); |
4371 |
base[3]= (V874); |
base[3]= (V882); |
4372 |
base[4]= list(2,list(2,VV[108],(V873)),Ct); |
base[4]= list(2,list(2,VV[108],(V881)),Ct); |
4373 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4374 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
4375 |
vs_top=sup; |
vs_top=sup; |
4376 |
V875= vs_base[0]; |
V883= vs_base[0]; |
4377 |
base[4]= (V874); |
base[4]= (V882); |
4378 |
base[5]= (V875); |
base[5]= (V883); |
4379 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4380 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
4381 |
vs_top=sup; |
vs_top=sup; |
4382 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
4383 |
|
V884 = (V883); |
4384 |
if((VV[116]->s.s_dbind)!=Cnil){ |
if((VV[116]->s.s_dbind)!=Cnil){ |
4385 |
V876= (VV[116]->s.s_dbind); |
V885= (VV[116]->s.s_dbind); |
4386 |
goto T1758;} |
goto T1758;} |
4387 |
base[5]= (V874); |
base[5]= (V882); |
4388 |
base[6]= list(2,list(2,VV[108],(V874)),Ct); |
base[6]= list(2,list(2,VV[108],(V882)),Ct); |
4389 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4390 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
4391 |
vs_top=sup; |
vs_top=sup; |
4392 |
(VV[116]->s.s_dbind)= vs_base[0]; |
(VV[116]->s.s_dbind)= vs_base[0]; |
4393 |
V876= (VV[116]->s.s_dbind); |
V885= (VV[116]->s.s_dbind); |
4394 |
goto T1758; |
goto T1758; |
4395 |
T1758:; |
T1758:; |
4396 |
base[4]= (*(LnkLI313))((V875),V876); |
base[4]= (*(LnkLI313))(V884,V885); |
4397 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4398 |
return;} |
return;} |
4399 |
goto T1748; |
goto T1748; |
4406 |
} |
} |
4407 |
/* local entry for function COMPUTE-APPLICABLE-METHODS-EMF-STD-P */ |
/* local entry for function COMPUTE-APPLICABLE-METHODS-EMF-STD-P */ |
4408 |
|
|
4409 |
static object LI67(V878) |
static object LI67(V887) |
4410 |
|
|
4411 |
object V878; |
object V887; |
4412 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
4413 |
goto TTL; |
goto TTL; |
4414 |
TTL:; |
TTL:; |
4415 |
base[0]= (V878); |
base[0]= (V887); |
4416 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4417 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
4418 |
vs_top=sup; |
vs_top=sup; |
4419 |
V879= vs_base[0]; |
V888= vs_base[0]; |
4420 |
{object V880 = STREF(object,V879,36); |
{object V889 = STREF(object,V888,36); |
4421 |
VMR62(V880)} |
VMR62(V889)} |
4422 |
base[0]=base[0]; |
base[0]=base[0]; |
4423 |
return Cnil; |
return Cnil; |
4424 |
} |
} |
4425 |
/* local entry for function UPDATE-ALL-C-A-M-GF-INFO */ |
/* local entry for function UPDATE-ALL-C-A-M-GF-INFO */ |
4426 |
|
|
4427 |
static object LI68(V882) |
static object LI68(V891) |
4428 |
|
|
4429 |
object V882; |
object V891; |
4430 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
4431 |
goto TTL; |
goto TTL; |
4432 |
TTL:; |
TTL:; |
4433 |
base[1]= (V882); |
base[1]= (V891); |
4434 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4435 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
4436 |
vs_top=sup; |
vs_top=sup; |
4448 |
goto T1770;} |
goto T1770;} |
4449 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
4450 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
4451 |
{register object V883; |
{register object V892; |
4452 |
register object V884; |
register object V893; |
4453 |
V883= (base[0]->c.c_car); |
V892= (base[0]->c.c_car); |
4454 |
V884= CMPcar((V883)); |
V893= CMPcar((V892)); |
4455 |
goto T1780; |
goto T1780; |
4456 |
T1780:; |
T1780:; |
4457 |
if(!(((V883))==Cnil)){ |
if(!(((V892))==Cnil)){ |
4458 |
goto T1781;} |
goto T1781;} |
4459 |
goto T1776; |
goto T1776; |
4460 |
goto T1781; |
goto T1781; |
4461 |
T1781:; |
T1781:; |
4462 |
{register object x= (V884),V885= (VV[117]->s.s_dbind); |
{register object x= (V893),V894= (VV[117]->s.s_dbind); |
4463 |
while(V885!=Cnil) |
while(V894!=Cnil) |
4464 |
if(eql(x,V885->c.c_car)){ |
if(eql(x,V894->c.c_car)){ |
4465 |
goto T1785; |
goto T1785; |
4466 |
}else V885=V885->c.c_cdr;} |
}else V894=V894->c.c_cdr;} |
4467 |
{register object V886; |
{register object V895; |
4468 |
base[4]= (V884); |
base[4]= (V893); |
4469 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4470 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
4471 |
vs_top=sup; |
vs_top=sup; |
4472 |
V887= vs_base[0]; |
V896= vs_base[0]; |
4473 |
V886= CMPcar(V887); |
V895= CMPcar(V896); |
4474 |
base[4]= (V886); |
base[4]= (V895); |
4475 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4476 |
(void) (*Lnk238)(Lclptr238); |
(void) (*Lnk238)(Lclptr238); |
4477 |
vs_top=sup; |
vs_top=sup; |
4478 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4479 |
goto T1792;} |
goto T1792;} |
4480 |
{object V888; |
{object V897; |
4481 |
base[5]= (V886); |
base[5]= (V895); |
4482 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4483 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk302)(Lclptr302); |
4484 |
vs_top=sup; |
vs_top=sup; |
4485 |
V888= vs_base[0]; |
V897= vs_base[0]; |
4486 |
base[5]= (V888); |
base[5]= (V897); |
4487 |
base[6]= (base[1]->c.c_car); |
base[6]= (base[1]->c.c_car); |
4488 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4489 |
Ladjoin(); |
Ladjoin(); |
4492 |
goto T1785;} |
goto T1785;} |
4493 |
goto T1792; |
goto T1792; |
4494 |
T1792:; |
T1792:; |
4495 |
{object V889; |
{object V898; |
4496 |
base[5]= (V886); |
base[5]= (V895); |
4497 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4498 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
4499 |
vs_top=sup; |
vs_top=sup; |
4500 |
V889= vs_base[0]; |
V898= vs_base[0]; |
4501 |
base[5]= (V889); |
base[5]= (V898); |
4502 |
base[6]= (base[2]->c.c_car); |
base[6]= (base[2]->c.c_car); |
4503 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
4504 |
Ladjoin(); |
Ladjoin(); |
4506 |
(base[2]->c.c_car)= vs_base[0];}} |
(base[2]->c.c_car)= vs_base[0];}} |
4507 |
goto T1785; |
goto T1785; |
4508 |
T1785:; |
T1785:; |
4509 |
V883= CMPcdr((V883)); |
V892= CMPcdr((V892)); |
4510 |
V884= CMPcar((V883)); |
V893= CMPcar((V892)); |
4511 |
goto T1780;} |
goto T1780;} |
4512 |
goto T1776; |
goto T1776; |
4513 |
T1776:; |
T1776:; |
4514 |
V890= |
V899= |
4515 |
make_cclosure_new(LC126,Cnil,base[2],Cdata); |
make_cclosure_new(LC126,Cnil,base[2],Cdata); |
4516 |
(void)((*(LnkLI316))(V890)); |
(void)((*(LnkLI316))(V899)); |
4517 |
goto T1768; |
goto T1768; |
4518 |
goto T1770; |
goto T1770; |
4519 |
T1770:; |
T1770:; |
4520 |
V891= (VV[317]->s.s_gfdef); |
V900= (VV[317]->s.s_gfdef); |
4521 |
(void)((*(LnkLI316))(V891)); |
(void)((*(LnkLI316))(V900)); |
4522 |
goto T1768; |
goto T1768; |
4523 |
T1768:; |
T1768:; |
4524 |
(VV[117]->s.s_dbind)= (base[0]->c.c_car); |
(VV[117]->s.s_dbind)= (base[0]->c.c_car); |
4525 |
{object V892 = (VV[117]->s.s_dbind); |
{object V901 = (VV[117]->s.s_dbind); |
4526 |
VMR63(V892)} |
VMR63(V901)} |
4527 |
base[0]=base[0]; |
base[0]=base[0]; |
4528 |
return Cnil; |
return Cnil; |
4529 |
} |
} |
4530 |
/* local entry for function UPDATE-GF-INFO */ |
/* local entry for function UPDATE-GF-INFO */ |
4531 |
|
|
4532 |
static object LI69(V894) |
static object LI69(V903) |
4533 |
|
|
4534 |
object V894; |
object V903; |
4535 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
4536 |
goto TTL; |
goto TTL; |
4537 |
TTL:; |
TTL:; |
4538 |
(void)((*(LnkLI317))((V894))); |
(void)((*(LnkLI317))((V903))); |
4539 |
{object V895 = (*(LnkLI318))((V894)); |
{object V904 = (*(LnkLI318))((V903)); |
4540 |
VMR64(V895)} |
VMR64(V904)} |
4541 |
return Cnil; |
return Cnil; |
4542 |
} |
} |
4543 |
/* local entry for function UPDATE-C-A-M-GF-INFO */ |
/* local entry for function UPDATE-C-A-M-GF-INFO */ |
4544 |
|
|
4545 |
static object LI70(V897) |
static object LI70(V906) |
4546 |
|
|
4547 |
object V897; |
object V906; |
4548 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
4549 |
goto TTL; |
goto TTL; |
4550 |
TTL:; |
TTL:; |
4551 |
if(((*(LnkLI319))((V897)))!=Cnil){ |
if(((*(LnkLI319))((V906)))!=Cnil){ |
4552 |
goto T1815;} |
goto T1815;} |
4553 |
{object V898; |
{object V907; |
4554 |
object V899; |
object V908; |
4555 |
base[0]= (V897); |
base[0]= (V906); |
4556 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4557 |
(void) (*Lnk320)(); |
(void) (*Lnk320)(); |
4558 |
if(vs_base>=vs_top){vs_top=sup;goto T1819;} |
if(vs_base>=vs_top){vs_top=sup;goto T1819;} |
4559 |
V898= vs_base[0]; |
V907= vs_base[0]; |
4560 |
vs_base++; |
vs_base++; |
4561 |
if(vs_base>=vs_top){vs_top=sup;goto T1820;} |
if(vs_base>=vs_top){vs_top=sup;goto T1820;} |
4562 |
V899= vs_base[0]; |
V908= vs_base[0]; |
4563 |
vs_top=sup; |
vs_top=sup; |
4564 |
goto T1821; |
goto T1821; |
4565 |
goto T1819; |
goto T1819; |
4566 |
T1819:; |
T1819:; |
4567 |
V898= Cnil; |
V907= Cnil; |
4568 |
goto T1820; |
goto T1820; |
4569 |
T1820:; |
T1820:; |
4570 |
V899= Cnil; |
V908= Cnil; |
4571 |
goto T1821; |
goto T1821; |
4572 |
T1821:; |
T1821:; |
4573 |
{object V900; |
{object V909; |
4574 |
base[0]= (V897); |
base[0]= (V906); |
4575 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4576 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
4577 |
vs_top=sup; |
vs_top=sup; |
4578 |
V900= vs_base[0]; |
V909= vs_base[0]; |
4579 |
V901= Ct; |
V910 = (V909); |
4580 |
STSET(object,(V900),32, (V898)); |
V911 = (V907); |
4581 |
(void)((V898)); |
V912= Ct; |
4582 |
V902= Ct; |
STSET(object,V910,32, V911); |
4583 |
STSET(object,(V900),36, (V899)); |
(void)(V911); |
4584 |
{object V903 = (V899); |
V913 = (V909); |
4585 |
VMR65(V903)}}} |
V914 = (V908); |
4586 |
|
V915= Ct; |
4587 |
|
STSET(object,V913,36, V914); |
4588 |
|
{object V916 = V914; |
4589 |
|
VMR65(V916)}}} |
4590 |
goto T1815; |
goto T1815; |
4591 |
T1815:; |
T1815:; |
4592 |
{object V904 = Cnil; |
{object V917 = Cnil; |
4593 |
VMR65(V904)} |
VMR65(V917)} |
4594 |
base[0]=base[0]; |
base[0]=base[0]; |
4595 |
return Cnil; |
return Cnil; |
4596 |
} |
} |
4597 |
/* local entry for function UPDATE-GF-SIMPLE-ACCESSOR-TYPE */ |
/* local entry for function UPDATE-GF-SIMPLE-ACCESSOR-TYPE */ |
4598 |
|
|
4599 |
static object LI71(V906) |
static object LI71(V919) |
4600 |
|
|
4601 |
object V906; |
object V919; |
4602 |
{ VMB66 VMS66 VMV66 |
{ VMB66 VMS66 VMV66 |
4603 |
goto TTL; |
goto TTL; |
4604 |
TTL:; |
TTL:; |
4605 |
{object V907; |
{object V920; |
4606 |
base[0]= (V906); |
base[0]= (V919); |
4607 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4608 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
4609 |
vs_top=sup; |
vs_top=sup; |
4610 |
V907= vs_base[0]; |
V920= vs_base[0]; |
4611 |
{object V909; |
V921 = (V920); |
4612 |
register object V910; |
{object V923; |
4613 |
object V911; |
register object V924; |
4614 |
base[3]= (V906); |
object V925; |
4615 |
|
base[3]= (V919); |
4616 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4617 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
4618 |
vs_top=sup; |
vs_top=sup; |
4619 |
V909= vs_base[0]; |
V923= vs_base[0]; |
4620 |
if((V909)==Cnil){ |
if((V923)==Cnil){ |
4621 |
V910= Cnil; |
V924= Cnil; |
4622 |
goto T1830;} |
goto T1830;} |
4623 |
V910= (*(LnkLI149))(CMPcar((V909))); |
V924= (*(LnkLI149))(CMPcar((V923))); |
4624 |
goto T1830; |
goto T1830; |
4625 |
T1830:; |
T1830:; |
4626 |
if((V910)==Cnil){ |
if((V924)==Cnil){ |
4627 |
V911= Cnil; |
V925= Cnil; |
4628 |
goto T1831;} |
goto T1831;} |
4629 |
if(!(((V910))==((VV[118]->s.s_dbind)))){ |
if(!(((V924))==((VV[118]->s.s_dbind)))){ |
4630 |
goto T1833;} |
goto T1833;} |
4631 |
V911= VV[119]; |
V925= VV[119]; |
4632 |
goto T1831; |
goto T1831; |
4633 |
goto T1833; |
goto T1833; |
4634 |
T1833:; |
T1833:; |
4635 |
if(!(((V910))==((VV[120]->s.s_dbind)))){ |
if(!(((V924))==((VV[120]->s.s_dbind)))){ |
4636 |
goto T1836;} |
goto T1836;} |
4637 |
V911= VV[121]; |
V925= VV[121]; |
4638 |
goto T1831; |
goto T1831; |
4639 |
goto T1836; |
goto T1836; |
4640 |
T1836:; |
T1836:; |
4641 |
if(!(((V910))==((VV[122]->s.s_dbind)))){ |
if(!(((V924))==((VV[122]->s.s_dbind)))){ |
4642 |
goto T1839;} |
goto T1839;} |
4643 |
V911= VV[123]; |
V925= VV[123]; |
4644 |
goto T1831; |
goto T1831; |
4645 |
goto T1839; |
goto T1839; |
4646 |
T1839:; |
T1839:; |
4647 |
V911= Cnil; |
V925= Cnil; |
4648 |
goto T1831; |
goto T1831; |
4649 |
T1831:; |
T1831:; |
4650 |
if((STREF(object,(V907),36))==Cnil){ |
if((STREF(object,(V920),36))==Cnil){ |
4651 |
goto T1842;} |
goto T1842;} |
4652 |
if(((V911))==Cnil){ |
if(((V925))==Cnil){ |
4653 |
goto T1842;} |
goto T1842;} |
4654 |
{register object V912; |
{register object V926; |
4655 |
register object V913; |
register object V927; |
4656 |
V912= CMPcdr((V909)); |
V926= CMPcdr((V923)); |
4657 |
V913= CMPcar((V912)); |
V927= CMPcar((V926)); |
4658 |
goto T1852; |
goto T1852; |
4659 |
T1852:; |
T1852:; |
4660 |
if(!(((V912))==Cnil)){ |
if(!(((V926))==Cnil)){ |
4661 |
goto T1853;} |
goto T1853;} |
4662 |
goto T1848; |
goto T1848; |
4663 |
goto T1853; |
goto T1853; |
4664 |
T1853:; |
T1853:; |
4665 |
V914= (*(LnkLI149))((V913)); |
V928 = (V924); |
4666 |
if(((V910))==(/* INLINE-ARGS */V914)){ |
V929= (*(LnkLI149))((V927)); |
4667 |
|
if((V928)==(/* INLINE-ARGS */V929)){ |
4668 |
goto T1857;} |
goto T1857;} |
4669 |
goto T1842; |
goto T1842; |
4670 |
goto T1857; |
goto T1857; |
4671 |
T1857:; |
T1857:; |
4672 |
V912= CMPcdr((V912)); |
V926= CMPcdr((V926)); |
4673 |
V913= CMPcar((V912)); |
V927= CMPcar((V926)); |
4674 |
goto T1852;} |
goto T1852;} |
4675 |
goto T1848; |
goto T1848; |
4676 |
T1848:; |
T1848:; |
4677 |
base[3]= (V906); |
base[3]= (V919); |
4678 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4679 |
(void) (*Lnk321)(Lclptr321); |
(void) (*Lnk321)(Lclptr321); |
4680 |
vs_top=sup; |
vs_top=sup; |
4681 |
V915= vs_base[0]; |
V930= vs_base[0]; |
4682 |
if(!((V915)==((VV[124]->s.s_dbind)))){ |
V931 = (VV[124]->s.s_dbind); |
4683 |
|
if(!((V930)==(V931))){ |
4684 |
goto T1842;} |
goto T1842;} |
4685 |
V908= (V911); |
V922= (V925); |
4686 |
goto T1827; |
goto T1827; |
4687 |
goto T1842; |
goto T1842; |
4688 |
T1842:; |
T1842:; |
4689 |
V908= Cnil;} |
V922= Cnil;} |
4690 |
goto T1827; |
goto T1827; |
4691 |
T1827:; |
T1827:; |
4692 |
V916= Ct; |
V932= Ct; |
4693 |
STSET(object,(V907),24, V908); |
STSET(object,V921,24, V922); |
4694 |
{object V917 = V908; |
{object V933 = V922; |
4695 |
VMR66(V917)}} |
VMR66(V933)}} |
4696 |
base[0]=base[0]; |
base[0]=base[0]; |
4697 |
return Cnil; |
return Cnil; |
4698 |
} |
} |
4702 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4703 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
4704 |
vs_check; |
vs_check; |
4705 |
{object V918; |
{object V934; |
4706 |
register object V919; |
register object V935; |
4707 |
register object V920; |
register object V936; |
4708 |
register object V921; |
register object V937; |
4709 |
check_arg(4); |
check_arg(4); |
4710 |
V918=(base[0]); |
V934=(base[0]); |
4711 |
V919=(base[1]); |
V935=(base[1]); |
4712 |
V920=(base[2]); |
V936=(base[2]); |
4713 |
V921=(base[3]); |
V937=(base[3]); |
4714 |
vs_top=sup; |
vs_top=sup; |
4715 |
goto TTL; |
goto TTL; |
4716 |
TTL:; |
TTL:; |
4717 |
{object V922; |
{object V938; |
4718 |
object V923; |
object V939; |
4719 |
object V924; |
object V940; |
4720 |
object V925; |
object V941; |
4721 |
register object V926; |
register object V942; |
4722 |
object V927; |
object V943; |
4723 |
V922= (*(LnkLI322))((V919)); |
V938= (*(LnkLI322))((V935)); |
4724 |
V923= (*(LnkLI323))((V919)); |
V939= (*(LnkLI323))((V935)); |
4725 |
V928= list(2,VV[108],(V920)); |
V944= list(2,VV[108],(V936)); |
4726 |
V929= list(2,VV[109],(V920)); |
V945= list(2,VV[109],(V936)); |
4727 |
V924= list(3,/* INLINE-ARGS */V928,/* INLINE-ARGS */V929,list(2,VV[108],(V921))); |
V940= list(3,/* INLINE-ARGS */V944,/* INLINE-ARGS */V945,list(2,VV[108],(V937))); |
4728 |
if(!(((V919))==(VV[121]))){ |
if(!(((V935))==(VV[121]))){ |
4729 |
goto T1873;} |
goto T1873;} |
4730 |
V925= make_cons(Ct,(V924)); |
V941= make_cons(Ct,(V940)); |
4731 |
goto T1871; |
goto T1871; |
4732 |
goto T1873; |
goto T1873; |
4733 |
T1873:; |
T1873:; |
4734 |
V925= (V924); |
V941= (V940); |
4735 |
goto T1871; |
goto T1871; |
4736 |
T1871:; |
T1871:; |
4737 |
base[10]= (V918); |
base[10]= (V934); |
4738 |
base[11]= (V925); |
base[11]= (V941); |
4739 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
4740 |
(void) (*Lnk298)(); |
(void) (*Lnk298)(); |
4741 |
vs_top=sup; |
vs_top=sup; |
4742 |
V926= vs_base[0]; |
V942= vs_base[0]; |
4743 |
V927= ((CMPcdr((V926)))==Cnil?Ct:Cnil); |
V943= ((CMPcdr((V942)))==Cnil?Ct:Cnil); |
4744 |
if(((V927))==Cnil){ |
if(((V943))==Cnil){ |
4745 |
goto T1881;} |
goto T1881;} |
4746 |
base[11]= (V920); |
base[11]= (V936); |
4747 |
base[12]= (V921); |
base[12]= (V937); |
4748 |
base[13]= (V919); |
base[13]= (V935); |
4749 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
4750 |
(void) (*Lnk324)(); |
(void) (*Lnk324)(); |
4751 |
vs_top=sup; |
vs_top=sup; |
4753 |
goto T1879; |
goto T1879; |
4754 |
goto T1881; |
goto T1881; |
4755 |
T1881:; |
T1881:; |
4756 |
base[11]= (V920); |
base[11]= (V936); |
4757 |
base[12]= (V921); |
base[12]= (V937); |
4758 |
base[14]= (V918); |
base[14]= (V934); |
4759 |
base[15]= (V926); |
base[15]= (V942); |
4760 |
base[16]= (V925);{object V931; |
base[16]= (V941);{object V947; |
4761 |
{register object x= (V922),V932= (V926); |
{register object x= (V938),V948= (V942); |
4762 |
while(V932!=Cnil) |
while(V948!=Cnil) |
4763 |
if(eql(x,V932->c.c_car)){ |
if(eql(x,V948->c.c_car)){ |
4764 |
V931= V932; |
V947= V948; |
4765 |
goto T1895; |
goto T1895; |
4766 |
}else V932=V932->c.c_cdr; |
}else V948=V948->c.c_cdr; |
4767 |
V931= Cnil;} |
V947= Cnil;} |
4768 |
goto T1895; |
goto T1895; |
4769 |
T1895:; |
T1895:; |
4770 |
if(V931==Cnil)goto T1894; |
if(V947==Cnil)goto T1894; |
4771 |
V930= V931; |
V946= V947; |
4772 |
goto T1893; |
goto T1893; |
4773 |
goto T1894; |
goto T1894; |
4774 |
T1894:;}{object V933; |
T1894:;}{object V949; |
4775 |
{register object x= (V923),V934= (V926); |
{register object x= (V939),V950= (V942); |
4776 |
while(V934!=Cnil) |
while(V950!=Cnil) |
4777 |
if(eql(x,V934->c.c_car)){ |
if(eql(x,V950->c.c_car)){ |
4778 |
V933= V934; |
V949= V950; |
4779 |
goto T1897; |
goto T1897; |
4780 |
}else V934=V934->c.c_cdr; |
}else V950=V950->c.c_cdr; |
4781 |
V933= Cnil;} |
V949= Cnil;} |
4782 |
goto T1897; |
goto T1897; |
4783 |
T1897:; |
T1897:; |
4784 |
if(V933==Cnil)goto T1896; |
if(V949==Cnil)goto T1896; |
4785 |
V930= V933; |
V946= V949; |
4786 |
goto T1893; |
goto T1893; |
4787 |
goto T1896; |
goto T1896; |
4788 |
T1896:;} |
T1896:;} |
4790 |
vs_top=(vs_base=base+18)+1; |
vs_top=(vs_base=base+18)+1; |
4791 |
Lerror(); |
Lerror(); |
4792 |
vs_top=sup; |
vs_top=sup; |
4793 |
V930= vs_base[0]; |
V946= vs_base[0]; |
4794 |
goto T1893; |
goto T1893; |
4795 |
T1893:; |
T1893:; |
4796 |
V935= CMPcar(V930); |
V951= CMPcar(V946); |
4797 |
base[18]= (V920); |
base[18]= (V936); |
4798 |
base[19]= (V921); |
base[19]= (V937); |
4799 |
base[20]= (V919); |
base[20]= (V935); |
4800 |
vs_top=(vs_base=base+18)+3; |
vs_top=(vs_base=base+18)+3; |
4801 |
(void) (*Lnk325)(); |
(void) (*Lnk325)(); |
4802 |
vs_top=sup; |
vs_top=sup; |
4803 |
V936= vs_base[0]; |
V952= vs_base[0]; |
4804 |
V937= list(2,/* INLINE-ARGS */V935,V936); |
V953= list(2,/* INLINE-ARGS */V951,V952); |
4805 |
base[17]= make_cons(/* INLINE-ARGS */V937,Cnil); |
base[17]= make_cons(/* INLINE-ARGS */V953,Cnil); |
4806 |
if(!(((V919))==(VV[121]))){ |
if(!(((V935))==(VV[121]))){ |
4807 |
goto T1904;} |
goto T1904;} |
4808 |
{register object V938; |
{register object V954; |
4809 |
register object V939; |
register object V955; |
4810 |
V938= (V926); |
V954= (V942); |
4811 |
V939= CMPcar((V938)); |
V955= CMPcar((V954)); |
4812 |
goto T1912; |
goto T1912; |
4813 |
T1912:; |
T1912:; |
4814 |
if(!(((V938))==Cnil)){ |
if(!(((V954))==Cnil)){ |
4815 |
goto T1913;} |
goto T1913;} |
4816 |
goto T1905; |
goto T1905; |
4817 |
goto T1913; |
goto T1913; |
4818 |
T1913:; |
T1913:; |
4819 |
base[20]= (V939); |
base[20]= (V955); |
4820 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
4821 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
4822 |
vs_top=sup; |
vs_top=sup; |
4823 |
V940= vs_base[0]; |
V956= vs_base[0]; |
4824 |
if((CMPcar(V940))==((VV[95]->s.s_dbind))){ |
if((CMPcar(V956))==((VV[95]->s.s_dbind))){ |
4825 |
goto T1917;} |
goto T1917;} |
4826 |
goto T1908; |
goto T1908; |
4827 |
goto T1917; |
goto T1917; |
4828 |
T1917:; |
T1917:; |
4829 |
V938= CMPcdr((V938)); |
V954= CMPcdr((V954)); |
4830 |
V939= CMPcar((V938)); |
V955= CMPcar((V954)); |
4831 |
goto T1912;} |
goto T1912;} |
4832 |
goto T1908; |
goto T1908; |
4833 |
T1908:; |
T1908:; |
4834 |
goto T1904; |
goto T1904; |
4835 |
T1904:; |
T1904:; |
4836 |
{object V941; |
{object V957; |
4837 |
V942= (*(LnkLI326))((V920)); |
V958= (*(LnkLI326))((V936)); |
4838 |
base[19]= (V920); |
base[19]= (V936); |
4839 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
4840 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk305)(Lclptr305); |
4841 |
vs_top=sup; |
vs_top=sup; |
4842 |
V943= vs_base[0]; |
V959= vs_base[0]; |
4843 |
V941= list(3,/* INLINE-ARGS */V942,V943,(*(LnkLI326))((V921))); |
V957= list(3,/* INLINE-ARGS */V958,V959,(*(LnkLI326))((V937))); |
4844 |
if(!(((V919))==(VV[121]))){ |
if(!(((V935))==(VV[121]))){ |
4845 |
goto T1931;} |
goto T1931;} |
4846 |
base[19]= (VV[95]->s.s_dbind); |
base[19]= (VV[95]->s.s_dbind); |
4847 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
4848 |
(void) (*Lnk305)(Lclptr305); |
(void) (*Lnk305)(Lclptr305); |
4849 |
vs_top=sup; |
vs_top=sup; |
4850 |
V944= vs_base[0]; |
V960= vs_base[0]; |
4851 |
base[18]= make_cons(V944,(V941)); |
V961 = (V957); |
4852 |
|
base[18]= make_cons(V960,V961); |
4853 |
goto T1903; |
goto T1903; |
4854 |
goto T1931; |
goto T1931; |
4855 |
T1931:; |
T1931:; |
4856 |
base[18]= (V941); |
base[18]= (V957); |
4857 |
goto T1903;} |
goto T1903;} |
4858 |
goto T1905; |
goto T1905; |
4859 |
T1905:; |
T1905:; |
4864 |
(void) (*Lnk327)(); |
(void) (*Lnk327)(); |
4865 |
vs_top=sup; |
vs_top=sup; |
4866 |
base[13]= vs_base[0]; |
base[13]= vs_base[0]; |
4867 |
base[14]= (V919); |
base[14]= (V935); |
4868 |
vs_top=(vs_base=base+11)+4; |
vs_top=(vs_base=base+11)+4; |
4869 |
(void) (*Lnk328)(); |
(void) (*Lnk328)(); |
4870 |
vs_top=sup; |
vs_top=sup; |
4871 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
4872 |
goto T1879; |
goto T1879; |
4873 |
T1879:; |
T1879:; |
4874 |
base[11]= (V927); |
base[11]= (V943); |
4875 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
4876 |
return;} |
return;} |
4877 |
} |
} |
4918 |
} |
} |
4919 |
/* local entry for function STANDARD-SVUC-METHOD */ |
/* local entry for function STANDARD-SVUC-METHOD */ |
4920 |
|
|
4921 |
static object LI75(V946) |
static object LI75(V963) |
4922 |
|
|
4923 |
object V946; |
object V963; |
4924 |
{ VMB69 VMS69 VMV69 |
{ VMB69 VMS69 VMV69 |
4925 |
goto TTL; |
goto TTL; |
4926 |
TTL:; |
TTL:; |
4927 |
{object V947= (V946); |
{object V964= (V963); |
4928 |
if((V947!= VV[119]))goto T1951; |
if((V964!= VV[119]))goto T1951; |
4929 |
{object V948 = (VV[128]->s.s_dbind); |
{object V965 = (VV[128]->s.s_dbind); |
4930 |
VMR69(V948)} |
VMR69(V965)} |
4931 |
goto T1951; |
goto T1951; |
4932 |
T1951:; |
T1951:; |
4933 |
if((V947!= VV[121]))goto T1952; |
if((V964!= VV[121]))goto T1952; |
4934 |
{object V949 = (VV[129]->s.s_dbind); |
{object V966 = (VV[129]->s.s_dbind); |
4935 |
VMR69(V949)} |
VMR69(V966)} |
4936 |
goto T1952; |
goto T1952; |
4937 |
T1952:; |
T1952:; |
4938 |
if((V947!= VV[123]))goto T1953; |
if((V964!= VV[123]))goto T1953; |
4939 |
{object V950 = (VV[130]->s.s_dbind); |
{object V967 = (VV[130]->s.s_dbind); |
4940 |
VMR69(V950)} |
VMR69(V967)} |
4941 |
goto T1953; |
goto T1953; |
4942 |
T1953:; |
T1953:; |
4943 |
{object V951 = Cnil; |
{object V968 = Cnil; |
4944 |
VMR69(V951)}} |
VMR69(V968)}} |
4945 |
return Cnil; |
return Cnil; |
4946 |
} |
} |
4947 |
/* local entry for function SET-STANDARD-SVUC-METHOD */ |
/* local entry for function SET-STANDARD-SVUC-METHOD */ |
4948 |
|
|
4949 |
static object LI76(V954,V955) |
static object LI76(V971,V972) |
4950 |
|
|
4951 |
object V954;object V955; |
object V971;object V972; |
4952 |
{ VMB70 VMS70 VMV70 |
{ VMB70 VMS70 VMV70 |
4953 |
goto TTL; |
goto TTL; |
4954 |
TTL:; |
TTL:; |
4955 |
{object V956= (V954); |
{object V973= (V971); |
4956 |
if((V956!= VV[119]))goto T1954; |
if((V973!= VV[119]))goto T1954; |
4957 |
(VV[128]->s.s_dbind)= (V955); |
(VV[128]->s.s_dbind)= (V972); |
4958 |
{object V957 = (VV[128]->s.s_dbind); |
{object V974 = (VV[128]->s.s_dbind); |
4959 |
VMR70(V957)} |
VMR70(V974)} |
4960 |
goto T1954; |
goto T1954; |
4961 |
T1954:; |
T1954:; |
4962 |
if((V956!= VV[121]))goto T1956; |
if((V973!= VV[121]))goto T1956; |
4963 |
(VV[129]->s.s_dbind)= (V955); |
(VV[129]->s.s_dbind)= (V972); |
4964 |
{object V958 = (VV[129]->s.s_dbind); |
{object V975 = (VV[129]->s.s_dbind); |
4965 |
VMR70(V958)} |
VMR70(V975)} |
4966 |
goto T1956; |
goto T1956; |
4967 |
T1956:; |
T1956:; |
4968 |
if((V956!= VV[123]))goto T1958; |
if((V973!= VV[123]))goto T1958; |
4969 |
(VV[130]->s.s_dbind)= (V955); |
(VV[130]->s.s_dbind)= (V972); |
4970 |
{object V959 = (VV[130]->s.s_dbind); |
{object V976 = (VV[130]->s.s_dbind); |
4971 |
VMR70(V959)} |
VMR70(V976)} |
4972 |
goto T1958; |
goto T1958; |
4973 |
T1958:; |
T1958:; |
4974 |
{object V960 = Cnil; |
{object V977 = Cnil; |
4975 |
VMR70(V960)}} |
VMR70(V977)}} |
4976 |
return Cnil; |
return Cnil; |
4977 |
} |
} |
4978 |
/* local entry for function STRUCTURE-SVUC-METHOD */ |
/* local entry for function STRUCTURE-SVUC-METHOD */ |
4979 |
|
|
4980 |
static object LI77(V962) |
static object LI77(V979) |
4981 |
|
|
4982 |
object V962; |
object V979; |
4983 |
{ VMB71 VMS71 VMV71 |
{ VMB71 VMS71 VMV71 |
4984 |
goto TTL; |
goto TTL; |
4985 |
TTL:; |
TTL:; |
4986 |
{object V963= (V962); |
{object V980= (V979); |
4987 |
if((V963!= VV[119]))goto T1960; |
if((V980!= VV[119]))goto T1960; |
4988 |
{object V964 = (VV[131]->s.s_dbind); |
{object V981 = (VV[131]->s.s_dbind); |
4989 |
VMR71(V964)} |
VMR71(V981)} |
4990 |
goto T1960; |
goto T1960; |
4991 |
T1960:; |
T1960:; |
4992 |
if((V963!= VV[121]))goto T1961; |
if((V980!= VV[121]))goto T1961; |
4993 |
{object V965 = (VV[132]->s.s_dbind); |
{object V982 = (VV[132]->s.s_dbind); |
4994 |
VMR71(V965)} |
VMR71(V982)} |
4995 |
goto T1961; |
goto T1961; |
4996 |
T1961:; |
T1961:; |
4997 |
if((V963!= VV[123]))goto T1962; |
if((V980!= VV[123]))goto T1962; |
4998 |
{object V966 = (VV[133]->s.s_dbind); |
{object V983 = (VV[133]->s.s_dbind); |
4999 |
VMR71(V966)} |
VMR71(V983)} |
5000 |
goto T1962; |
goto T1962; |
5001 |
T1962:; |
T1962:; |
5002 |
{object V967 = Cnil; |
{object V984 = Cnil; |
5003 |
VMR71(V967)}} |
VMR71(V984)}} |
5004 |
return Cnil; |
return Cnil; |
5005 |
} |
} |
5006 |
/* local entry for function SET-STRUCTURE-SVUC-METHOD */ |
/* local entry for function SET-STRUCTURE-SVUC-METHOD */ |
5007 |
|
|
5008 |
static object LI78(V970,V971) |
static object LI78(V987,V988) |
5009 |
|
|
5010 |
object V970;object V971; |
object V987;object V988; |
5011 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
5012 |
goto TTL; |
goto TTL; |
5013 |
TTL:; |
TTL:; |
5014 |
{object V972= (V970); |
{object V989= (V987); |
5015 |
if((V972!= VV[119]))goto T1963; |
if((V989!= VV[119]))goto T1963; |
5016 |
(VV[131]->s.s_dbind)= (V971); |
(VV[131]->s.s_dbind)= (V988); |
5017 |
{object V973 = (VV[131]->s.s_dbind); |
{object V990 = (VV[131]->s.s_dbind); |
5018 |
VMR72(V973)} |
VMR72(V990)} |
5019 |
goto T1963; |
goto T1963; |
5020 |
T1963:; |
T1963:; |
5021 |
if((V972!= VV[121]))goto T1965; |
if((V989!= VV[121]))goto T1965; |
5022 |
(VV[132]->s.s_dbind)= (V971); |
(VV[132]->s.s_dbind)= (V988); |
5023 |
{object V974 = (VV[132]->s.s_dbind); |
{object V991 = (VV[132]->s.s_dbind); |
5024 |
VMR72(V974)} |
VMR72(V991)} |
5025 |
goto T1965; |
goto T1965; |
5026 |
T1965:; |
T1965:; |
5027 |
if((V972!= VV[123]))goto T1967; |
if((V989!= VV[123]))goto T1967; |
5028 |
(VV[133]->s.s_dbind)= (V971); |
(VV[133]->s.s_dbind)= (V988); |
5029 |
{object V975 = (VV[133]->s.s_dbind); |
{object V992 = (VV[133]->s.s_dbind); |
5030 |
VMR72(V975)} |
VMR72(V992)} |
5031 |
goto T1967; |
goto T1967; |
5032 |
T1967:; |
T1967:; |
5033 |
{object V976 = Cnil; |
{object V993 = Cnil; |
5034 |
VMR72(V976)}} |
VMR72(V993)}} |
5035 |
return Cnil; |
return Cnil; |
5036 |
} |
} |
5037 |
/* local entry for function UPDATE-STD-OR-STR-METHODS */ |
/* local entry for function UPDATE-STD-OR-STR-METHODS */ |
5038 |
|
|
5039 |
static object LI79(V979,V980) |
static object LI79(V996,V997) |
5040 |
|
|
5041 |
object V979;register object V980; |
object V996;register object V997; |
5042 |
{ VMB73 VMS73 VMV73 |
{ VMB73 VMS73 VMV73 |
5043 |
goto TTL; |
goto TTL; |
5044 |
TTL:; |
TTL:; |
5045 |
{register object V981; |
{register object V998; |
5046 |
register object V982; |
register object V999; |
5047 |
base[2]= (V979); |
base[2]= (V996); |
5048 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5049 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
5050 |
vs_top=sup; |
vs_top=sup; |
5051 |
V981= vs_base[0]; |
V998= vs_base[0]; |
5052 |
V982= CMPcar((V981)); |
V999= CMPcar((V998)); |
5053 |
goto T1973; |
goto T1973; |
5054 |
T1973:; |
T1973:; |
5055 |
if(!(((V981))==Cnil)){ |
if(!(((V998))==Cnil)){ |
5056 |
goto T1974;} |
goto T1974;} |
5057 |
{object V983 = Cnil; |
{object V1000 = Cnil; |
5058 |
VMR73(V983)} |
VMR73(V1000)} |
5059 |
goto T1974; |
goto T1974; |
5060 |
T1974:; |
T1974:; |
5061 |
{register object V984; |
{register object V1001; |
5062 |
base[2]= (V982); |
base[2]= (V999); |
5063 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5064 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
5065 |
vs_top=sup; |
vs_top=sup; |
5066 |
V984= vs_base[0]; |
V1001= vs_base[0]; |
5067 |
if(!(((V980))==(VV[121]))){ |
if(!(((V997))==(VV[121]))){ |
5068 |
goto T1982;} |
goto T1982;} |
5069 |
{register object V986; |
{register object V1003; |
5070 |
V986= CMPcar((V984)); |
V1003= CMPcar((V1001)); |
5071 |
V984= CMPcdr((V984)); |
V1001= CMPcdr((V1001)); |
5072 |
V985= (V986);} |
V1002= (V1003);} |
5073 |
if(!((V985)==((VV[95]->s.s_dbind)))){ |
V1004 = (VV[95]->s.s_dbind); |
5074 |
|
if(!((V1002)==(V1004))){ |
5075 |
goto T1978;} |
goto T1978;} |
5076 |
goto T1982; |
goto T1982; |
5077 |
T1982:; |
T1982:; |
5078 |
base[2]= (VV[237]->s.s_gfdef); |
base[2]= (VV[237]->s.s_gfdef); |
5079 |
base[3]= (V984); |
base[3]= (V1001); |
5080 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5081 |
(void) (*Lnk279)(); |
(void) (*Lnk279)(); |
5082 |
vs_top=sup; |
vs_top=sup; |
5083 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5084 |
goto T1978;} |
goto T1978;} |
5085 |
base[2]= CMPcar((V984)); |
base[2]= CMPcar((V1001)); |
5086 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5087 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5088 |
vs_top=sup; |
vs_top=sup; |
5089 |
V987= vs_base[0]; |
V1005= vs_base[0]; |
5090 |
if(!((V987)==(VV[134]))){ |
if(!((V1005)==(VV[134]))){ |
5091 |
goto T1994;} |
goto T1994;} |
5092 |
base[2]= CMPcadr((V984)); |
base[2]= CMPcadr((V1001)); |
5093 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5094 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5095 |
vs_top=sup; |
vs_top=sup; |
5096 |
V988= vs_base[0]; |
V1006= vs_base[0]; |
5097 |
if(!((V988)==(VV[135]))){ |
if(!((V1006)==(VV[135]))){ |
5098 |
goto T1994;} |
goto T1994;} |
5099 |
base[2]= CMPcaddr((V984)); |
base[2]= CMPcaddr((V1001)); |
5100 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5101 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5102 |
vs_top=sup; |
vs_top=sup; |
5103 |
V989= vs_base[0]; |
V1007= vs_base[0]; |
5104 |
if(!((V989)==(VV[136]))){ |
if(!((V1007)==(VV[136]))){ |
5105 |
goto T1994;} |
goto T1994;} |
5106 |
(void)((*(LnkLI331))((V980),(V982))); |
(void)((*(LnkLI331))((V997),(V999))); |
5107 |
goto T1978; |
goto T1978; |
5108 |
goto T1994; |
goto T1994; |
5109 |
T1994:; |
T1994:; |
5110 |
base[2]= CMPcar((V984)); |
base[2]= CMPcar((V1001)); |
5111 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5112 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5113 |
vs_top=sup; |
vs_top=sup; |
5114 |
V990= vs_base[0]; |
V1008= vs_base[0]; |
5115 |
if(!((V990)==(VV[137]))){ |
if(!((V1008)==(VV[137]))){ |
5116 |
goto T1978;} |
goto T1978;} |
5117 |
base[2]= CMPcadr((V984)); |
base[2]= CMPcadr((V1001)); |
5118 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5119 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5120 |
vs_top=sup; |
vs_top=sup; |
5121 |
V991= vs_base[0]; |
V1009= vs_base[0]; |
5122 |
if(!((V991)==(VV[138]))){ |
if(!((V1009)==(VV[138]))){ |
5123 |
goto T1978;} |
goto T1978;} |
5124 |
base[2]= CMPcaddr((V984)); |
base[2]= CMPcaddr((V1001)); |
5125 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5126 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5127 |
vs_top=sup; |
vs_top=sup; |
5128 |
V992= vs_base[0]; |
V1010= vs_base[0]; |
5129 |
if(!((V992)==(VV[139]))){ |
if(!((V1010)==(VV[139]))){ |
5130 |
goto T1978;} |
goto T1978;} |
5131 |
(void)((*(LnkLI332))((V980),(V982)));} |
(void)((*(LnkLI332))((V997),(V999)));} |
5132 |
goto T1978; |
goto T1978; |
5133 |
T1978:; |
T1978:; |
5134 |
V981= CMPcdr((V981)); |
V998= CMPcdr((V998)); |
5135 |
V982= CMPcar((V981)); |
V999= CMPcar((V998)); |
5136 |
goto T1973;} |
goto T1973;} |
5137 |
base[0]=base[0]; |
base[0]=base[0]; |
5138 |
return Cnil; |
return Cnil; |
5139 |
} |
} |
5140 |
/* local entry for function MEC-ALL-CLASSES-INTERNAL */ |
/* local entry for function MEC-ALL-CLASSES-INTERNAL */ |
5141 |
|
|
5142 |
static object LI80(V995,V996) |
static object LI80(V1013,V1014) |
5143 |
|
|
5144 |
register object V995;object V996; |
register object V1013;object V1014; |
5145 |
{ VMB74 VMS74 VMV74 |
{ VMB74 VMS74 VMV74 |
5146 |
goto TTL; |
goto TTL; |
5147 |
TTL:; |
TTL:; |
5148 |
base[0]= (V995); |
base[0]= (V1013); |
5149 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5150 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
5151 |
vs_top=sup; |
vs_top=sup; |
5152 |
V997= vs_base[0]; |
V1015= vs_base[0]; |
5153 |
base[0]= (V995); |
base[0]= (V1013); |
5154 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5155 |
(void) (*Lnk237)(Lclptr237); |
(void) (*Lnk237)(Lclptr237); |
5156 |
vs_top=sup; |
vs_top=sup; |
5157 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5158 |
goto T2026;} |
goto T2026;} |
5159 |
V998= Cnil; |
V1016= Cnil; |
5160 |
goto T2025; |
goto T2025; |
5161 |
goto T2026; |
goto T2026; |
5162 |
T2026:; |
T2026:; |
5163 |
if((V996)==Cnil){ |
if((V1014)==Cnil){ |
5164 |
V998= Cnil; |
V1016= Cnil; |
5165 |
goto T2025;} |
goto T2025;} |
5166 |
if(!(((V995))==((VV[95]->s.s_dbind)))){ |
if(!(((V1013))==((VV[95]->s.s_dbind)))){ |
5167 |
goto T2032;} |
goto T2032;} |
5168 |
V999= Ct; |
V1017= Ct; |
5169 |
goto T2031; |
goto T2031; |
5170 |
goto T2032; |
goto T2032; |
5171 |
T2032:; |
T2032:; |
5172 |
if(!(((V995))==((VV[140]->s.s_dbind)))){ |
if(!(((V1013))==((VV[140]->s.s_dbind)))){ |
5173 |
goto T2034;} |
goto T2034;} |
5174 |
V999= Ct; |
V1017= Ct; |
5175 |
goto T2031; |
goto T2031; |
5176 |
goto T2034; |
goto T2034; |
5177 |
T2034:; |
T2034:; |
5178 |
if(!(((V995))==((VV[141]->s.s_dbind)))){ |
if(!(((V1013))==((VV[141]->s.s_dbind)))){ |
5179 |
goto T2036;} |
goto T2036;} |
5180 |
V999= Ct; |
V1017= Ct; |
5181 |
goto T2031; |
goto T2031; |
5182 |
goto T2036; |
goto T2036; |
5183 |
T2036:; |
T2036:; |
5184 |
V999= (((V995))==((VV[142]->s.s_dbind))?Ct:Cnil); |
V1017= (((V1013))==((VV[142]->s.s_dbind))?Ct:Cnil); |
5185 |
goto T2031; |
goto T2031; |
5186 |
T2031:; |
T2031:; |
5187 |
if((V999)==Cnil){ |
if((V1017)==Cnil){ |
5188 |
goto T2029;} |
goto T2029;} |
5189 |
V998= Cnil; |
V1016= Cnil; |
5190 |
goto T2025; |
goto T2025; |
5191 |
goto T2029; |
goto T2029; |
5192 |
T2029:; |
T2029:; |
5193 |
{object V1000; |
{object V1018; |
5194 |
base[0]= (V995); |
base[0]= (V1013); |
5195 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5196 |
(void) (*Lnk333)(Lclptr333); |
(void) (*Lnk333)(Lclptr333); |
5197 |
vs_top=sup; |
vs_top=sup; |
5198 |
V1000= vs_base[0]; |
V1018= vs_base[0]; |
5199 |
if(((V1000))==Cnil){ |
if(((V1018))==Cnil){ |
5200 |
goto T2041;} |
goto T2041;} |
5201 |
{object V1001; |
{object V1019; |
5202 |
object V1002= (V1000); |
object V1020= (V1018); |
5203 |
if(V1002==Cnil){ |
if(V1020==Cnil){ |
5204 |
V998= Cnil; |
V1016= Cnil; |
5205 |
goto T2025;} |
goto T2025;} |
5206 |
base[0]=V1001=MMcons(Cnil,Cnil); |
base[0]=V1019=MMcons(Cnil,Cnil); |
5207 |
goto T2043; |
goto T2043; |
5208 |
T2043:; |
T2043:; |
5209 |
(V1001->c.c_cdr)= (*(LnkLI334))((V1002->c.c_car),(V996)); |
(V1019->c.c_cdr)= (*(LnkLI334))((V1020->c.c_car),(V1014)); |
5210 |
while(MMcdr(V1001)!=Cnil)V1001=MMcdr(V1001); |
while(MMcdr(V1019)!=Cnil)V1019=MMcdr(V1019); |
5211 |
if((V1002=MMcdr(V1002))==Cnil){ |
if((V1020=MMcdr(V1020))==Cnil){ |
5212 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
5213 |
V998= base[0]; |
V1016= base[0]; |
5214 |
goto T2025;} |
goto T2025;} |
5215 |
goto T2043;} |
goto T2043;} |
5216 |
goto T2041; |
goto T2041; |
5217 |
T2041:; |
T2041:; |
5218 |
V998= Cnil;} |
V1016= Cnil;} |
5219 |
goto T2025; |
goto T2025; |
5220 |
T2025:; |
T2025:; |
5221 |
{object V1004 = make_cons(V997,V998); |
{object V1022 = make_cons(V1015,V1016); |
5222 |
VMR74(V1004)} |
VMR74(V1022)} |
5223 |
base[0]=base[0]; |
base[0]=base[0]; |
5224 |
return Cnil; |
return Cnil; |
5225 |
} |
} |
5226 |
/* local entry for function MEC-ALL-CLASSES */ |
/* local entry for function MEC-ALL-CLASSES */ |
5227 |
|
|
5228 |
static object LI81(V1007,V1008) |
static object LI81(V1025,V1026) |
5229 |
|
|
5230 |
object V1007;object V1008; |
object V1025;object V1026; |
5231 |
{ VMB75 VMS75 VMV75 |
{ VMB75 VMS75 VMV75 |
5232 |
goto TTL; |
goto TTL; |
5233 |
TTL:; |
TTL:; |
5234 |
{object V1009; |
{object V1027; |
5235 |
V1009= (*(LnkLI334))((V1007),(V1008)); |
V1027= (*(LnkLI334))((V1025),(V1026)); |
5236 |
if((CMPcdr((V1009)))!=Cnil){ |
if((CMPcdr((V1027)))!=Cnil){ |
5237 |
goto T2047;} |
goto T2047;} |
5238 |
{object V1010 = (V1009); |
{object V1028 = (V1027); |
5239 |
VMR75(V1010)} |
VMR75(V1028)} |
5240 |
goto T2047; |
goto T2047; |
5241 |
T2047:; |
T2047:; |
5242 |
{object V1011; |
{object V1029; |
5243 |
register object V1012; |
register object V1030; |
5244 |
V1011= make_cons(Cnil,(V1009)); |
V1029= make_cons(Cnil,(V1027)); |
5245 |
V1012= (V1009); |
V1030= (V1027); |
5246 |
goto T2052; |
goto T2052; |
5247 |
T2052:; |
T2052:; |
5248 |
if((CMPcdr((V1012)))!=Cnil){ |
if((CMPcdr((V1030)))!=Cnil){ |
5249 |
goto T2054;} |
goto T2054;} |
5250 |
{object V1013 = CMPcdr((V1011)); |
{object V1031 = CMPcdr((V1029)); |
5251 |
VMR75(V1013)} |
VMR75(V1031)} |
5252 |
goto T2054; |
goto T2054; |
5253 |
T2054:; |
T2054:; |
5254 |
{register object V1014; |
{register object V1032; |
5255 |
register object V1015; |
register object V1033; |
5256 |
V1014= CMPcadr((V1012)); |
V1032= CMPcadr((V1030)); |
5257 |
V1015= CMPcddr((V1012)); |
V1033= CMPcddr((V1030)); |
5258 |
{register object V1016; |
{register object V1034; |
5259 |
register object V1017; |
register object V1035; |
5260 |
V1016= (V1015); |
V1034= (V1033); |
5261 |
V1017= CMPcar((V1016)); |
V1035= CMPcar((V1034)); |
5262 |
goto T2065; |
goto T2065; |
5263 |
T2065:; |
T2065:; |
5264 |
if(!(((V1016))==Cnil)){ |
if(!(((V1034))==Cnil)){ |
5265 |
goto T2066;} |
goto T2066;} |
5266 |
goto T2060; |
goto T2060; |
5267 |
goto T2066; |
goto T2066; |
5268 |
T2066:; |
T2066:; |
5269 |
if(!(((V1014))==((V1017)))){ |
if(!(((V1032))==((V1035)))){ |
5270 |
goto T2070;} |
goto T2070;} |
5271 |
goto T2061; |
goto T2061; |
5272 |
goto T2070; |
goto T2070; |
5273 |
T2070:; |
T2070:; |
5274 |
V1016= CMPcdr((V1016)); |
V1034= CMPcdr((V1034)); |
5275 |
V1017= CMPcar((V1016)); |
V1035= CMPcar((V1034)); |
5276 |
goto T2065;} |
goto T2065;} |
5277 |
goto T2061; |
goto T2061; |
5278 |
T2061:; |
T2061:; |
5279 |
{register object V1018; |
{register object V1036; |
5280 |
register object V1019; |
register object V1037; |
5281 |
V1018= (V1012); |
V1036= (V1030); |
5282 |
V1019= CMPcddr((V1012)); |
V1037= CMPcddr((V1030)); |
5283 |
((V1018))->c.c_cdr = (V1019); |
((V1036))->c.c_cdr = (V1037); |
5284 |
goto T2053;} |
goto T2053;} |
5285 |
goto T2060; |
goto T2060; |
5286 |
T2060:; |
T2060:; |
5287 |
V1012= CMPcdr((V1012));} |
V1030= CMPcdr((V1030));} |
5288 |
goto T2053; |
goto T2053; |
5289 |
T2053:; |
T2053:; |
5290 |
goto T2052;}} |
goto T2052;}} |
5293 |
} |
} |
5294 |
/* local entry for function MEC-ALL-CLASS-LISTS */ |
/* local entry for function MEC-ALL-CLASS-LISTS */ |
5295 |
|
|
5296 |
static object LI82(V1022,V1023) |
static object LI82(V1040,V1041) |
5297 |
|
|
5298 |
object V1022;object V1023; |
object V1040;object V1041; |
5299 |
{ VMB76 VMS76 VMV76 |
{ VMB76 VMS76 VMV76 |
5300 |
goto TTL; |
goto TTL; |
5301 |
TTL:; |
TTL:; |
5302 |
if(((V1022))!=Cnil){ |
if(((V1040))!=Cnil){ |
5303 |
goto T2084;} |
goto T2084;} |
5304 |
{object V1024 = make_cons(Cnil,Cnil); |
{object V1042 = make_cons(Cnil,Cnil); |
5305 |
VMR76(V1024)} |
VMR76(V1042)} |
5306 |
goto T2084; |
goto T2084; |
5307 |
T2084:; |
T2084:; |
5308 |
{object V1025; |
{object V1043; |
5309 |
object V1026; |
object V1044; |
5310 |
V1025= (*(LnkLI335))(CMPcar((V1022)),(V1023)); |
V1043= (*(LnkLI335))(CMPcar((V1040)),(V1041)); |
5311 |
V1026= (*(LnkLI336))(CMPcdr((V1022)),(V1023)); |
V1044= (*(LnkLI336))(CMPcdr((V1040)),(V1041)); |
5312 |
{object V1027; |
{object V1045; |
5313 |
object V1028= (V1026); |
object V1046= (V1044); |
5314 |
if(V1028==Cnil){ |
if(V1046==Cnil){ |
5315 |
{object V1029 = Cnil; |
{object V1047 = Cnil; |
5316 |
VMR76(V1029)}} |
VMR76(V1047)}} |
5317 |
base[2]=V1027=MMcons(Cnil,Cnil); |
base[2]=V1045=MMcons(Cnil,Cnil); |
5318 |
goto T2088; |
goto T2088; |
5319 |
T2088:; |
T2088:; |
5320 |
{object V1031; |
{object V1049; |
5321 |
object V1032= (V1025); |
object V1050= (V1043); |
5322 |
if(V1032==Cnil){ |
if(V1050==Cnil){ |
5323 |
(V1027->c.c_cdr)= Cnil; |
(V1045->c.c_cdr)= Cnil; |
5324 |
goto T2089;} |
goto T2089;} |
5325 |
base[3]=V1031=MMcons(Cnil,Cnil); |
base[3]=V1049=MMcons(Cnil,Cnil); |
5326 |
goto T2090; |
goto T2090; |
5327 |
T2090:; |
T2090:; |
5328 |
(V1031->c.c_car)= make_cons((V1032->c.c_car),(V1028->c.c_car)); |
(V1049->c.c_car)= make_cons((V1050->c.c_car),(V1046->c.c_car)); |
5329 |
if((V1032=MMcdr(V1032))==Cnil){ |
if((V1050=MMcdr(V1050))==Cnil){ |
5330 |
(V1027->c.c_cdr)= base[3]; |
(V1045->c.c_cdr)= base[3]; |
5331 |
goto T2089;} |
goto T2089;} |
5332 |
V1031=MMcdr(V1031)=MMcons(Cnil,Cnil); |
V1049=MMcdr(V1049)=MMcons(Cnil,Cnil); |
5333 |
goto T2090;} |
goto T2090;} |
5334 |
goto T2089; |
goto T2089; |
5335 |
T2089:; |
T2089:; |
5336 |
while(MMcdr(V1027)!=Cnil)V1027=MMcdr(V1027); |
while(MMcdr(V1045)!=Cnil)V1045=MMcdr(V1045); |
5337 |
if((V1028=MMcdr(V1028))==Cnil){ |
if((V1046=MMcdr(V1046))==Cnil){ |
5338 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
5339 |
{object V1034 = base[2]; |
{object V1052 = base[2]; |
5340 |
VMR76(V1034)}} |
VMR76(V1052)}} |
5341 |
goto T2088;}} |
goto T2088;}} |
5342 |
base[0]=base[0]; |
base[0]=base[0]; |
5343 |
return Cnil; |
return Cnil; |
5344 |
} |
} |
5345 |
/* local entry for function MAKE-EMF-CACHE */ |
/* local entry for function MAKE-EMF-CACHE */ |
5346 |
|
|
5347 |
static object LI85(V1040,V1041,V1042,V1043,V1044) |
static object LI85(V1058,V1059,V1060,V1061,V1062) |
5348 |
|
|
5349 |
object V1040;object V1041;object V1042;object V1043;object V1044; |
object V1058;object V1059;object V1060;object V1061;object V1062; |
5350 |
{ VMB77 VMS77 VMV77 |
{ VMB77 VMS77 VMV77 |
5351 |
goto TTL; |
goto TTL; |
5352 |
TTL:; |
TTL:; |
5353 |
base[0]= (V1044); |
base[0]= (V1062); |
5354 |
base[1]= (V1042); |
base[1]= (V1060); |
5355 |
base[2]= (V1041); |
base[2]= (V1059); |
5356 |
base[3]= (V1040); |
base[3]= (V1058); |
5357 |
{object V1045; |
{object V1063; |
5358 |
register object V1046; |
register object V1064; |
5359 |
base[10]= base[3]; |
base[10]= base[3]; |
5360 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5361 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
5362 |
vs_top=sup; |
vs_top=sup; |
5363 |
V1045= vs_base[0]; |
V1063= vs_base[0]; |
5364 |
base[5]= (*(LnkLI337))((V1045)); |
base[5]= (*(LnkLI337))((V1063)); |
5365 |
base[6]= STREF(object,(V1045),8); |
base[6]= STREF(object,(V1063),8); |
5366 |
if((base[5])==(small_fixnum(1))){ |
if((base[5])==(small_fixnum(1))){ |
5367 |
goto T2098;} |
goto T2098;} |
5368 |
base[10]= base[5]; |
base[10]= base[5]; |
5376 |
base[7]= Cnil; |
base[7]= Cnil; |
5377 |
goto T2096; |
goto T2096; |
5378 |
T2096:; |
T2096:; |
5379 |
V1046= STREF(object,(V1045),28); |
V1064= STREF(object,(V1063),28); |
5380 |
base[9]= VV[143]; |
base[9]= VV[143]; |
5381 |
if(((V1043))==Cnil){ |
if(((V1061))==Cnil){ |
5382 |
goto T2104;} |
goto T2104;} |
5383 |
{ |
{ |
5384 |
object V1047= (V1043); |
object V1065= (V1061); |
5385 |
if(V1047==Cnil){ |
if(V1065==Cnil){ |
5386 |
goto T2102;} |
goto T2102;} |
5387 |
goto T2106; |
goto T2106; |
5388 |
T2106:; |
T2106:; |
5389 |
base[10]= (V1047->c.c_car); |
base[10]= (V1065->c.c_car); |
5390 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5391 |
L86(base); |
L86(base); |
5392 |
vs_top=sup; |
vs_top=sup; |
5393 |
if((V1047=MMcdr(V1047))==Cnil){ |
if((V1065=MMcdr(V1065))==Cnil){ |
5394 |
goto T2102;} |
goto T2102;} |
5395 |
goto T2106;} |
goto T2106;} |
5396 |
goto T2104; |
goto T2104; |
5397 |
T2104:; |
T2104:; |
5398 |
{register object V1048; |
{register object V1066; |
5399 |
register object V1049; |
register object V1067; |
5400 |
base[12]= base[3]; |
base[12]= base[3]; |
5401 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5402 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
5403 |
vs_top=sup; |
vs_top=sup; |
5404 |
V1048= vs_base[0]; |
V1066= vs_base[0]; |
5405 |
V1049= CMPcar((V1048)); |
V1067= CMPcar((V1066)); |
5406 |
goto T2113; |
goto T2113; |
5407 |
T2113:; |
T2113:; |
5408 |
if(!(((V1048))==Cnil)){ |
if(!(((V1066))==Cnil)){ |
5409 |
goto T2114;} |
goto T2114;} |
5410 |
goto T2102; |
goto T2102; |
5411 |
goto T2114; |
goto T2114; |
5412 |
T2114:; |
T2114:; |
5413 |
base[12]= (V1049); |
base[12]= (V1067); |
5414 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5415 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
5416 |
vs_top=sup; |
vs_top=sup; |
5417 |
V1051= vs_base[0]; |
V1069= vs_base[0]; |
5418 |
V1052= (*(LnkLI336))(V1051,(V1046)); |
V1070 = (V1064); |
5419 |
|
V1071= (*(LnkLI336))(V1069,V1070); |
5420 |
{ |
{ |
5421 |
object V1050= /* INLINE-ARGS */V1052; |
object V1068= /* INLINE-ARGS */V1071; |
5422 |
if(V1050==Cnil){ |
if(V1068==Cnil){ |
5423 |
goto T2118;} |
goto T2118;} |
5424 |
goto T2119; |
goto T2119; |
5425 |
T2119:; |
T2119:; |
5426 |
base[12]= (V1050->c.c_car); |
base[12]= (V1068->c.c_car); |
5427 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
5428 |
L86(base); |
L86(base); |
5429 |
vs_top=sup; |
vs_top=sup; |
5430 |
if((V1050=MMcdr(V1050))==Cnil){ |
if((V1068=MMcdr(V1068))==Cnil){ |
5431 |
goto T2118;} |
goto T2118;} |
5432 |
goto T2119;} |
goto T2119;} |
5433 |
goto T2118; |
goto T2118; |
5434 |
T2118:; |
T2118:; |
5435 |
V1048= CMPcdr((V1048)); |
V1066= CMPcdr((V1066)); |
5436 |
V1049= CMPcar((V1048)); |
V1067= CMPcar((V1066)); |
5437 |
goto T2113;} |
goto T2113;} |
5438 |
goto T2102; |
goto T2102; |
5439 |
T2102:; |
T2102:; |
5440 |
{object V1053 = base[1]; |
{object V1072 = base[1]; |
5441 |
VMR77(V1053)}} |
VMR77(V1072)}} |
5442 |
base[0]=base[0]; |
base[0]=base[0]; |
5443 |
return Cnil; |
return Cnil; |
5444 |
} |
} |
5450 |
vs_check; |
vs_check; |
5451 |
check_arg(2); |
check_arg(2); |
5452 |
vs_top=sup; |
vs_top=sup; |
5453 |
{object V1054=base[0]->c.c_cdr; |
{object V1073=base[0]->c.c_cdr; |
5454 |
if(endp(V1054))invalid_macro_call(); |
if(endp(V1073))invalid_macro_call(); |
5455 |
base[2]= (V1054->c.c_car); |
base[2]= (V1073->c.c_car); |
5456 |
V1054=V1054->c.c_cdr; |
V1073=V1073->c.c_cdr; |
5457 |
if(endp(V1054))invalid_macro_call(); |
if(endp(V1073))invalid_macro_call(); |
5458 |
base[3]= (V1054->c.c_car); |
base[3]= (V1073->c.c_car); |
5459 |
V1054=V1054->c.c_cdr; |
V1073=V1073->c.c_cdr; |
5460 |
if(!endp(V1054))invalid_macro_call();} |
if(!endp(V1073))invalid_macro_call();} |
5461 |
if(!((base[3])==((VV[95]->s.s_dbind)))){ |
if(!((base[3])==((VV[95]->s.s_dbind)))){ |
5462 |
goto T2130;} |
goto T2130;} |
5463 |
base[4]= Ct; |
base[4]= Ct; |
5474 |
T2133:; |
T2133:; |
5475 |
if(!((base[3])==((VV[141]->s.s_dbind)))){ |
if(!((base[3])==((VV[141]->s.s_dbind)))){ |
5476 |
goto T2136;} |
goto T2136;} |
5477 |
V1055= list(2,VV[151],base[2]); |
V1074= list(2,VV[151],base[2]); |
5478 |
base[4]= list(3,VV[150],/* INLINE-ARGS */V1055,list(2,VV[152],base[2])); |
base[4]= list(3,VV[150],/* INLINE-ARGS */V1074,list(2,VV[152],base[2])); |
5479 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5480 |
return; |
return; |
5481 |
goto T2136; |
goto T2136; |
5482 |
T2136:; |
T2136:; |
5483 |
if(!((base[3])==((VV[142]->s.s_dbind)))){ |
if(!((base[3])==((VV[142]->s.s_dbind)))){ |
5484 |
goto T2139;} |
goto T2139;} |
5485 |
V1056= list(2,VV[154],base[3]); |
V1075= list(2,VV[154],base[3]); |
5486 |
base[4]= list(3,VV[153],/* INLINE-ARGS */V1056,list(2,VV[155],list(2,VV[149],base[2]))); |
base[4]= list(3,VV[153],/* INLINE-ARGS */V1075,list(2,VV[155],list(2,VV[149],base[2]))); |
5487 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5488 |
return; |
return; |
5489 |
goto T2139; |
goto T2139; |
5492 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5493 |
(void) (*Lnk210)(Lclptr210); |
(void) (*Lnk210)(Lclptr210); |
5494 |
vs_top=sup; |
vs_top=sup; |
5495 |
V1057= vs_base[0]; |
V1076= vs_base[0]; |
5496 |
base[4]= list(3,VV[156],base[2],list(2,VV[154],V1057)); |
base[4]= list(3,VV[156],base[2],list(2,VV[154],V1076)); |
5497 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5498 |
return; |
return; |
5499 |
} |
} |
5505 |
vs_check; |
vs_check; |
5506 |
check_arg(2); |
check_arg(2); |
5507 |
vs_top=sup; |
vs_top=sup; |
5508 |
{object V1058=base[0]->c.c_cdr; |
{object V1077=base[0]->c.c_cdr; |
5509 |
if(endp(V1058))invalid_macro_call(); |
if(endp(V1077))invalid_macro_call(); |
5510 |
base[2]= (V1058->c.c_car); |
base[2]= (V1077->c.c_car); |
5511 |
V1058=V1058->c.c_cdr; |
V1077=V1077->c.c_cdr; |
5512 |
if(endp(V1058))invalid_macro_call(); |
if(endp(V1077))invalid_macro_call(); |
5513 |
base[3]= (V1058->c.c_car); |
base[3]= (V1077->c.c_car); |
5514 |
V1058=V1058->c.c_cdr; |
V1077=V1077->c.c_cdr; |
5515 |
if(!endp(V1058))invalid_macro_call();} |
if(!endp(V1077))invalid_macro_call();} |
5516 |
V1059= list(2,VV[149],base[2]); |
V1078= list(2,VV[149],base[2]); |
5517 |
base[4]= list(3,VV[145],/* INLINE-ARGS */V1059,list(2,VV[154],base[3])); |
base[4]= list(3,VV[145],/* INLINE-ARGS */V1078,list(2,VV[154],base[3])); |
5518 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5519 |
return; |
return; |
5520 |
} |
} |
5526 |
vs_check; |
vs_check; |
5527 |
check_arg(2); |
check_arg(2); |
5528 |
vs_top=sup; |
vs_top=sup; |
5529 |
{object V1060=base[0]->c.c_cdr; |
{object V1079=base[0]->c.c_cdr; |
5530 |
if(endp(V1060))invalid_macro_call(); |
if(endp(V1079))invalid_macro_call(); |
5531 |
base[2]= (V1060->c.c_car); |
base[2]= (V1079->c.c_car); |
5532 |
V1060=V1060->c.c_cdr; |
V1079=V1079->c.c_cdr; |
5533 |
if(endp(V1060))invalid_macro_call(); |
if(endp(V1079))invalid_macro_call(); |
5534 |
base[3]= (V1060->c.c_car); |
base[3]= (V1079->c.c_car); |
5535 |
V1060=V1060->c.c_cdr; |
V1079=V1079->c.c_cdr; |
5536 |
if(!endp(V1060))invalid_macro_call();} |
if(!endp(V1079))invalid_macro_call();} |
5537 |
base[4]= list(3,VV[108],base[2],list(2,VV[154],base[3])); |
base[4]= list(3,VV[108],base[2],list(2,VV[154],base[3])); |
5538 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5539 |
return; |
return; |
5540 |
} |
} |
5541 |
/* local entry for function DNET-METHODS-P */ |
/* local entry for function DNET-METHODS-P */ |
5542 |
|
|
5543 |
static object LI90(V1062) |
static object LI90(V1081) |
5544 |
|
|
5545 |
object V1062; |
object V1081; |
5546 |
{ VMB81 VMS81 VMV81 |
{ VMB81 VMS81 VMV81 |
5547 |
goto TTL; |
goto TTL; |
5548 |
TTL:; |
TTL:; |
5549 |
if(type_of((V1062))==t_cons){ |
if(type_of((V1081))==t_cons){ |
5550 |
goto T2143;} |
goto T2143;} |
5551 |
{object V1063 = Cnil; |
{object V1082 = Cnil; |
5552 |
VMR81(V1063)} |
VMR81(V1082)} |
5553 |
goto T2143; |
goto T2143; |
5554 |
T2143:; |
T2143:; |
5555 |
if(!((CMPcar((V1062)))==(VV[67]))){ |
if(!((CMPcar((V1081)))==(VV[67]))){ |
5556 |
goto T2145;} |
goto T2145;} |
5557 |
{object V1064 = Ct; |
{object V1083 = Ct; |
5558 |
VMR81(V1064)} |
VMR81(V1083)} |
5559 |
goto T2145; |
goto T2145; |
5560 |
T2145:; |
T2145:; |
5561 |
{object V1065 = ((CMPcar((V1062)))==(VV[157])?Ct:Cnil); |
{object V1084 = ((CMPcar((V1081)))==(VV[157])?Ct:Cnil); |
5562 |
VMR81(V1065)} |
VMR81(V1084)} |
5563 |
return Cnil; |
return Cnil; |
5564 |
} |
} |
5565 |
/* macro definition for SCASE */ |
/* macro definition for SCASE */ |
5570 |
vs_check; |
vs_check; |
5571 |
check_arg(2); |
check_arg(2); |
5572 |
vs_top=sup; |
vs_top=sup; |
5573 |
{object V1066=base[0]->c.c_cdr; |
{object V1085=base[0]->c.c_cdr; |
5574 |
if(endp(V1066))invalid_macro_call(); |
if(endp(V1085))invalid_macro_call(); |
5575 |
base[2]= (V1066->c.c_car); |
base[2]= (V1085->c.c_car); |
5576 |
V1066=V1066->c.c_cdr; |
V1085=V1085->c.c_cdr; |
5577 |
base[3]= V1066;} |
base[3]= V1085;} |
5578 |
V1067= list(2,VV[159],base[2]); |
V1086= list(2,VV[159],base[2]); |
5579 |
V1068= make_cons(/* INLINE-ARGS */V1067,Cnil); |
V1087= make_cons(/* INLINE-ARGS */V1086,Cnil); |
5580 |
{object V1070; |
{object V1089; |
5581 |
object V1071= base[3]; |
object V1090= base[3]; |
5582 |
if(V1071==Cnil){ |
if(V1090==Cnil){ |
5583 |
V1069= Cnil; |
V1088= Cnil; |
5584 |
goto T2147;} |
goto T2147;} |
5585 |
base[4]=V1070=MMcons(Cnil,Cnil); |
base[4]=V1089=MMcons(Cnil,Cnil); |
5586 |
goto T2148; |
goto T2148; |
5587 |
T2148:; |
T2148:; |
5588 |
{register object V1072; |
{register object V1091; |
5589 |
V1072= (V1071->c.c_car); |
V1091= (V1090->c.c_car); |
5590 |
if((CMPcar((V1072)))!=Cnil){ |
if((CMPcar((V1091)))!=Cnil){ |
5591 |
goto T2152;} |
goto T2152;} |
5592 |
V1073= Cnil; |
V1092= Cnil; |
5593 |
goto T2150; |
goto T2150; |
5594 |
goto T2152; |
goto T2152; |
5595 |
T2152:; |
T2152:; |
5596 |
if(!(type_of(CMPcar((V1072)))==t_cons)){ |
if(!(type_of(CMPcar((V1091)))==t_cons)){ |
5597 |
goto T2155;} |
goto T2155;} |
5598 |
if((CMPcdar((V1072)))!=Cnil){ |
if((CMPcdar((V1091)))!=Cnil){ |
5599 |
goto T2158;} |
goto T2158;} |
5600 |
V1073= list(3,VV[108],VV[159],list(2,VV[154],CMPcaar((V1072)))); |
V1092= list(3,VV[108],VV[159],list(2,VV[154],CMPcaar((V1091)))); |
5601 |
goto T2150; |
goto T2150; |
5602 |
goto T2158; |
goto T2158; |
5603 |
T2158:; |
T2158:; |
5604 |
V1073= list(3,VV[161],VV[159],list(2,VV[154],CMPcar((V1072)))); |
V1092= list(3,VV[161],VV[159],list(2,VV[154],CMPcar((V1091)))); |
5605 |
goto T2150; |
goto T2150; |
5606 |
goto T2155; |
goto T2155; |
5607 |
T2155:; |
T2155:; |
5608 |
{register object x= CMPcar((V1072)),V1074= VV[162]; |
{register object x= CMPcar((V1091)),V1093= VV[162]; |
5609 |
while(V1074!=Cnil) |
while(V1093!=Cnil) |
5610 |
if(eql(x,V1074->c.c_car)){ |
if(eql(x,V1093->c.c_car)){ |
5611 |
goto T2162; |
goto T2162; |
5612 |
}else V1074=V1074->c.c_cdr; |
}else V1093=V1093->c.c_cdr; |
5613 |
goto T2161;} |
goto T2161;} |
5614 |
goto T2162; |
goto T2162; |
5615 |
T2162:; |
T2162:; |
5616 |
V1073= Ct; |
V1092= Ct; |
5617 |
goto T2150; |
goto T2150; |
5618 |
goto T2161; |
goto T2161; |
5619 |
T2161:; |
T2161:; |
5620 |
V1073= list(3,VV[108],VV[159],list(2,VV[154],CMPcar((V1072)))); |
V1092= list(3,VV[108],VV[159],list(2,VV[154],CMPcar((V1091)))); |
5621 |
goto T2150; |
goto T2150; |
5622 |
T2150:; |
T2150:; |
5623 |
(V1070->c.c_car)= listA(3,V1073,Cnil,CMPcdr((V1072)));} |
(V1089->c.c_car)= listA(3,V1092,Cnil,CMPcdr((V1091)));} |
5624 |
if((V1071=MMcdr(V1071))==Cnil){ |
if((V1090=MMcdr(V1090))==Cnil){ |
5625 |
V1069= base[4]; |
V1088= base[4]; |
5626 |
goto T2147;} |
goto T2147;} |
5627 |
V1070=MMcdr(V1070)=MMcons(Cnil,Cnil); |
V1089=MMcdr(V1089)=MMcons(Cnil,Cnil); |
5628 |
goto T2148;} |
goto T2148;} |
5629 |
goto T2147; |
goto T2147; |
5630 |
T2147:; |
T2147:; |
5631 |
base[4]= list(3,VV[158],/* INLINE-ARGS */V1068,make_cons(VV[160],V1069)); |
base[4]= list(3,VV[158],/* INLINE-ARGS */V1087,make_cons(VV[160],V1088)); |
5632 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5633 |
return; |
return; |
5634 |
} |
} |
5640 |
vs_check; |
vs_check; |
5641 |
check_arg(2); |
check_arg(2); |
5642 |
vs_top=sup; |
vs_top=sup; |
5643 |
{object V1075=base[0]->c.c_cdr; |
{object V1094=base[0]->c.c_cdr; |
5644 |
if(endp(V1075))invalid_macro_call(); |
if(endp(V1094))invalid_macro_call(); |
5645 |
base[2]= (V1075->c.c_car); |
base[2]= (V1094->c.c_car); |
5646 |
V1075=V1075->c.c_cdr; |
V1094=V1094->c.c_cdr; |
5647 |
base[3]= V1075;} |
base[3]= V1094;} |
5648 |
base[4]= listA(3,VV[163],base[2],base[3]); |
base[4]= listA(3,VV[163],base[2],base[3]); |
5649 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5650 |
return; |
return; |
5655 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
5656 |
register object *VOL sup=base+VM84; VC84 |
register object *VOL sup=base+VM84; VC84 |
5657 |
vs_check; |
vs_check; |
5658 |
{VOL object V1076; |
{VOL object V1095; |
5659 |
VOL object V1077; |
VOL object V1096; |
5660 |
VOL object V1078; |
VOL object V1097; |
5661 |
check_arg(4); |
check_arg(4); |
5662 |
V1076=(base[0]); |
V1095=(base[0]); |
5663 |
V1077=(base[1]); |
V1096=(base[1]); |
5664 |
V1078=(base[2]); |
V1097=(base[2]); |
5665 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
5666 |
vs_top=sup; |
vs_top=sup; |
5667 |
{VOL object V1079; |
{VOL object V1098; |
5668 |
base[6]= (V1076); |
base[6]= (V1095); |
5669 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
5670 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
5671 |
vs_top=sup; |
vs_top=sup; |
5672 |
V1079= vs_base[0]; |
V1098= vs_base[0]; |
5673 |
base[5]= STREF(object,(V1079),4); |
base[5]= STREF(object,(V1098),4); |
5674 |
base[5]=MMcons(base[5],base[3]); |
base[5]=MMcons(base[5],base[3]); |
5675 |
base[6]= (V1076); |
base[6]= (V1095); |
5676 |
base[7]= (V1077); |
base[7]= (V1096); |
5677 |
base[8]= (V1078); |
base[8]= (V1097); |
5678 |
base[9]= |
base[9]= |
5679 |
make_cclosure_new(LC127,Cnil,base[5],Cdata); |
make_cclosure_new(LC127,Cnil,base[5],Cdata); |
5680 |
base[10]= |
base[10]= |
5687 |
} |
} |
5688 |
/* local entry for function CLASS-FROM-TYPE */ |
/* local entry for function CLASS-FROM-TYPE */ |
5689 |
|
|
5690 |
static object LI94(V1081) |
static object LI94(V1100) |
5691 |
|
|
5692 |
register object V1081; |
register object V1100; |
5693 |
{ VMB85 VMS85 VMV85 |
{ VMB85 VMS85 VMV85 |
5694 |
goto TTL; |
goto TTL; |
5695 |
TTL:; |
TTL:; |
5696 |
if(type_of((V1081))!=t_cons){ |
if(type_of((V1100))!=t_cons){ |
5697 |
goto T2172;} |
goto T2172;} |
5698 |
if(!((CMPcar((V1081)))==(Ct))){ |
if(!((CMPcar((V1100)))==(Ct))){ |
5699 |
goto T2173;} |
goto T2173;} |
5700 |
goto T2172; |
goto T2172; |
5701 |
T2172:; |
T2172:; |
5702 |
{object V1082 = (VV[95]->s.s_dbind); |
{object V1101 = (VV[95]->s.s_dbind); |
5703 |
VMR85(V1082)} |
VMR85(V1101)} |
5704 |
goto T2173; |
goto T2173; |
5705 |
T2173:; |
T2173:; |
5706 |
{object V1083= CMPcar((V1081)); |
{object V1102= CMPcar((V1100)); |
5707 |
if((V1083!= VV[169]))goto T2177; |
if((V1102!= VV[169]))goto T2177; |
5708 |
{register object V1084; |
{register object V1103; |
5709 |
register object V1085; |
register object V1104; |
5710 |
V1084= CMPcdr((V1081)); |
V1103= CMPcdr((V1100)); |
5711 |
V1085= CMPcar((V1084)); |
V1104= CMPcar((V1103)); |
5712 |
goto T2181; |
goto T2181; |
5713 |
T2181:; |
T2181:; |
5714 |
if(!(((V1084))==Cnil)){ |
if(!(((V1103))==Cnil)){ |
5715 |
goto T2182;} |
goto T2182;} |
5716 |
{object V1086 = (VV[95]->s.s_dbind); |
{object V1105 = (VV[95]->s.s_dbind); |
5717 |
VMR85(V1086)} |
VMR85(V1105)} |
5718 |
goto T2182; |
goto T2182; |
5719 |
T2182:; |
T2182:; |
5720 |
if(!(type_of((V1085))==t_cons)){ |
if(!(type_of((V1104))==t_cons)){ |
5721 |
goto T2186;} |
goto T2186;} |
5722 |
if((CMPcar((V1085)))==(VV[144])){ |
if((CMPcar((V1104)))==(VV[144])){ |
5723 |
goto T2186;} |
goto T2186;} |
5724 |
V1081= (V1085); |
V1100= (V1104); |
5725 |
goto TTL; |
goto TTL; |
5726 |
goto T2186; |
goto T2186; |
5727 |
T2186:; |
T2186:; |
5728 |
V1084= CMPcdr((V1084)); |
V1103= CMPcdr((V1103)); |
5729 |
V1085= CMPcar((V1084)); |
V1104= CMPcar((V1103)); |
5730 |
goto T2181;} |
goto T2181;} |
5731 |
goto T2177; |
goto T2177; |
5732 |
T2177:; |
T2177:; |
5733 |
if((V1083!= VV[144]))goto T2198; |
if((V1102!= VV[144]))goto T2198; |
5734 |
{object V1087 = (VV[95]->s.s_dbind); |
{object V1106 = (VV[95]->s.s_dbind); |
5735 |
VMR85(V1087)} |
VMR85(V1106)} |
5736 |
goto T2198; |
goto T2198; |
5737 |
T2198:; |
T2198:; |
5738 |
if((V1083!= VV[108]))goto T2199; |
if((V1102!= VV[108]))goto T2199; |
5739 |
{object V1088 = (*(LnkLI149))(CMPcadr((V1081))); |
{object V1107 = (*(LnkLI149))(CMPcadr((V1100))); |
5740 |
VMR85(V1088)} |
VMR85(V1107)} |
5741 |
goto T2199; |
goto T2199; |
5742 |
T2199:; |
T2199:; |
5743 |
if((V1083!= VV[109]))goto T2200; |
if((V1102!= VV[109]))goto T2200; |
5744 |
{object V1089 = CMPcadr((V1081)); |
{object V1108 = CMPcadr((V1100)); |
5745 |
VMR85(V1089)} |
VMR85(V1108)} |
5746 |
goto T2200; |
goto T2200; |
5747 |
T2200:; |
T2200:; |
5748 |
if((V1083!= VV[340]))goto T2201; |
if((V1102!= VV[340]))goto T2201; |
5749 |
{object V1090 = CMPcadr((V1081)); |
{object V1109 = CMPcadr((V1100)); |
5750 |
VMR85(V1090)} |
VMR85(V1109)} |
5751 |
goto T2201; |
goto T2201; |
5752 |
T2201:; |
T2201:; |
5753 |
{object V1091 = Cnil; |
{object V1110 = Cnil; |
5754 |
VMR85(V1091)}} |
VMR85(V1110)}} |
5755 |
base[0]=base[0]; |
base[0]=base[0]; |
5756 |
return Cnil; |
return Cnil; |
5757 |
} |
} |
5758 |
/* local entry for function PRECOMPUTE-EFFECTIVE-METHODS */ |
/* local entry for function PRECOMPUTE-EFFECTIVE-METHODS */ |
5759 |
|
|
5760 |
static object LI95(object V1093,object V1092,object first,...) |
static object LI95(object V1112,object V1111,object first,...) |
5761 |
{ |
{ |
5762 |
va_list ap; |
va_list ap; |
5763 |
int narg = VFUN_NARGS; VMB86 VMS86 VMV86 |
int narg = VFUN_NARGS; VMB86 VMS86 VMV86 |
5764 |
bds_check; |
bds_check; |
5765 |
va_start(ap,first); |
va_start(ap,first); |
5766 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
5767 |
Vcs[0]=MMcons(V1093,Cnil); |
Vcs[0]=MMcons(V1112,Cnil); |
5768 |
Vcs[1]=MMcons(V1092,Vcs[0]); |
Vcs[1]=MMcons(V1111,Vcs[0]); |
5769 |
narg = narg - 2; |
narg = narg - 2; |
5770 |
if (narg <= 0) goto T2202; |
if (narg <= 0) goto T2202; |
5771 |
else { |
else { |
5777 |
Vcs[2]=MMcons(Vcs[2],Vcs[1]); |
Vcs[2]=MMcons(Vcs[2],Vcs[1]); |
5778 |
goto T2203; |
goto T2203; |
5779 |
T2203:; |
T2203:; |
5780 |
{object V1094; |
{object V1113; |
5781 |
object V1095; |
object V1114; |
5782 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
5783 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5784 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
5785 |
vs_top=sup; |
vs_top=sup; |
5786 |
V1094= vs_base[0]; |
V1113= vs_base[0]; |
5787 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
5788 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5789 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
5790 |
vs_top=sup; |
vs_top=sup; |
5791 |
V1095= vs_base[0]; |
V1114= vs_base[0]; |
5792 |
base[2]= STREF(object,(V1094),4); |
base[2]= STREF(object,(V1113),4); |
5793 |
base[2]=MMcons(base[2],Vcs[2]); |
base[2]=MMcons(base[2],Vcs[2]); |
5794 |
bds_bind(VV[168],Ct); |
bds_bind(VV[168],Ct); |
5795 |
base[4]=MMcons(Cnil,base[2]); |
base[4]=MMcons(Cnil,base[2]); |
5796 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
5797 |
base[6]= (V1095); |
base[6]= (V1114); |
5798 |
base[7]= Cnil; |
base[7]= Cnil; |
5799 |
base[8]= |
base[8]= |
5800 |
make_cclosure_new(LC129,Cnil,base[4],Cdata); |
make_cclosure_new(LC129,Cnil,base[4],Cdata); |
5805 |
vs_top=(vs_base=base+5)+6; |
vs_top=(vs_base=base+5)+6; |
5806 |
(void) (*Lnk339)(); |
(void) (*Lnk339)(); |
5807 |
vs_top=sup; |
vs_top=sup; |
5808 |
{object V1096 = (base[4]->c.c_car); |
{object V1115 = (base[4]->c.c_car); |
5809 |
bds_unwind1; |
bds_unwind1; |
5810 |
VMR86(V1096)}} |
VMR86(V1115)}} |
5811 |
va_end(ap); |
va_end(ap); |
5812 |
base[0]=base[0]; |
base[0]=base[0]; |
5813 |
return Cnil;} |
return Cnil;} |
5814 |
/* local entry for function AUGMENT-TYPE */ |
/* local entry for function AUGMENT-TYPE */ |
5815 |
|
|
5816 |
static object LI96(V1099,V1100) |
static object LI96(V1118,V1119) |
5817 |
|
|
5818 |
register object V1099;register object V1100; |
register object V1118;register object V1119; |
5819 |
{ VMB87 VMS87 VMV87 |
{ VMB87 VMS87 VMV87 |
5820 |
goto TTL; |
goto TTL; |
5821 |
TTL:; |
TTL:; |
5822 |
if(((V1100))==(Ct)){ |
if(((V1119))==(Ct)){ |
5823 |
goto T2217;} |
goto T2217;} |
5824 |
if(!((CMPcar((V1099)))==(VV[108]))){ |
if(!((CMPcar((V1118)))==(VV[108]))){ |
5825 |
goto T2218;} |
goto T2218;} |
5826 |
goto T2217; |
goto T2217; |
5827 |
T2217:; |
T2217:; |
5828 |
{object V1101 = (V1099); |
{object V1120 = (V1118); |
5829 |
VMR87(V1101)} |
VMR87(V1120)} |
5830 |
goto T2218; |
goto T2218; |
5831 |
T2218:; |
T2218:; |
5832 |
{register object V1102; |
{register object V1121; |
5833 |
if(!(type_of((V1100))==t_cons)){ |
if(!(type_of((V1119))==t_cons)){ |
5834 |
goto T2224;} |
goto T2224;} |
5835 |
if(!((CMPcar((V1100)))==(VV[169]))){ |
if(!((CMPcar((V1119)))==(VV[169]))){ |
5836 |
goto T2224;} |
goto T2224;} |
5837 |
V1102= CMPcdr((V1100)); |
V1121= CMPcdr((V1119)); |
5838 |
goto T2222; |
goto T2222; |
5839 |
goto T2224; |
goto T2224; |
5840 |
T2224:; |
T2224:; |
5841 |
V1102= make_cons((V1100),Cnil); |
V1121= make_cons((V1119),Cnil); |
5842 |
goto T2222; |
goto T2222; |
5843 |
T2222:; |
T2222:; |
5844 |
if((CMPcar((V1099)))==(VV[144])){ |
if((CMPcar((V1118)))==(VV[144])){ |
5845 |
goto T2228;} |
goto T2228;} |
5846 |
{object V1103; |
{object V1122; |
5847 |
object V1104= (V1102); |
object V1123= (V1121); |
5848 |
if(V1104==Cnil){ |
if(V1123==Cnil){ |
5849 |
V1102= Cnil; |
V1121= Cnil; |
5850 |
goto T2231;} |
goto T2231;} |
5851 |
base[0]=V1103=MMcons(Cnil,Cnil); |
base[0]=V1122=MMcons(Cnil,Cnil); |
5852 |
goto T2232; |
goto T2232; |
5853 |
T2232:; |
T2232:; |
5854 |
base[1]= (V1099); |
base[1]= (V1118); |
5855 |
base[2]= (V1104->c.c_car); |
base[2]= (V1123->c.c_car); |
5856 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5857 |
(void) (*Lnk262)(); |
(void) (*Lnk262)(); |
5858 |
vs_top=sup; |
vs_top=sup; |
5859 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5860 |
goto T2235;} |
goto T2235;} |
5861 |
(V1103->c.c_cdr)= make_cons((V1104->c.c_car),Cnil); |
(V1122->c.c_cdr)= make_cons((V1123->c.c_car),Cnil); |
5862 |
goto T2233; |
goto T2233; |
5863 |
goto T2235; |
goto T2235; |
5864 |
T2235:; |
T2235:; |
5865 |
(V1103->c.c_cdr)= Cnil; |
(V1122->c.c_cdr)= Cnil; |
5866 |
goto T2233; |
goto T2233; |
5867 |
T2233:; |
T2233:; |
5868 |
while(MMcdr(V1103)!=Cnil)V1103=MMcdr(V1103); |
while(MMcdr(V1122)!=Cnil)V1122=MMcdr(V1122); |
5869 |
if((V1104=MMcdr(V1104))==Cnil){ |
if((V1123=MMcdr(V1123))==Cnil){ |
5870 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
5871 |
V1102= base[0]; |
V1121= base[0]; |
5872 |
goto T2231;} |
goto T2231;} |
5873 |
goto T2232;} |
goto T2232;} |
5874 |
goto T2231; |
goto T2231; |
5875 |
T2231:; |
T2231:; |
5876 |
goto T2228; |
goto T2228; |
5877 |
T2228:; |
T2228:; |
5878 |
if(((V1102))!=Cnil){ |
if(((V1121))!=Cnil){ |
5879 |
goto T2240;} |
goto T2240;} |
5880 |
{object V1106 = (V1099); |
{object V1125 = (V1118); |
5881 |
VMR87(V1106)} |
VMR87(V1125)} |
5882 |
goto T2240; |
goto T2240; |
5883 |
T2240:; |
T2240:; |
5884 |
{object V1107 = listA(3,VV[169],(V1099),(V1102)); |
{object V1126 = listA(3,VV[169],(V1118),(V1121)); |
5885 |
VMR87(V1107)}} |
VMR87(V1126)}} |
5886 |
base[0]=base[0]; |
base[0]=base[0]; |
5887 |
return Cnil; |
return Cnil; |
5888 |
} |
} |
5892 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5893 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
5894 |
vs_check; |
vs_check; |
5895 |
{object V1108; |
{object V1127; |
5896 |
object V1109; |
object V1128; |
5897 |
check_arg(6); |
check_arg(6); |
5898 |
V1108=(base[0]); |
V1127=(base[0]); |
5899 |
V1109=(base[1]); |
V1128=(base[1]); |
5900 |
vs_top=sup; |
vs_top=sup; |
5901 |
goto TTL; |
goto TTL; |
5902 |
TTL:; |
TTL:; |
5903 |
{object V1110; |
{object V1129; |
5904 |
object V1111; |
object V1130; |
5905 |
base[10]= (V1108); |
base[10]= (V1127); |
5906 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5907 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
5908 |
vs_top=sup; |
vs_top=sup; |
5909 |
V1110= vs_base[0]; |
V1129= vs_base[0]; |
5910 |
V1111= STREF(object,(V1110),4); |
V1130= STREF(object,(V1129),4); |
5911 |
base[8]= CMPmake_fixnum((long)(*(LnkLI341))((V1110))); |
base[8]= CMPmake_fixnum((long)(*(LnkLI341))((V1129))); |
5912 |
base[9]= STREF(object,(V1110),8); |
base[9]= STREF(object,(V1129),8); |
5913 |
base[10]= (V1111); |
base[10]= (V1130); |
5914 |
base[11]= (V1109); |
base[11]= (V1128); |
5915 |
base[12]= Cnil; |
base[12]= Cnil; |
5916 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5917 |
L100(base); |
L100(base); |
5924 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5925 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM89; VC89 |
5926 |
vs_check; |
vs_check; |
5927 |
{object V1112; |
{object V1131; |
5928 |
object V1113; |
object V1132; |
5929 |
object V1114; |
object V1133; |
5930 |
object V1115; |
object V1134; |
5931 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
5932 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
5933 |
V1112=(base[0]); |
V1131=(base[0]); |
5934 |
V1113=(base[1]); |
V1132=(base[1]); |
5935 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
5936 |
if(vs_base>=vs_top){vs_top=sup;goto T2250;} |
if(vs_base>=vs_top){vs_top=sup;goto T2250;} |
5937 |
V1114=(base[2]); |
V1133=(base[2]); |
5938 |
vs_base++; |
vs_base++; |
5939 |
if(vs_base>=vs_top){vs_top=sup;goto T2251;} |
if(vs_base>=vs_top){vs_top=sup;goto T2251;} |
5940 |
V1115=(base[3]); |
V1134=(base[3]); |
5941 |
vs_top=sup; |
vs_top=sup; |
5942 |
goto T2252; |
goto T2252; |
5943 |
goto T2250; |
goto T2250; |
5944 |
T2250:; |
T2250:; |
5945 |
V1114= Cnil; |
V1133= Cnil; |
5946 |
goto T2251; |
goto T2251; |
5947 |
T2251:; |
T2251:; |
5948 |
V1115= Cnil; |
V1134= Cnil; |
5949 |
goto T2252; |
goto T2252; |
5950 |
T2252:; |
T2252:; |
5951 |
base[4]= (VFUN_NARGS=2,(*(LnkLI342))((V1112),(V1113))); |
base[4]= (VFUN_NARGS=2,(*(LnkLI342))((V1131),(V1132))); |
5952 |
base[5]= (V1114); |
base[5]= (V1133); |
5953 |
base[6]= (V1115); |
base[6]= (V1134); |
5954 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
5955 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5956 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5961 |
} |
} |
5962 |
/* local entry for function COMPUTE-MCASE-PARAMETERS */ |
/* local entry for function COMPUTE-MCASE-PARAMETERS */ |
5963 |
|
|
5964 |
static object LI103(V1117) |
static object LI103(V1136) |
5965 |
|
|
5966 |
object V1117; |
object V1136; |
5967 |
{ VMB90 VMS90 VMV90 |
{ VMB90 VMS90 VMV90 |
5968 |
goto TTL; |
goto TTL; |
5969 |
TTL:; |
TTL:; |
5970 |
base[0]= (V1117); |
base[0]= (V1136); |
5971 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5972 |
Llast(); |
Llast(); |
5973 |
vs_top=sup; |
vs_top=sup; |
5974 |
V1118= vs_base[0]; |
V1137= vs_base[0]; |
5975 |
if((Ct)==(CMPcaar(V1118))){ |
if((Ct)==(CMPcaar(V1137))){ |
5976 |
goto T2258;} |
goto T2258;} |
5977 |
base[0]= VV[170]; |
base[0]= VV[170]; |
5978 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5980 |
vs_top=sup; |
vs_top=sup; |
5981 |
goto T2258; |
goto T2258; |
5982 |
T2258:; |
T2258:; |
5983 |
{object V1119; |
{object V1138; |
5984 |
object V1120; |
object V1139; |
5985 |
object V1121; |
object V1140; |
5986 |
{register object V1122; |
{register object V1141; |
5987 |
register object V1123; |
register object V1142; |
5988 |
V1122= (V1117); |
V1141= (V1136); |
5989 |
V1123= CMPcar((V1122)); |
V1142= CMPcar((V1141)); |
5990 |
goto T2268; |
goto T2268; |
5991 |
T2268:; |
T2268:; |
5992 |
if(!(((V1122))==Cnil)){ |
if(!(((V1141))==Cnil)){ |
5993 |
goto T2269;} |
goto T2269;} |
5994 |
V1119= Ct; |
V1138= Ct; |
5995 |
goto T2264; |
goto T2264; |
5996 |
goto T2269; |
goto T2269; |
5997 |
T2269:; |
T2269:; |
5998 |
if((CMPcar((V1123)))==(Ct)){ |
if((CMPcar((V1142)))==(Ct)){ |
5999 |
goto T2273;} |
goto T2273;} |
6000 |
if(type_of(CMPcaar((V1123)))==t_symbol){ |
if(type_of(CMPcaar((V1142)))==t_symbol){ |
6001 |
goto T2273;} |
goto T2273;} |
6002 |
V1119= Cnil; |
V1138= Cnil; |
6003 |
goto T2264; |
goto T2264; |
6004 |
goto T2273; |
goto T2273; |
6005 |
T2273:; |
T2273:; |
6006 |
V1122= CMPcdr((V1122)); |
V1141= CMPcdr((V1141)); |
6007 |
V1123= CMPcar((V1122)); |
V1142= CMPcar((V1141)); |
6008 |
goto T2268;} |
goto T2268;} |
6009 |
goto T2264; |
goto T2264; |
6010 |
T2264:; |
T2264:; |
6011 |
V1124 = CMPmake_fixnum((long)length((V1117))); |
V1143 = CMPmake_fixnum((long)length((V1136))); |
6012 |
V1120= one_minus(V1124); |
V1139= one_minus(V1143); |
6013 |
if(!(number_compare((V1120),small_fixnum(1))==0)){ |
if(!(number_compare((V1139),small_fixnum(1))==0)){ |
6014 |
goto T2286;} |
goto T2286;} |
6015 |
V1121= VV[171]; |
V1140= VV[171]; |
6016 |
goto T2284; |
goto T2284; |
6017 |
goto T2286; |
goto T2286; |
6018 |
T2286:; |
T2286:; |
6019 |
if(((V1119))==Cnil){ |
V1144 = (V1139); |
6020 |
|
if(((V1138))==Cnil){ |
6021 |
goto T2293;} |
goto T2293;} |
6022 |
V1125= (VV[172]->s.s_dbind); |
V1145= (VV[172]->s.s_dbind); |
6023 |
goto T2291; |
goto T2291; |
6024 |
goto T2293; |
goto T2293; |
6025 |
T2293:; |
T2293:; |
6026 |
V1125= (VV[173]->s.s_dbind); |
V1145= (VV[173]->s.s_dbind); |
6027 |
goto T2291; |
goto T2291; |
6028 |
T2291:; |
T2291:; |
6029 |
if(!(number_compare((V1120),V1125)<=0)){ |
if(!(number_compare(V1144,V1145)<=0)){ |
6030 |
goto T2289;} |
goto T2289;} |
6031 |
V1121= VV[174]; |
V1140= VV[174]; |
6032 |
goto T2284; |
goto T2284; |
6033 |
goto T2289; |
goto T2289; |
6034 |
T2289:; |
T2289:; |
6035 |
V1121= VV[175]; |
V1140= VV[175]; |
6036 |
goto T2284; |
goto T2284; |
6037 |
T2284:; |
T2284:; |
6038 |
{object V1126 = list(2,(V1119),(V1121)); |
{object V1146 = list(2,(V1138),(V1140)); |
6039 |
VMR90(V1126)}} |
VMR90(V1146)}} |
6040 |
base[0]=base[0]; |
base[0]=base[0]; |
6041 |
return Cnil; |
return Cnil; |
6042 |
} |
} |
6048 |
vs_check; |
vs_check; |
6049 |
check_arg(2); |
check_arg(2); |
6050 |
vs_top=sup; |
vs_top=sup; |
6051 |
{object V1127=base[0]->c.c_cdr; |
{object V1147=base[0]->c.c_cdr; |
6052 |
if(endp(V1127))invalid_macro_call(); |
if(endp(V1147))invalid_macro_call(); |
6053 |
base[2]= (V1127->c.c_car); |
base[2]= (V1147->c.c_car); |
6054 |
V1127=V1127->c.c_cdr; |
V1147=V1147->c.c_cdr; |
6055 |
if(endp(V1127))invalid_macro_call(); |
if(endp(V1147))invalid_macro_call(); |
6056 |
base[3]= (V1127->c.c_car); |
base[3]= (V1147->c.c_car); |
6057 |
V1127=V1127->c.c_cdr; |
V1147=V1147->c.c_cdr; |
6058 |
if(endp(V1127))invalid_macro_call(); |
if(endp(V1147))invalid_macro_call(); |
6059 |
base[4]= (V1127->c.c_car); |
base[4]= (V1147->c.c_car); |
6060 |
V1127=V1127->c.c_cdr; |
V1147=V1147->c.c_cdr; |
6061 |
if(endp(V1127)){ |
if(endp(V1147)){ |
6062 |
base[5]= Cnil; |
base[5]= Cnil; |
6063 |
} else { |
} else { |
6064 |
base[5]= (V1127->c.c_car); |
base[5]= (V1147->c.c_car); |
6065 |
V1127=V1127->c.c_cdr;} |
V1147=V1147->c.c_cdr;} |
6066 |
if(endp(V1127)){ |
if(endp(V1147)){ |
6067 |
base[6]= Cnil; |
base[6]= Cnil; |
6068 |
} else { |
} else { |
6069 |
base[6]= (V1127->c.c_car); |
base[6]= (V1147->c.c_car); |
6070 |
V1127=V1127->c.c_cdr;} |
V1147=V1147->c.c_cdr;} |
6071 |
if(!endp(V1127))invalid_macro_call();} |
if(!endp(V1147))invalid_macro_call();} |
6072 |
if((base[5])==(Ct)){ |
if((base[5])==(Ct)){ |
6073 |
goto T2297;} |
goto T2297;} |
6074 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
6079 |
vs_top=sup; |
vs_top=sup; |
6080 |
goto T2297; |
goto T2297; |
6081 |
T2297:; |
T2297:; |
6082 |
{object V1128= base[6]; |
{object V1148= base[6]; |
6083 |
if((V1128!= VV[171]))goto T2303; |
if((V1148!= VV[171]))goto T2303; |
6084 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
6085 |
goto T2306;} |
goto T2306;} |
6086 |
V1129= VV[145]; |
V1149= VV[145]; |
6087 |
goto T2304; |
goto T2304; |
6088 |
goto T2306; |
goto T2306; |
6089 |
T2306:; |
T2306:; |
6090 |
V1129= VV[108]; |
V1149= VV[108]; |
6091 |
goto T2304; |
goto T2304; |
6092 |
T2304:; |
T2304:; |
6093 |
V1130= list(3,V1129,base[2],list(2,VV[177],base[3])); |
V1150 = base[2]; |
6094 |
base[7]= list(4,VV[165],/* INLINE-ARGS */V1130,list(2,VV[178],base[3]),base[4]); |
V1151= list(3,V1149,V1150,list(2,VV[177],base[3])); |
6095 |
|
base[7]= list(4,VV[165],/* INLINE-ARGS */V1151,list(2,VV[178],base[3]),base[4]); |
6096 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6097 |
return; |
return; |
6098 |
goto T2303; |
goto T2303; |
6099 |
T2303:; |
T2303:; |
6100 |
if((V1128!= VV[174]))goto T2308; |
if((V1148!= VV[174]))goto T2308; |
6101 |
V1131= list(3,VV[180],base[3],base[4]); |
V1152= list(3,VV[180],base[3],base[4]); |
6102 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
6103 |
goto T2311;} |
goto T2311;} |
6104 |
V1132= VV[145]; |
V1153= VV[145]; |
6105 |
goto T2309; |
goto T2309; |
6106 |
goto T2311; |
goto T2311; |
6107 |
T2311:; |
T2311:; |
6108 |
V1132= VV[108]; |
V1153= VV[108]; |
6109 |
goto T2309; |
goto T2309; |
6110 |
T2309:; |
T2309:; |
6111 |
base[7]= list(3,VV[179],/* INLINE-ARGS */V1131,list(3,VV[181],list(3,V1132,VV[182],base[2]),VV[183])); |
V1154 = base[2]; |
6112 |
|
base[7]= list(3,VV[179],/* INLINE-ARGS */V1152,list(3,VV[181],list(3,V1153,VV[182],V1154),VV[183])); |
6113 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6114 |
return; |
return; |
6115 |
goto T2308; |
goto T2308; |
6116 |
T2308:; |
T2308:; |
6117 |
if((V1128!= VV[175]))goto T2313; |
if((V1148!= VV[175]))goto T2313; |
6118 |
base[7]= list(4,VV[184],base[2],base[3],base[4]); |
base[7]= list(4,VV[184],base[2],base[3],base[4]); |
6119 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6120 |
return; |
return; |
6121 |
goto T2313; |
goto T2313; |
6122 |
T2313:; |
T2313:; |
6123 |
FEerror("The ECASE key value ~s is illegal.",1,V1128); |
FEerror("The ECASE key value ~s is illegal.",1,V1148); |
6124 |
base[7]= Cnil; |
base[7]= Cnil; |
6125 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6126 |
return;} |
return;} |
6127 |
} |
} |
6128 |
/* local entry for function NET-TEST-CONVERTER */ |
/* local entry for function NET-TEST-CONVERTER */ |
6129 |
|
|
6130 |
static object LI105(V1134) |
static object LI105(V1156) |
6131 |
|
|
6132 |
register object V1134; |
register object V1156; |
6133 |
{ VMB92 VMS92 VMV92 |
{ VMB92 VMS92 VMV92 |
6134 |
goto TTL; |
goto TTL; |
6135 |
TTL:; |
TTL:; |
6136 |
if(!(type_of((V1134))!=t_cons)){ |
if(!(type_of((V1156))!=t_cons)){ |
6137 |
goto T2315;} |
goto T2315;} |
6138 |
{object V1135 = (*(LnkLI343))((V1134)); |
{object V1157 = (*(LnkLI343))((V1156)); |
6139 |
VMR92(V1135)} |
VMR92(V1157)} |
6140 |
goto T2315; |
goto T2315; |
6141 |
T2315:; |
T2315:; |
6142 |
{object V1136= CMPcar((V1134)); |
{object V1158= CMPcar((V1156)); |
6143 |
if((V1136!= VV[344]) |
if((V1158!= VV[344]) |
6144 |
&& (V1136!= VV[345]))goto T2317; |
&& (V1158!= VV[345]))goto T2317; |
6145 |
{object V1137 = VV[185]; |
{object V1159 = VV[185]; |
6146 |
VMR92(V1137)} |
VMR92(V1159)} |
6147 |
goto T2317; |
goto T2317; |
6148 |
T2317:; |
T2317:; |
6149 |
if((V1136!= VV[67]))goto T2318; |
if((V1158!= VV[67]))goto T2318; |
6150 |
{object V1138 = VV[186]; |
{object V1160 = VV[186]; |
6151 |
VMR92(V1138)} |
VMR92(V1160)} |
6152 |
goto T2318; |
goto T2318; |
6153 |
T2318:; |
T2318:; |
6154 |
if((V1136!= VV[157]))goto T2319; |
if((V1158!= VV[157]))goto T2319; |
6155 |
{object V1139 = VV[187]; |
{object V1161 = VV[187]; |
6156 |
VMR92(V1139)} |
VMR92(V1161)} |
6157 |
goto T2319; |
goto T2319; |
6158 |
T2319:; |
T2319:; |
6159 |
if((V1136!= VV[164]))goto T2320; |
if((V1158!= VV[164]))goto T2320; |
6160 |
V1140= CMPcadr((V1134)); |
V1162= CMPcadr((V1156)); |
6161 |
{object V1141 = listA(5,VV[188],/* INLINE-ARGS */V1140,Cnil,Cnil,(*(LnkLI346))(CMPcddr((V1134)))); |
{object V1163 = listA(5,VV[188],/* INLINE-ARGS */V1162,Cnil,Cnil,(*(LnkLI346))(CMPcddr((V1156)))); |
6162 |
VMR92(V1141)} |
VMR92(V1163)} |
6163 |
goto T2320; |
goto T2320; |
6164 |
T2320:; |
T2320:; |
6165 |
{object V1142 = (*(LnkLI343))((V1134)); |
{object V1164 = (*(LnkLI343))((V1156)); |
6166 |
VMR92(V1142)}} |
VMR92(V1164)}} |
6167 |
return Cnil; |
return Cnil; |
6168 |
} |
} |
6169 |
/* function definition for NET-CODE-CONVERTER */ |
/* function definition for NET-CODE-CONVERTER */ |
6172 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6173 |
register object *sup=base+VM93; VC93 |
register object *sup=base+VM93; VC93 |
6174 |
vs_check; |
vs_check; |
6175 |
{register object V1143; |
{register object V1165; |
6176 |
check_arg(1); |
check_arg(1); |
6177 |
V1143=(base[0]); |
V1165=(base[0]); |
6178 |
vs_top=sup; |
vs_top=sup; |
6179 |
goto TTL; |
goto TTL; |
6180 |
TTL:; |
TTL:; |
6181 |
if(!(type_of((V1143))!=t_cons)){ |
if(!(type_of((V1165))!=t_cons)){ |
6182 |
goto T2322;} |
goto T2322;} |
6183 |
base[1]= (V1143); |
base[1]= (V1165); |
6184 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6185 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6186 |
return; |
return; |
6187 |
goto T2322; |
goto T2322; |
6188 |
T2322:; |
T2322:; |
6189 |
{object V1144= CMPcar((V1143)); |
{object V1166= CMPcar((V1165)); |
6190 |
if((V1144!= VV[67]) |
if((V1166!= VV[67]) |
6191 |
&& (V1144!= VV[157]))goto T2325; |
&& (V1166!= VV[157]))goto T2325; |
6192 |
{object V1145; |
{object V1167; |
6193 |
vs_base=vs_top; |
vs_base=vs_top; |
6194 |
Lgensym(); |
Lgensym(); |
6195 |
vs_top=sup; |
vs_top=sup; |
6196 |
V1145= vs_base[0]; |
V1167= vs_base[0]; |
6197 |
base[1]= (V1145); |
base[1]= (V1167); |
6198 |
base[2]= make_cons((V1145),Cnil); |
base[2]= make_cons((V1167),Cnil); |
6199 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6200 |
return;} |
return;} |
6201 |
goto T2325; |
goto T2325; |
6202 |
T2325:; |
T2325:; |
6203 |
if((V1144!= VV[164]))goto T2329; |
if((V1166!= VV[164]))goto T2329; |
6204 |
{object V1146; |
{object V1168; |
6205 |
object V1147; |
object V1169; |
6206 |
object V1148; |
object V1170; |
6207 |
V1146= (*(LnkLI346))(CMPcddr((V1143))); |
V1168= (*(LnkLI346))(CMPcddr((V1165))); |
6208 |
vs_base=vs_top; |
vs_base=vs_top; |
6209 |
Lgensym(); |
Lgensym(); |
6210 |
vs_top=sup; |
vs_top=sup; |
6211 |
V1147= vs_base[0]; |
V1169= vs_base[0]; |
6212 |
vs_base=vs_top; |
vs_base=vs_top; |
6213 |
Lgensym(); |
Lgensym(); |
6214 |
vs_top=sup; |
vs_top=sup; |
6215 |
V1148= vs_base[0]; |
V1170= vs_base[0]; |
6216 |
base[1]= listA(5,VV[188],CMPcadr((V1143)),(V1147),(V1148),(V1146)); |
base[1]= listA(5,VV[188],CMPcadr((V1165)),(V1169),(V1170),(V1168)); |
6217 |
base[2]= list(2,(V1147),(V1148)); |
base[2]= list(2,(V1169),(V1170)); |
6218 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6219 |
return;} |
return;} |
6220 |
goto T2329; |
goto T2329; |
6221 |
T2329:; |
T2329:; |
6222 |
base[1]= (V1143); |
base[1]= (V1165); |
6223 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6224 |
(void) (*Lnk347)(); |
(void) (*Lnk347)(); |
6225 |
return;} |
return;} |
6227 |
} |
} |
6228 |
/* local entry for function NET-CONSTANT-CONVERTER */ |
/* local entry for function NET-CONSTANT-CONVERTER */ |
6229 |
|
|
6230 |
static object LI107(V1151,V1152) |
static object LI107(V1173,V1174) |
6231 |
|
|
6232 |
register object V1151;object V1152; |
register object V1173;object V1174; |
6233 |
{ VMB94 VMS94 VMV94 |
{ VMB94 VMS94 VMV94 |
6234 |
goto TTL; |
goto TTL; |
6235 |
TTL:;{object V1153; |
TTL:;{object V1175; |
6236 |
{object V1154; |
{object V1176; |
6237 |
V1154= (*(LnkLI348))((V1151),(V1152)); |
V1176= (*(LnkLI348))((V1173),(V1174)); |
6238 |
if(((V1154))==Cnil){ |
if(((V1176))==Cnil){ |
6239 |
goto T2340;} |
goto T2340;} |
6240 |
V1153= make_cons((V1154),Cnil); |
V1175= make_cons((V1176),Cnil); |
6241 |
goto T2337; |
goto T2337; |
6242 |
goto T2340; |
goto T2340; |
6243 |
T2340:; |
T2340:; |
6244 |
V1153= Cnil;} |
V1175= Cnil;} |
6245 |
goto T2337; |
goto T2337; |
6246 |
T2337:; |
T2337:; |
6247 |
if(V1153==Cnil)goto T2336; |
if(V1175==Cnil)goto T2336; |
6248 |
{object V1155 = V1153; |
{object V1177 = V1175; |
6249 |
VMR94(V1155)} |
VMR94(V1177)} |
6250 |
goto T2336; |
goto T2336; |
6251 |
T2336:;} |
T2336:;} |
6252 |
if(!(type_of((V1151))!=t_cons)){ |
if(!(type_of((V1173))!=t_cons)){ |
6253 |
goto T2343;} |
goto T2343;} |
6254 |
{object V1156 = (*(LnkLI349))((V1151)); |
{object V1178 = (*(LnkLI349))((V1173)); |
6255 |
VMR94(V1156)} |
VMR94(V1178)} |
6256 |
goto T2343; |
goto T2343; |
6257 |
T2343:; |
T2343:; |
6258 |
{object V1157= CMPcar((V1151)); |
{object V1179= CMPcar((V1173)); |
6259 |
if((V1157!= VV[164]))goto T2345; |
if((V1179!= VV[164]))goto T2345; |
6260 |
{object V1158; |
{object V1180; |
6261 |
object V1159; |
object V1181; |
6262 |
object V1160; |
object V1182; |
6263 |
V1158= (*(LnkLI346))(CMPcddr((V1151))); |
V1180= (*(LnkLI346))(CMPcddr((V1173))); |
6264 |
{object V1161; |
{object V1183; |
6265 |
object V1162= CMPcddr((V1151)); |
object V1184= CMPcddr((V1173)); |
6266 |
if(V1162==Cnil){ |
if(V1184==Cnil){ |
6267 |
V1159= Cnil; |
V1181= Cnil; |
6268 |
goto T2347;} |
goto T2347;} |
6269 |
base[3]=V1161=MMcons(Cnil,Cnil); |
base[3]=V1183=MMcons(Cnil,Cnil); |
6270 |
goto T2348; |
goto T2348; |
6271 |
T2348:; |
T2348:; |
6272 |
{object V1164; |
{object V1186; |
6273 |
object V1165; |
object V1187; |
6274 |
V1164= CMPcar((V1162->c.c_car)); |
V1186= CMPcar((V1184->c.c_car)); |
6275 |
V1165= CMPcadr((V1162->c.c_car)); |
V1187= CMPcadr((V1184->c.c_car)); |
6276 |
if(!(type_of((V1164))==t_cons)){ |
if(!(type_of((V1186))==t_cons)){ |
6277 |
goto T2354;} |
goto T2354;} |
6278 |
V1166= CMPcar((V1164)); |
V1188= CMPcar((V1186)); |
6279 |
goto T2352; |
goto T2352; |
6280 |
goto T2354; |
goto T2354; |
6281 |
T2354:; |
T2354:; |
6282 |
V1166= (V1164); |
V1188= (V1186); |
6283 |
goto T2352; |
goto T2352; |
6284 |
T2352:; |
T2352:; |
6285 |
V1167= (*(LnkLI348))((V1165),(V1152)); |
V1189= (*(LnkLI348))((V1187),(V1174)); |
6286 |
(V1161->c.c_car)= make_cons(V1166,/* INLINE-ARGS */V1167);} |
(V1183->c.c_car)= make_cons(V1188,/* INLINE-ARGS */V1189);} |
6287 |
if((V1162=MMcdr(V1162))==Cnil){ |
if((V1184=MMcdr(V1184))==Cnil){ |
6288 |
V1159= base[3]; |
V1181= base[3]; |
6289 |
goto T2347;} |
goto T2347;} |
6290 |
V1161=MMcdr(V1161)=MMcons(Cnil,Cnil); |
V1183=MMcdr(V1183)=MMcons(Cnil,Cnil); |
6291 |
goto T2348;} |
goto T2348;} |
6292 |
goto T2347; |
goto T2347; |
6293 |
T2347:; |
T2347:; |
6294 |
base[3]= (V1159); |
base[3]= (V1181); |
6295 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6296 |
Llast(); |
Llast(); |
6297 |
vs_top=sup; |
vs_top=sup; |
6298 |
V1168= vs_base[0]; |
V1190= vs_base[0]; |
6299 |
V1160= CMPcar(V1168); |
V1182= CMPcar(V1190); |
6300 |
base[3]= (V1159); |
V1191 = (V1180); |
6301 |
|
base[3]= (V1181); |
6302 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6303 |
Lnbutlast(); |
Lnbutlast(); |
6304 |
vs_top=sup; |
vs_top=sup; |
6305 |
V1169= vs_base[0]; |
V1192= vs_base[0]; |
6306 |
{object V1170 = list(2,listA(3,VV[189],(V1158),V1169),CMPcdr((V1160))); |
{object V1193 = list(2,listA(3,VV[189],V1191,V1192),CMPcdr((V1182))); |
6307 |
VMR94(V1170)}} |
VMR94(V1193)}} |
6308 |
goto T2345; |
goto T2345; |
6309 |
T2345:; |
T2345:; |
6310 |
{object V1171 = (*(LnkLI349))((V1151)); |
{object V1194 = (*(LnkLI349))((V1173)); |
6311 |
VMR94(V1171)}} |
VMR94(V1194)}} |
6312 |
base[0]=base[0]; |
base[0]=base[0]; |
6313 |
return Cnil; |
return Cnil; |
6314 |
} |
} |
6315 |
/* local entry for function METHODS-CONVERTER */ |
/* local entry for function METHODS-CONVERTER */ |
6316 |
|
|
6317 |
static object LI108(V1174,V1175) |
static object LI108(V1197,V1198) |
6318 |
|
|
6319 |
register object V1174;object V1175; |
register object V1197;object V1198; |
6320 |
{ VMB95 VMS95 VMV95 |
{ VMB95 VMS95 VMV95 |
6321 |
goto TTL; |
goto TTL; |
6322 |
TTL:; |
TTL:; |
6323 |
if(!(type_of((V1174))==t_cons)){ |
if(!(type_of((V1197))==t_cons)){ |
6324 |
goto T2362;} |
goto T2362;} |
6325 |
if(!((CMPcar((V1174)))==(VV[67]))){ |
if(!((CMPcar((V1197)))==(VV[67]))){ |
6326 |
goto T2362;} |
goto T2362;} |
6327 |
V1176= (VFUN_NARGS=2,(*(LnkLI350))((V1175),CMPcadr((V1174)))); |
V1199= (VFUN_NARGS=2,(*(LnkLI350))((V1198),CMPcadr((V1197)))); |
6328 |
{object V1177 = make_cons(VV[186],/* INLINE-ARGS */V1176); |
{object V1200 = make_cons(VV[186],/* INLINE-ARGS */V1199); |
6329 |
VMR95(V1177)} |
VMR95(V1200)} |
6330 |
goto T2362; |
goto T2362; |
6331 |
T2362:; |
T2362:; |
6332 |
if(!(type_of((V1174))==t_cons)){ |
if(!(type_of((V1197))==t_cons)){ |
6333 |
goto T2367;} |
goto T2367;} |
6334 |
if(!((CMPcar((V1174)))==(VV[157]))){ |
if(!((CMPcar((V1197)))==(VV[157]))){ |
6335 |
goto T2367;} |
goto T2367;} |
6336 |
{object V1178 = (*(LnkLI351))((V1175)); |
{object V1201 = (*(LnkLI351))((V1198)); |
6337 |
VMR95(V1178)} |
VMR95(V1201)} |
6338 |
goto T2367; |
goto T2367; |
6339 |
T2367:; |
T2367:; |
6340 |
{object V1179 = Cnil; |
{object V1202 = Cnil; |
6341 |
VMR95(V1179)} |
VMR95(V1202)} |
6342 |
return Cnil; |
return Cnil; |
6343 |
} |
} |
6344 |
/* function definition for CONVERT-METHODS */ |
/* function definition for CONVERT-METHODS */ |
6347 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6348 |
register object *sup=base+VM96; VC96 |
register object *sup=base+VM96; VC96 |
6349 |
vs_check; |
vs_check; |
6350 |
{register object V1180; |
{register object V1203; |
6351 |
object V1181; |
object V1204; |
6352 |
object V1182; |
object V1205; |
6353 |
check_arg(3); |
check_arg(3); |
6354 |
V1180=(base[0]); |
V1203=(base[0]); |
6355 |
V1181=(base[1]); |
V1204=(base[1]); |
6356 |
V1182=(base[2]); |
V1205=(base[2]); |
6357 |
vs_top=sup; |
vs_top=sup; |
6358 |
goto TTL; |
goto TTL; |
6359 |
TTL:; |
TTL:; |
6360 |
if(!(type_of((V1180))==t_cons)){ |
if(!(type_of((V1203))==t_cons)){ |
6361 |
goto T2372;} |
goto T2372;} |
6362 |
if(!((CMPcar((V1180)))==(VV[186]))){ |
if(!((CMPcar((V1203)))==(VV[186]))){ |
6363 |
goto T2372;} |
goto T2372;} |
6364 |
base[3]= CMPcdr((V1180)); |
base[3]= CMPcdr((V1203)); |
6365 |
base[4]= (V1181); |
base[4]= (V1204); |
6366 |
base[5]= (V1182); |
base[5]= (V1205); |
6367 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
6368 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6369 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6372 |
return; |
return; |
6373 |
goto T2372; |
goto T2372; |
6374 |
T2372:; |
T2372:; |
6375 |
base[3]= (V1180); |
base[3]= (V1203); |
6376 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6377 |
return; |
return; |
6378 |
} |
} |
6379 |
} |
} |
6380 |
/* local entry for function CONVERT-TABLE */ |
/* local entry for function CONVERT-TABLE */ |
6381 |
|
|
6382 |
static object LI110(V1186,V1187,V1188) |
static object LI110(V1209,V1210,V1211) |
6383 |
|
|
6384 |
object V1186;object V1187;object V1188; |
object V1209;object V1210;object V1211; |
6385 |
{ VMB97 VMS97 VMV97 |
{ VMB97 VMS97 VMV97 |
6386 |
goto TTL; |
goto TTL; |
6387 |
TTL:; |
TTL:; |
6388 |
if(!(type_of((V1186))==t_cons)){ |
if(!(type_of((V1209))==t_cons)){ |
6389 |
goto T2380;} |
goto T2380;} |
6390 |
if(!((CMPcar((V1186)))==(VV[189]))){ |
if(!((CMPcar((V1209)))==(VV[189]))){ |
6391 |
goto T2380;} |
goto T2380;} |
6392 |
{object V1189; |
{object V1212; |
6393 |
object V1190; |
object V1213; |
6394 |
{object V1191; |
{object V1214; |
6395 |
object V1192= CMPcddr((V1186)); |
object V1215= CMPcddr((V1209)); |
6396 |
if(V1192==Cnil){ |
if(V1215==Cnil){ |
6397 |
V1189= Cnil; |
V1212= Cnil; |
6398 |
goto T2384;} |
goto T2384;} |
6399 |
base[0]=V1191=MMcons(Cnil,Cnil); |
base[0]=V1214=MMcons(Cnil,Cnil); |
6400 |
goto T2385; |
goto T2385; |
6401 |
T2385:; |
T2385:; |
6402 |
V1194= CMPcar((V1192->c.c_car)); |
V1217= CMPcar((V1215->c.c_car)); |
6403 |
base[1]= CMPcdr((V1192->c.c_car)); |
base[1]= CMPcdr((V1215->c.c_car)); |
6404 |
base[2]= (V1187); |
base[2]= (V1210); |
6405 |
base[3]= (V1188); |
base[3]= (V1211); |
6406 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6407 |
(void) (*Lnk352)(); |
(void) (*Lnk352)(); |
6408 |
vs_top=sup; |
vs_top=sup; |
6409 |
V1195= vs_base[0]; |
V1218= vs_base[0]; |
6410 |
(V1191->c.c_car)= make_cons(/* INLINE-ARGS */V1194,V1195); |
(V1214->c.c_car)= make_cons(/* INLINE-ARGS */V1217,V1218); |
6411 |
if((V1192=MMcdr(V1192))==Cnil){ |
if((V1215=MMcdr(V1215))==Cnil){ |
6412 |
V1189= base[0]; |
V1212= base[0]; |
6413 |
goto T2384;} |
goto T2384;} |
6414 |
V1191=MMcdr(V1191)=MMcons(Cnil,Cnil); |
V1214=MMcdr(V1214)=MMcons(Cnil,Cnil); |
6415 |
goto T2385;} |
goto T2385;} |
6416 |
goto T2384; |
goto T2384; |
6417 |
T2384:; |
T2384:; |
6418 |
V1190= CMPcadr((V1186)); |
V1213= CMPcadr((V1209)); |
6419 |
{object V1196= CMPcadr((V1190)); |
{object V1219= CMPcadr((V1213)); |
6420 |
if((V1196!= VV[171]))goto T2392; |
if((V1219!= VV[171]))goto T2392; |
6421 |
{object V1197 = CMPcar((V1189)); |
{object V1220 = CMPcar((V1212)); |
6422 |
VMR97(V1197)} |
VMR97(V1220)} |
6423 |
goto T2392; |
goto T2392; |
6424 |
T2392:; |
T2392:; |
6425 |
if((V1196!= VV[174]))goto T2393; |
if((V1219!= VV[174]))goto T2393; |
6426 |
{object V1198 = (V1189); |
{object V1221 = (V1212); |
6427 |
VMR97(V1198)} |
VMR97(V1221)} |
6428 |
goto T2393; |
goto T2393; |
6429 |
T2393:; |
T2393:; |
6430 |
if((V1196!= VV[175]))goto T2394; |
if((V1219!= VV[175]))goto T2394; |
6431 |
{register object V1199; |
{register object V1222; |
6432 |
base[0]= VV[190]; |
base[0]= VV[190]; |
6433 |
if((CMPcar((V1190)))==Cnil){ |
if((CMPcar((V1213)))==Cnil){ |
6434 |
goto T2399;} |
goto T2399;} |
6435 |
base[1]= VV[145]; |
base[1]= VV[145]; |
6436 |
goto T2397; |
goto T2397; |
6442 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6443 |
Lmake_hash_table(); |
Lmake_hash_table(); |
6444 |
vs_top=sup; |
vs_top=sup; |
6445 |
V1199= vs_base[0]; |
V1222= vs_base[0]; |
6446 |
{register object V1200; |
{register object V1223; |
6447 |
register object V1201; |
register object V1224; |
6448 |
V1200= (V1189); |
V1223= (V1212); |
6449 |
V1201= CMPcar((V1200)); |
V1224= CMPcar((V1223)); |
6450 |
goto T2405; |
goto T2405; |
6451 |
T2405:; |
T2405:; |
6452 |
if(!(((V1200))==Cnil)){ |
if(!(((V1223))==Cnil)){ |
6453 |
goto T2406;} |
goto T2406;} |
6454 |
goto T2401; |
goto T2401; |
6455 |
goto T2406; |
goto T2406; |
6456 |
T2406:; |
T2406:; |
6457 |
{register object V1202; |
{register object V1225; |
6458 |
register object V1203; |
register object V1226; |
6459 |
register object V1204; |
register object V1227; |
6460 |
V1202= CMPcar((V1201)); |
V1225= CMPcar((V1224)); |
6461 |
V1203= (V1199); |
V1226= (V1222); |
6462 |
V1204= CMPcdr((V1201)); |
V1227= CMPcdr((V1224)); |
6463 |
base[3]= (V1202); |
base[3]= (V1225); |
6464 |
base[4]= (V1203); |
base[4]= (V1226); |
6465 |
base[5]= (V1204); |
base[5]= (V1227); |
6466 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6467 |
siLhash_set(); |
siLhash_set(); |
6468 |
vs_top=sup;} |
vs_top=sup;} |
6469 |
V1200= CMPcdr((V1200)); |
V1223= CMPcdr((V1223)); |
6470 |
V1201= CMPcar((V1200)); |
V1224= CMPcar((V1223)); |
6471 |
goto T2405;} |
goto T2405;} |
6472 |
goto T2401; |
goto T2401; |
6473 |
T2401:; |
T2401:; |
6474 |
{object V1205 = (V1199); |
{object V1228 = (V1222); |
6475 |
VMR97(V1205)}} |
VMR97(V1228)}} |
6476 |
goto T2394; |
goto T2394; |
6477 |
T2394:; |
T2394:; |
6478 |
FEerror("The ECASE key value ~s is illegal.",1,V1196); |
FEerror("The ECASE key value ~s is illegal.",1,V1219); |
6479 |
{object V1206 = Cnil; |
{object V1229 = Cnil; |
6480 |
VMR97(V1206)}}} |
VMR97(V1229)}}} |
6481 |
goto T2380; |
goto T2380; |
6482 |
T2380:; |
T2380:; |
6483 |
{object V1207 = Cnil; |
{object V1230 = Cnil; |
6484 |
VMR97(V1207)} |
VMR97(V1230)} |
6485 |
base[0]=base[0]; |
base[0]=base[0]; |
6486 |
return Cnil; |
return Cnil; |
6487 |
} |
} |
6488 |
/* local entry for function COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
/* local entry for function COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
6489 |
|
|
6490 |
static object LI111(object V1209,object V1208,object first,...) |
static object LI111(object V1232,object V1231,object first,...) |
6491 |
{ |
{ |
6492 |
va_list ap; |
va_list ap; |
6493 |
int narg = VFUN_NARGS; VMB98 VMS98 VMV98 |
int narg = VFUN_NARGS; VMB98 VMS98 VMV98 |
6494 |
{object V1210; |
{object V1233; |
6495 |
va_start(ap,first); |
va_start(ap,first); |
6496 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
6497 |
Vcs[0]=MMcons(V1209,Cnil); |
Vcs[0]=MMcons(V1232,Cnil); |
6498 |
V1210= V1208; |
V1233= V1231; |
6499 |
narg = narg - 2; |
narg = narg - 2; |
6500 |
if (narg <= 0) goto T2422; |
if (narg <= 0) goto T2422; |
6501 |
else { |
else { |
6507 |
Vcs[2]=MMcons(Vcs[2],Vcs[0]); |
Vcs[2]=MMcons(Vcs[2],Vcs[0]); |
6508 |
goto T2423; |
goto T2423; |
6509 |
T2423:; |
T2423:; |
6510 |
if(!((CMPcar((V1210)))==(VV[67]))){ |
if(!((CMPcar((V1233)))==(VV[67]))){ |
6511 |
goto T2426;} |
goto T2426;} |
6512 |
if(((Vcs[2]->c.c_car))!=Cnil){ |
if(((Vcs[2]->c.c_car))!=Cnil){ |
6513 |
goto T2426;} |
goto T2426;} |
6514 |
{object V1211 = (VFUN_NARGS=2,(*(LnkLI350))((Vcs[0]->c.c_car),CMPcadr((V1210)))); |
{object V1234 = (VFUN_NARGS=2,(*(LnkLI350))((Vcs[0]->c.c_car),CMPcadr((V1233)))); |
6515 |
VMR98(V1211)} |
VMR98(V1234)} |
6516 |
goto T2426; |
goto T2426; |
6517 |
T2426:; |
T2426:; |
6518 |
{object V1212; |
{object V1235; |
6519 |
object V1213; |
object V1236; |
6520 |
object V1214; |
object V1237; |
6521 |
base[5]= (Vcs[0]->c.c_car); |
base[5]= (Vcs[0]->c.c_car); |
6522 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6523 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
6528 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6529 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
6530 |
vs_top=sup; |
vs_top=sup; |
6531 |
V1212= vs_base[0]; |
V1235= vs_base[0]; |
6532 |
V1213= STREF(object,(V1212),8); |
V1236= STREF(object,(V1235),8); |
6533 |
V1214= (*(LnkLI353))((V1212)); |
V1237= (*(LnkLI353))((V1235)); |
6534 |
V1215 = CMPmake_fixnum((long)length((V1213))); |
V1238 = CMPmake_fixnum((long)length((V1236))); |
6535 |
base[4]= make_cons(V1215,(V1214)); |
base[4]= make_cons(V1238,(V1237)); |
6536 |
base[4]=MMcons(base[4],base[0]); |
base[4]=MMcons(base[4],base[0]); |
6537 |
V1216= list(2,VV[193],(V1210)); |
V1239= list(2,VV[193],(V1233)); |
6538 |
V1217= make_cons(/* INLINE-ARGS */V1216,Cnil); |
V1240= make_cons(/* INLINE-ARGS */V1239,Cnil); |
6539 |
V1218= list(3,VV[191],VV[192],list(3,VV[158],/* INLINE-ARGS */V1217,(VFUN_NARGS=3,(*(LnkLI355))((V1213),(V1214),VV[193])))); |
V1241= list(3,VV[191],VV[192],list(3,VV[158],/* INLINE-ARGS */V1240,(VFUN_NARGS=3,(*(LnkLI355))((V1236),(V1237),VV[193])))); |
6540 |
V1219= make_cons(/* INLINE-ARGS */V1218,Cnil); |
V1242= make_cons(/* INLINE-ARGS */V1241,Cnil); |
6541 |
base[7]= (*(LnkLI354))((Vcs[2]->c.c_car),(V1213),(V1214),/* INLINE-ARGS */V1219); |
base[7]= (*(LnkLI354))((Vcs[2]->c.c_car),(V1236),(V1237),/* INLINE-ARGS */V1242); |
6542 |
base[8]= (VV[356]->s.s_gfdef); |
base[8]= (VV[356]->s.s_gfdef); |
6543 |
base[9]= (VV[357]->s.s_gfdef); |
base[9]= (VV[357]->s.s_gfdef); |
6544 |
base[10]= |
base[10]= |
6560 |
base[6]=MMcons(Cnil,base[5]); |
base[6]=MMcons(Cnil,base[5]); |
6561 |
goto T2444; |
goto T2444; |
6562 |
T2444:; |
T2444:; |
6563 |
{object V1220 = |
{object V1243 = |
6564 |
make_cclosure_new(LC133,Cnil,base[6],Cdata); |
make_cclosure_new(LC133,Cnil,base[6],Cdata); |
6565 |
VMR98(V1220)}} |
VMR98(V1243)}} |
6566 |
va_end(ap); |
va_end(ap); |
6567 |
base[0]=base[0]; |
base[0]=base[0]; |
6568 |
return Cnil;} |
return Cnil;} |
6569 |
} |
} |
6570 |
/* local entry for function MAKE-UNORDERED-METHODS-EMF */ |
/* local entry for function MAKE-UNORDERED-METHODS-EMF */ |
6571 |
|
|
6572 |
static object LI113(V1223,V1224) |
static object LI113(V1246,V1247) |
6573 |
|
|
6574 |
object V1223;object V1224; |
object V1246;object V1247; |
6575 |
{ VMB99 VMS99 VMV99 |
{ VMB99 VMS99 VMV99 |
6576 |
goto TTL; |
goto TTL; |
6577 |
TTL:; |
TTL:; |
6578 |
base[0]=MMcons((V1224),Cnil); |
base[0]=MMcons((V1247),Cnil); |
6579 |
base[1]=MMcons((V1223),base[0]); |
base[1]=MMcons((V1246),base[0]); |
6580 |
if(((VV[196]->s.s_dbind))==Cnil){ |
if(((VV[196]->s.s_dbind))==Cnil){ |
6581 |
goto T2445;} |
goto T2445;} |
6582 |
base[2]= Ct; |
base[2]= Ct; |
6591 |
vs_top=sup; |
vs_top=sup; |
6592 |
goto T2445; |
goto T2445; |
6593 |
T2445:; |
T2445:; |
6594 |
{object V1225 = |
{object V1248 = |
6595 |
make_cclosure_new(LC134,Cnil,base[1],Cdata); |
make_cclosure_new(LC134,Cnil,base[1],Cdata); |
6596 |
VMR99(V1225)} |
VMR99(V1248)} |
6597 |
base[0]=base[0]; |
base[0]=base[0]; |
6598 |
return Cnil; |
return Cnil; |
6599 |
} |
} |
6603 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6604 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM100; VC100 |
6605 |
vs_check; |
vs_check; |
6606 |
{object V1226; |
{object V1249; |
6607 |
object V1227; |
object V1250; |
6608 |
object V1228; |
object V1251; |
6609 |
check_arg(3); |
check_arg(3); |
6610 |
V1226=(base[0]); |
V1249=(base[0]); |
6611 |
V1227=(base[1]); |
V1250=(base[1]); |
6612 |
V1228=(base[2]); |
V1251=(base[2]); |
6613 |
vs_top=sup; |
vs_top=sup; |
6614 |
goto TTL; |
goto TTL; |
6615 |
TTL:; |
TTL:; |
6616 |
base[4]= (V1228); |
base[4]= (V1251); |
6617 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6618 |
(void) (*Lnk359)(Lclptr359); |
(void) (*Lnk359)(Lclptr359); |
6619 |
vs_top=sup; |
vs_top=sup; |
6620 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
6621 |
base[4]= (V1227); |
base[4]= (V1250); |
6622 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6623 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6624 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6633 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6634 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM101; VC101 |
6635 |
vs_check; |
vs_check; |
6636 |
{object V1229; |
{object V1252; |
6637 |
object V1230; |
object V1253; |
6638 |
object V1231; |
object V1254; |
6639 |
object V1232; |
object V1255; |
6640 |
check_arg(4); |
check_arg(4); |
6641 |
V1229=(base[0]); |
V1252=(base[0]); |
6642 |
V1230=(base[1]); |
V1253=(base[1]); |
6643 |
V1231=(base[2]); |
V1254=(base[2]); |
6644 |
V1232=(base[3]); |
V1255=(base[3]); |
6645 |
vs_top=sup; |
vs_top=sup; |
6646 |
goto TTL; |
goto TTL; |
6647 |
TTL:; |
TTL:; |
6648 |
base[5]= (V1232); |
base[5]= (V1255); |
6649 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6650 |
(void) (*Lnk360)(Lclptr360); |
(void) (*Lnk360)(Lclptr360); |
6651 |
vs_top=sup; |
vs_top=sup; |
6652 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
6653 |
base[5]= (V1229); |
base[5]= (V1252); |
6654 |
base[6]= (V1231); |
base[6]= (V1254); |
6655 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
6656 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6657 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6666 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6667 |
register object *sup=base+VM102; VC102 |
register object *sup=base+VM102; VC102 |
6668 |
vs_check; |
vs_check; |
6669 |
{object V1233; |
{object V1256; |
6670 |
object V1234; |
object V1257; |
6671 |
object V1235; |
object V1258; |
6672 |
check_arg(3); |
check_arg(3); |
6673 |
V1233=(base[0]); |
V1256=(base[0]); |
6674 |
V1234=(base[1]); |
V1257=(base[1]); |
6675 |
V1235=(base[2]); |
V1258=(base[2]); |
6676 |
vs_top=sup; |
vs_top=sup; |
6677 |
goto TTL; |
goto TTL; |
6678 |
TTL:; |
TTL:; |
6679 |
base[4]= (V1235); |
base[4]= (V1258); |
6680 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6681 |
(void) (*Lnk361)(Lclptr361); |
(void) (*Lnk361)(Lclptr361); |
6682 |
vs_top=sup; |
vs_top=sup; |
6683 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
6684 |
base[4]= (V1234); |
base[4]= (V1257); |
6685 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6686 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
6687 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6696 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6697 |
register object *sup=base+VM103; VC103 |
register object *sup=base+VM103; VC103 |
6698 |
vs_check; |
vs_check; |
6699 |
{object V1236; |
{object V1259; |
6700 |
object V1237; |
object V1260; |
6701 |
register object V1238; |
register object V1261; |
6702 |
check_arg(3); |
check_arg(3); |
6703 |
V1236=(base[0]); |
V1259=(base[0]); |
6704 |
V1237=(base[1]); |
V1260=(base[1]); |
6705 |
V1238=(base[2]); |
V1261=(base[2]); |
6706 |
vs_top=sup; |
vs_top=sup; |
6707 |
goto TTL; |
goto TTL; |
6708 |
TTL:; |
TTL:; |
6709 |
{register object V1240; |
{register object V1263; |
6710 |
object V1241; |
object V1264; |
6711 |
V1240= CMPcar((V1236)); |
V1263= CMPcar((V1259)); |
6712 |
V1241= CMPcdr((V1236)); |
V1264= CMPcdr((V1259)); |
6713 |
{object V1242; |
{object V1265; |
6714 |
if(type_of(V1238)==t_structure){ |
if(type_of(V1261)==t_structure){ |
6715 |
goto T2472;} |
goto T2472;} |
6716 |
goto T2470; |
goto T2470; |
6717 |
goto T2472; |
goto T2472; |
6718 |
T2472:; |
T2472:; |
6719 |
if(!(((V1238)->str.str_def)==(VV[198]))){ |
if(!(((V1261)->str.str_def)==(VV[198]))){ |
6720 |
goto T2470;} |
goto T2470;} |
6721 |
V1242= STREF(object,(V1238),4); |
V1265= STREF(object,(V1261),4); |
6722 |
goto T2468; |
goto T2468; |
6723 |
goto T2470; |
goto T2470; |
6724 |
T2470:;{object V1244; |
T2470:;{object V1267; |
6725 |
V1244= (VV[13]->s.s_dbind); |
V1267= (VV[13]->s.s_dbind); |
6726 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
6727 |
base[4]= (V1238); |
base[4]= (V1261); |
6728 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6729 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
6730 |
vs_top=sup; |
vs_top=sup; |
6731 |
V1245= vs_base[0]; |
V1268= vs_base[0]; |
6732 |
if(!((V1244)==(CMPcar(V1245)))){ |
if(!((V1267)==(CMPcar(V1268)))){ |
6733 |
goto T2475;}} |
goto T2475;}} |
6734 |
V1242= CMPcar(((V1238))->cc.cc_turbo[12]); |
V1265= CMPcar(((V1261))->cc.cc_turbo[12]); |
6735 |
goto T2468; |
goto T2468; |
6736 |
goto T2475; |
goto T2475; |
6737 |
T2475:; |
T2475:; |
6738 |
V1242= Cnil; |
V1265= Cnil; |
6739 |
goto T2468; |
goto T2468; |
6740 |
T2468:; |
T2468:; |
6741 |
{register object V1247; |
{register object V1270; |
6742 |
{register object V1248; |
{register object V1271; |
6743 |
V1248= ((V1240))->v.v_self[2]; |
V1271= ((V1263))->v.v_self[2]; |
6744 |
if(!(type_of(V1248)==t_fixnum)){ |
if(!(type_of(V1271)==t_fixnum)){ |
6745 |
goto T2487;} |
goto T2487;} |
6746 |
V1248= ((V1242))->v.v_self[fix((V1248))]; |
V1271= ((V1265))->v.v_self[fix((V1271))]; |
6747 |
goto T2485; |
goto T2485; |
6748 |
goto T2487; |
goto T2487; |
6749 |
T2487:; |
T2487:; |
6750 |
V1248= VV[14]; |
V1271= VV[14]; |
6751 |
goto T2485; |
goto T2485; |
6752 |
T2485:; |
T2485:; |
6753 |
if(!(((V1248))==(VV[14]))){ |
if(!(((V1271))==(VV[14]))){ |
6754 |
goto T2490;} |
goto T2490;} |
6755 |
base[3]= (V1238); |
base[3]= (V1261); |
6756 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6757 |
(void) (*Lnk362)(Lclptr362); |
(void) (*Lnk362)(Lclptr362); |
6758 |
vs_top=sup; |
vs_top=sup; |
6759 |
V1247= vs_base[0]; |
V1270= vs_base[0]; |
6760 |
goto T2482; |
goto T2482; |
6761 |
goto T2490; |
goto T2490; |
6762 |
T2490:; |
T2490:; |
6763 |
V1247= (V1248);} |
V1270= (V1271);} |
6764 |
goto T2482; |
goto T2482; |
6765 |
T2482:; |
T2482:; |
6766 |
if(!(((V1247))==Cnil)){ |
if(!(((V1270))==Cnil)){ |
6767 |
goto T2494;} |
goto T2494;} |
6768 |
{object V1250; |
{object V1273; |
6769 |
base[3]= (V1238); |
base[3]= (V1261); |
6770 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6771 |
(void) (*Lnk228)(Lclptr228); |
(void) (*Lnk228)(Lclptr228); |
6772 |
vs_top=sup; |
vs_top=sup; |
6773 |
V1250= vs_base[0]; |
V1273= vs_base[0]; |
6774 |
if(!(((V1250))==(VV[115]))){ |
if(!(((V1273))==(VV[115]))){ |
6775 |
goto T2498;} |
goto T2498;} |
6776 |
(void)((*(LnkLI363))((V1238))); |
(void)((*(LnkLI363))((V1261))); |
6777 |
goto T2498; |
goto T2498; |
6778 |
T2498:; |
T2498:; |
6779 |
if(!(((V1250))==(VV[199]))){ |
if(!(((V1273))==(VV[199]))){ |
6780 |
goto T2502;} |
goto T2502;} |
6781 |
base[3]= (V1238); |
base[3]= (V1261); |
6782 |
base[4]= VV[119]; |
base[4]= VV[119]; |
6783 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6784 |
(void) (*Lnk364)(); |
(void) (*Lnk364)(); |
6788 |
return; |
return; |
6789 |
goto T2502; |
goto T2502; |
6790 |
T2502:; |
T2502:; |
6791 |
if(!(equal((V1250),VV[200]))){ |
if(!(equal((V1273),VV[200]))){ |
6792 |
goto T2508;} |
goto T2508;} |
6793 |
base[3]= (V1238); |
base[3]= (V1261); |
6794 |
base[4]= VV[121]; |
base[4]= VV[121]; |
6795 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6796 |
(void) (*Lnk364)(); |
(void) (*Lnk364)(); |
6800 |
return; |
return; |
6801 |
goto T2508; |
goto T2508; |
6802 |
T2508:; |
T2508:; |
6803 |
if(!(((V1250))==(VV[201]))){ |
if(!(((V1273))==(VV[201]))){ |
6804 |
goto T2514;} |
goto T2514;} |
6805 |
base[3]= (V1238); |
base[3]= (V1261); |
6806 |
base[4]= VV[123]; |
base[4]= VV[123]; |
6807 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6808 |
(void) (*Lnk364)(); |
(void) (*Lnk364)(); |
6812 |
return; |
return; |
6813 |
goto T2514; |
goto T2514; |
6814 |
T2514:; |
T2514:; |
6815 |
{register object V1252; |
{register object V1275; |
6816 |
V1252= ((V1240))->v.v_self[1]; |
V1275= ((V1263))->v.v_self[1]; |
6817 |
if(!(type_of(V1252)==t_fixnum)){ |
if(!(type_of(V1275)==t_fixnum)){ |
6818 |
goto T2527;} |
goto T2527;} |
6819 |
V1252= ((V1242))->v.v_self[fix((V1252))]; |
V1275= ((V1265))->v.v_self[fix((V1275))]; |
6820 |
goto T2525; |
goto T2525; |
6821 |
goto T2527; |
goto T2527; |
6822 |
T2527:; |
T2527:; |
6823 |
V1252= VV[14]; |
V1275= VV[14]; |
6824 |
goto T2525; |
goto T2525; |
6825 |
T2525:; |
T2525:; |
6826 |
if(!(((V1252))==(VV[14]))){ |
if(!(((V1275))==(VV[14]))){ |
6827 |
goto T2530;} |
goto T2530;} |
6828 |
base[3]= (V1238); |
base[3]= (V1261); |
6829 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6830 |
(void) (*Lnk285)(Lclptr285); |
(void) (*Lnk285)(Lclptr285); |
6831 |
vs_top=sup; |
vs_top=sup; |
6832 |
V1251= vs_base[0]; |
V1274= vs_base[0]; |
6833 |
goto T2522; |
goto T2522; |
6834 |
goto T2530; |
goto T2530; |
6835 |
T2530:; |
T2530:; |
6836 |
V1251= (V1252);} |
V1274= (V1275);} |
6837 |
goto T2522; |
goto T2522; |
6838 |
T2522:; |
T2522:; |
6839 |
if((STREF(object,V1251,28))==Cnil){ |
if((STREF(object,V1274,28))==Cnil){ |
6840 |
goto T2520;} |
goto T2520;} |
6841 |
base[3]= (VFUN_NARGS=1,(*(LnkLI368))((V1238))); |
base[3]= (VFUN_NARGS=1,(*(LnkLI368))((V1261))); |
6842 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6843 |
return; |
return; |
6844 |
goto T2520; |
goto T2520; |
6845 |
T2520:; |
T2520:; |
6846 |
base[3]= (*(LnkLI369))((V1238)); |
base[3]= (*(LnkLI369))((V1261)); |
6847 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6848 |
return;} |
return;} |
6849 |
goto T2494; |
goto T2494; |
6850 |
T2494:; |
T2494:; |
6851 |
base[3]= (V1247); |
base[3]= (V1270); |
6852 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6853 |
Lfunctionp(); |
Lfunctionp(); |
6854 |
vs_top=sup; |
vs_top=sup; |
6855 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6856 |
goto T2534;} |
goto T2534;} |
6857 |
{register object V1254; |
{register object V1277; |
6858 |
V1254= ((V1240))->v.v_self[2]; |
V1277= ((V1263))->v.v_self[2]; |
6859 |
if(!(type_of(V1254)==t_fixnum)){ |
if(!(type_of(V1277)==t_fixnum)){ |
6860 |
goto T2541;} |
goto T2541;} |
6861 |
V1254= ((V1242))->v.v_self[fix((V1254))]; |
V1277= ((V1265))->v.v_self[fix((V1277))]; |
6862 |
goto T2539; |
goto T2539; |
6863 |
goto T2541; |
goto T2541; |
6864 |
T2541:; |
T2541:; |
6865 |
V1254= VV[14]; |
V1277= VV[14]; |
6866 |
goto T2539; |
goto T2539; |
6867 |
T2539:; |
T2539:; |
6868 |
if(!(((V1254))==(VV[14]))){ |
if(!(((V1277))==(VV[14]))){ |
6869 |
goto T2544;} |
goto T2544;} |
6870 |
base[3]= (V1238); |
base[3]= (V1261); |
6871 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6872 |
(void) (*Lnk362)(Lclptr362); |
(void) (*Lnk362)(Lclptr362); |
6873 |
return; |
return; |
6874 |
goto T2544; |
goto T2544; |
6875 |
T2544:; |
T2544:; |
6876 |
base[3]= (V1254); |
base[3]= (V1277); |
6877 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6878 |
return;} |
return;} |
6879 |
goto T2534; |
goto T2534; |
6880 |
T2534:; |
T2534:; |
6881 |
if(!(type_of((V1247))==t_cons)){ |
if(!(type_of((V1270))==t_cons)){ |
6882 |
goto T2548;} |
goto T2548;} |
6883 |
{register object V1257; |
{register object V1280; |
6884 |
V1257= ((V1240))->v.v_self[2]; |
V1280= ((V1263))->v.v_self[2]; |
6885 |
if(!(type_of(V1257)==t_fixnum)){ |
if(!(type_of(V1280)==t_fixnum)){ |
6886 |
goto T2555;} |
goto T2555;} |
6887 |
V1257= ((V1242))->v.v_self[fix((V1257))]; |
V1280= ((V1265))->v.v_self[fix((V1280))]; |
6888 |
goto T2553; |
goto T2553; |
6889 |
goto T2555; |
goto T2555; |
6890 |
T2555:; |
T2555:; |
6891 |
V1257= VV[14]; |
V1280= VV[14]; |
6892 |
goto T2553; |
goto T2553; |
6893 |
T2553:; |
T2553:; |
6894 |
if(!(((V1257))==(VV[14]))){ |
if(!(((V1280))==(VV[14]))){ |
6895 |
goto T2558;} |
goto T2558;} |
6896 |
base[3]= (V1238); |
base[3]= (V1261); |
6897 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6898 |
(void) (*Lnk362)(Lclptr362); |
(void) (*Lnk362)(Lclptr362); |
6899 |
vs_top=sup; |
vs_top=sup; |
6900 |
V1256= vs_base[0]; |
V1279= vs_base[0]; |
6901 |
goto T2550; |
goto T2550; |
6902 |
goto T2558; |
goto T2558; |
6903 |
T2558:; |
T2558:; |
6904 |
V1256= (V1257);} |
V1279= (V1280);} |
6905 |
goto T2550; |
goto T2550; |
6906 |
T2550:; |
T2550:; |
6907 |
base[3]= CMPcar(V1256); |
base[3]= CMPcar(V1279); |
6908 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6909 |
return; |
return; |
6910 |
goto T2548; |
goto T2548; |
6916 |
} |
} |
6917 |
/* local entry for function (FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T)) */ |
/* local entry for function (FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T)) */ |
6918 |
|
|
6919 |
static object LI118(V1263,V1264,V1265,V1266) |
static object LI118(V1286,V1287,V1288,V1289) |
6920 |
|
|
6921 |
object V1263;object V1264;object V1265;register object V1266; |
object V1286;object V1287;object V1288;register object V1289; |
6922 |
{ VMB104 VMS104 VMV104 |
{ VMB104 VMS104 VMV104 |
6923 |
bds_check; |
bds_check; |
6924 |
goto TTL; |
goto TTL; |
6925 |
TTL:; |
TTL:; |
6926 |
{object V1268; |
{object V1291; |
6927 |
base[1]= (V1266); |
base[1]= (V1289); |
6928 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6929 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk315)(Lclptr315); |
6930 |
vs_top=sup; |
vs_top=sup; |
6931 |
V1268= vs_base[0]; |
V1291= vs_base[0]; |
6932 |
bds_bind(VV[126],(V1265)); |
bds_bind(VV[126],(V1288)); |
6933 |
if((STREF(object,(V1268),28))==Cnil){ |
if((STREF(object,(V1291),28))==Cnil){ |
6934 |
goto T2567;} |
goto T2567;} |
6935 |
{object V1269; |
{object V1292; |
6936 |
object V1270; |
object V1293; |
6937 |
object V1271; |
object V1294; |
6938 |
base[1]= (V1266); |
base[1]= (V1289); |
6939 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6940 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
6941 |
if(vs_base>=vs_top){vs_top=sup;goto T2571;} |
if(vs_base>=vs_top){vs_top=sup;goto T2571;} |
6942 |
V1269= vs_base[0]; |
V1292= vs_base[0]; |
6943 |
vs_base++; |
vs_base++; |
6944 |
if(vs_base>=vs_top){vs_top=sup;goto T2572;} |
if(vs_base>=vs_top){vs_top=sup;goto T2572;} |
6945 |
V1270= vs_base[0]; |
V1293= vs_base[0]; |
6946 |
vs_base++; |
vs_base++; |
6947 |
if(vs_base>=vs_top){vs_top=sup;goto T2573;} |
if(vs_base>=vs_top){vs_top=sup;goto T2573;} |
6948 |
V1271= vs_base[0]; |
V1294= vs_base[0]; |
6949 |
vs_top=sup; |
vs_top=sup; |
6950 |
goto T2574; |
goto T2574; |
6951 |
goto T2571; |
goto T2571; |
6952 |
T2571:; |
T2571:; |
6953 |
V1269= Cnil; |
V1292= Cnil; |
6954 |
goto T2572; |
goto T2572; |
6955 |
T2572:; |
T2572:; |
6956 |
V1270= Cnil; |
V1293= Cnil; |
6957 |
goto T2573; |
goto T2573; |
6958 |
T2573:; |
T2573:; |
6959 |
V1271= Cnil; |
V1294= Cnil; |
6960 |
goto T2574; |
goto T2574; |
6961 |
T2574:; |
T2574:; |
6962 |
(void)((VFUN_NARGS=4,(*(LnkLI371))((V1266),(V1269),(V1270),(V1271)))); |
(void)((VFUN_NARGS=4,(*(LnkLI371))((V1289),(V1292),(V1293),(V1294)))); |
6963 |
{object V1272 = (VFUN_NARGS=4,(*(LnkLI288))((V1266),(V1269),(V1270),(V1271))); |
{object V1295 = (VFUN_NARGS=4,(*(LnkLI288))((V1289),(V1292),(V1293),(V1294))); |
6964 |
bds_unwind1; |
bds_unwind1; |
6965 |
VMR104(V1272)}} |
VMR104(V1295)}} |
6966 |
goto T2567; |
goto T2567; |
6967 |
T2567:; |
T2567:; |
6968 |
{object V1273 = Cnil; |
{object V1296 = Cnil; |
6969 |
bds_unwind1; |
bds_unwind1; |
6970 |
VMR104(V1273)}} |
VMR104(V1296)}} |
6971 |
base[0]=base[0]; |
base[0]=base[0]; |
6972 |
return Cnil; |
return Cnil; |
6973 |
} |
} |
6977 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6978 |
register object *sup=base+VM105; VC105 |
register object *sup=base+VM105; VC105 |
6979 |
vs_check; |
vs_check; |
6980 |
{object V1274; |
{object V1297; |
6981 |
object V1275; |
object V1298; |
6982 |
register object V1276; |
register object V1299; |
6983 |
check_arg(3); |
check_arg(3); |
6984 |
V1274=(base[0]); |
V1297=(base[0]); |
6985 |
V1275=(base[1]); |
V1298=(base[1]); |
6986 |
V1276=(base[2]); |
V1299=(base[2]); |
6987 |
vs_top=sup; |
vs_top=sup; |
6988 |
goto TTL; |
goto TTL; |
6989 |
TTL:; |
TTL:; |
6990 |
{object V1278; |
{object V1301; |
6991 |
object V1279; |
object V1302; |
6992 |
object V1280; |
object V1303; |
6993 |
object V1281; |
object V1304; |
6994 |
object V1282; |
object V1305; |
6995 |
object V1283; |
object V1306; |
6996 |
if(!(type_of((V1276))==t_cons)){ |
if(!(type_of((V1299))==t_cons)){ |
6997 |
goto T2582;} |
goto T2582;} |
6998 |
base[3]= (*(LnkLI372))((V1276)); |
base[3]= (*(LnkLI372))((V1299)); |
6999 |
goto T2580; |
goto T2580; |
7000 |
goto T2582; |
goto T2582; |
7001 |
T2582:; |
T2582:; |
7002 |
base[4]= (V1276); |
base[4]= (V1299); |
7003 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7004 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk283)(Lclptr283); |
7005 |
vs_top=sup; |
vs_top=sup; |
7009 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7010 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
7011 |
if(vs_base>=vs_top){vs_top=sup;goto T2585;} |
if(vs_base>=vs_top){vs_top=sup;goto T2585;} |
7012 |
V1278= vs_base[0]; |
V1301= vs_base[0]; |
7013 |
vs_base++; |
vs_base++; |
7014 |
if(vs_base>=vs_top){vs_top=sup;goto T2586;} |
if(vs_base>=vs_top){vs_top=sup;goto T2586;} |
7015 |
V1279= vs_base[0]; |
V1302= vs_base[0]; |
7016 |
vs_base++; |
vs_base++; |
7017 |
if(vs_base>=vs_top){vs_top=sup;goto T2587;} |
if(vs_base>=vs_top){vs_top=sup;goto T2587;} |
7018 |
V1280= vs_base[0]; |
V1303= vs_base[0]; |
7019 |
vs_base++; |
vs_base++; |
7020 |
if(vs_base>=vs_top){vs_top=sup;goto T2588;} |
if(vs_base>=vs_top){vs_top=sup;goto T2588;} |
7021 |
V1281= vs_base[0]; |
V1304= vs_base[0]; |
7022 |
vs_base++; |
vs_base++; |
7023 |
if(vs_base>=vs_top){vs_top=sup;goto T2589;} |
if(vs_base>=vs_top){vs_top=sup;goto T2589;} |
7024 |
V1282= vs_base[0]; |
V1305= vs_base[0]; |
7025 |
vs_base++; |
vs_base++; |
7026 |
if(vs_base>=vs_top){vs_top=sup;goto T2590;} |
if(vs_base>=vs_top){vs_top=sup;goto T2590;} |
7027 |
V1283= vs_base[0]; |
V1306= vs_base[0]; |
7028 |
vs_top=sup; |
vs_top=sup; |
7029 |
goto T2591; |
goto T2591; |
7030 |
goto T2585; |
goto T2585; |
7031 |
T2585:; |
T2585:; |
7032 |
V1278= Cnil; |
V1301= Cnil; |
7033 |
goto T2586; |
goto T2586; |
7034 |
T2586:; |
T2586:; |
7035 |
V1279= Cnil; |
V1302= Cnil; |
7036 |
goto T2587; |
goto T2587; |
7037 |
T2587:; |
T2587:; |
7038 |
V1280= Cnil; |
V1303= Cnil; |
7039 |
goto T2588; |
goto T2588; |
7040 |
T2588:; |
T2588:; |
7041 |
V1281= Cnil; |
V1304= Cnil; |
7042 |
goto T2589; |
goto T2589; |
7043 |
T2589:; |
T2589:; |
7044 |
V1282= Cnil; |
V1305= Cnil; |
7045 |
goto T2590; |
goto T2590; |
7046 |
T2590:; |
T2590:; |
7047 |
V1283= Cnil; |
V1306= Cnil; |
7048 |
goto T2591; |
goto T2591; |
7049 |
T2591:; |
T2591:; |
7050 |
base[3]= (V1283); |
base[3]= (V1306); |
7051 |
base[4]= (V1282); |
base[4]= (V1305); |
7052 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7053 |
return;} |
return;} |
7054 |
} |
} |
7055 |
} |
} |
7056 |
/* local entry for function METHOD-LL->GENERIC-FUNCTION-LL */ |
/* local entry for function METHOD-LL->GENERIC-FUNCTION-LL */ |
7057 |
|
|
7058 |
static object LI120(V1285) |
static object LI120(V1308) |
7059 |
|
|
7060 |
object V1285; |
object V1308; |
7061 |
{ VMB106 VMS106 VMV106 |
{ VMB106 VMS106 VMV106 |
7062 |
goto TTL; |
goto TTL; |
7063 |
TTL:; |
TTL:; |
7064 |
{object V1286; |
{object V1309; |
7065 |
object V1287; |
object V1310; |
7066 |
object V1288; |
object V1311; |
7067 |
object V1289; |
object V1312; |
7068 |
object V1290; |
object V1313; |
7069 |
object V1291; |
object V1314; |
7070 |
base[1]= (V1285); |
base[1]= (V1308); |
7071 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7072 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
7073 |
if(vs_base>=vs_top){vs_top=sup;goto T2596;} |
if(vs_base>=vs_top){vs_top=sup;goto T2596;} |
7074 |
V1286= vs_base[0]; |
V1309= vs_base[0]; |
7075 |
vs_base++; |
vs_base++; |
7076 |
if(vs_base>=vs_top){vs_top=sup;goto T2597;} |
if(vs_base>=vs_top){vs_top=sup;goto T2597;} |
7077 |
V1287= vs_base[0]; |
V1310= vs_base[0]; |
7078 |
vs_base++; |
vs_base++; |
7079 |
if(vs_base>=vs_top){vs_top=sup;goto T2598;} |
if(vs_base>=vs_top){vs_top=sup;goto T2598;} |
7080 |
V1288= vs_base[0]; |
V1311= vs_base[0]; |
7081 |
vs_base++; |
vs_base++; |
7082 |
if(vs_base>=vs_top){vs_top=sup;goto T2599;} |
if(vs_base>=vs_top){vs_top=sup;goto T2599;} |
7083 |
V1289= vs_base[0]; |
V1312= vs_base[0]; |
7084 |
vs_base++; |
vs_base++; |
7085 |
if(vs_base>=vs_top){vs_top=sup;goto T2600;} |
if(vs_base>=vs_top){vs_top=sup;goto T2600;} |
7086 |
V1290= vs_base[0]; |
V1313= vs_base[0]; |
7087 |
vs_base++; |
vs_base++; |
7088 |
if(vs_base>=vs_top){vs_top=sup;goto T2601;} |
if(vs_base>=vs_top){vs_top=sup;goto T2601;} |
7089 |
V1291= vs_base[0]; |
V1314= vs_base[0]; |
7090 |
vs_base++; |
vs_base++; |
7091 |
if(vs_base>=vs_top){vs_top=sup;goto T2602;} |
if(vs_base>=vs_top){vs_top=sup;goto T2602;} |
7092 |
base[0]=MMcons(vs_base[0],Cnil); |
base[0]=MMcons(vs_base[0],Cnil); |
7094 |
goto T2603; |
goto T2603; |
7095 |
goto T2596; |
goto T2596; |
7096 |
T2596:; |
T2596:; |
7097 |
V1286= Cnil; |
V1309= Cnil; |
7098 |
goto T2597; |
goto T2597; |
7099 |
T2597:; |
T2597:; |
7100 |
V1287= Cnil; |
V1310= Cnil; |
7101 |
goto T2598; |
goto T2598; |
7102 |
T2598:; |
T2598:; |
7103 |
V1288= Cnil; |
V1311= Cnil; |
7104 |
goto T2599; |
goto T2599; |
7105 |
T2599:; |
T2599:; |
7106 |
V1289= Cnil; |
V1312= Cnil; |
7107 |
goto T2600; |
goto T2600; |
7108 |
T2600:; |
T2600:; |
7109 |
V1290= Cnil; |
V1313= Cnil; |
7110 |
goto T2601; |
goto T2601; |
7111 |
T2601:; |
T2601:; |
7112 |
V1291= Cnil; |
V1314= Cnil; |
7113 |
goto T2602; |
goto T2602; |
7114 |
T2602:; |
T2602:; |
7115 |
base[0]=MMcons(Cnil,Cnil); |
base[0]=MMcons(Cnil,Cnil); |
7117 |
T2603:; |
T2603:; |
7118 |
base[1]= |
base[1]= |
7119 |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
7120 |
base[2]= (V1285); |
base[2]= (V1308); |
7121 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7122 |
(void) (*Lnk374)(); |
(void) (*Lnk374)(); |
7123 |
vs_top=sup; |
vs_top=sup; |
7124 |
{object V1292 = vs_base[0]; |
{object V1315 = vs_base[0]; |
7125 |
VMR106(V1292)}} |
VMR106(V1315)}} |
7126 |
base[0]=base[0]; |
base[0]=base[0]; |
7127 |
return Cnil; |
return Cnil; |
7128 |
} |
} |
7129 |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION)) */ |
/* local entry for function (FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION)) */ |
7130 |
|
|
7131 |
static object LI121(V1296,V1297,V1298) |
static object LI121(V1319,V1320,V1321) |
7132 |
|
|
7133 |
object V1296;object V1297;object V1298; |
object V1319;object V1320;object V1321; |
7134 |
{ VMB107 VMS107 VMV107 |
{ VMB107 VMS107 VMV107 |
7135 |
goto TTL; |
goto TTL; |
7136 |
TTL:; |
TTL:; |
7137 |
{object V1300; |
{object V1323; |
7138 |
object V1301; |
object V1324; |
7139 |
base[0]= (V1298); |
base[0]= (V1321); |
7140 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7141 |
(void) (*Lnk258)(Lclptr258); |
(void) (*Lnk258)(Lclptr258); |
7142 |
vs_top=sup; |
vs_top=sup; |
7143 |
V1300= vs_base[0]; |
V1323= vs_base[0]; |
7144 |
V1301= Cnil; |
V1324= Cnil; |
7145 |
if(((V1300))==Cnil){ |
if(((V1323))==Cnil){ |
7146 |
goto T2612;} |
goto T2612;} |
7147 |
{object V1302; |
{object V1325; |
7148 |
object V1303; |
object V1326; |
7149 |
object V1304; |
object V1327; |
7150 |
register object V1305; |
register object V1328; |
7151 |
register object V1306; |
register object V1329; |
7152 |
base[0]= CMPcar((V1300)); |
base[0]= CMPcar((V1323)); |
7153 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7154 |
(void) (*Lnk375)(Lclptr375); |
(void) (*Lnk375)(Lclptr375); |
7155 |
if(vs_base>=vs_top){vs_top=sup;goto T2616;} |
if(vs_base>=vs_top){vs_top=sup;goto T2616;} |
7156 |
V1302= vs_base[0]; |
V1325= vs_base[0]; |
7157 |
vs_base++; |
vs_base++; |
7158 |
if(vs_base>=vs_top){vs_top=sup;goto T2617;} |
if(vs_base>=vs_top){vs_top=sup;goto T2617;} |
7159 |
V1303= vs_base[0]; |
V1326= vs_base[0]; |
7160 |
vs_base++; |
vs_base++; |
7161 |
if(vs_base>=vs_top){vs_top=sup;goto T2618;} |
if(vs_base>=vs_top){vs_top=sup;goto T2618;} |
7162 |
V1304= vs_base[0]; |
V1327= vs_base[0]; |
7163 |
vs_base++; |
vs_base++; |
7164 |
if(vs_base>=vs_top){vs_top=sup;goto T2619;} |
if(vs_base>=vs_top){vs_top=sup;goto T2619;} |
7165 |
V1305= vs_base[0]; |
V1328= vs_base[0]; |
7166 |
vs_base++; |
vs_base++; |
7167 |
if(vs_base>=vs_top){vs_top=sup;goto T2620;} |
if(vs_base>=vs_top){vs_top=sup;goto T2620;} |
7168 |
V1306= vs_base[0]; |
V1329= vs_base[0]; |
7169 |
vs_top=sup; |
vs_top=sup; |
7170 |
goto T2621; |
goto T2621; |
7171 |
goto T2616; |
goto T2616; |
7172 |
T2616:; |
T2616:; |
7173 |
V1302= Cnil; |
V1325= Cnil; |
7174 |
goto T2617; |
goto T2617; |
7175 |
T2617:; |
T2617:; |
7176 |
V1303= Cnil; |
V1326= Cnil; |
7177 |
goto T2618; |
goto T2618; |
7178 |
T2618:; |
T2618:; |
7179 |
V1304= Cnil; |
V1327= Cnil; |
7180 |
goto T2619; |
goto T2619; |
7181 |
T2619:; |
T2619:; |
7182 |
V1305= Cnil; |
V1328= Cnil; |
7183 |
goto T2620; |
goto T2620; |
7184 |
T2620:; |
T2620:; |
7185 |
V1306= Cnil; |
V1329= Cnil; |
7186 |
goto T2621; |
goto T2621; |
7187 |
T2621:; |
T2621:; |
7188 |
{register object V1307; |
{register object V1330; |
7189 |
register object V1308; |
register object V1331; |
7190 |
V1307= CMPcdr((V1300)); |
V1330= CMPcdr((V1323)); |
7191 |
V1308= CMPcar((V1307)); |
V1331= CMPcar((V1330)); |
7192 |
goto T2626; |
goto T2626; |
7193 |
T2626:; |
T2626:; |
7194 |
if(!(((V1307))==Cnil)){ |
if(!(((V1330))==Cnil)){ |
7195 |
goto T2627;} |
goto T2627;} |
7196 |
goto T2622; |
goto T2622; |
7197 |
goto T2627; |
goto T2627; |
7198 |
T2627:; |
T2627:; |
7199 |
{register object V1309; |
{register object V1332; |
7200 |
register object V1310; |
register object V1333; |
7201 |
register object V1311; |
register object V1334; |
7202 |
base[2]= (V1308); |
base[2]= (V1331); |
7203 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7204 |
(void) (*Lnk376)(Lclptr376); |
(void) (*Lnk376)(Lclptr376); |
7205 |
if(vs_base>=vs_top){vs_top=sup;goto T2634;} |
if(vs_base>=vs_top){vs_top=sup;goto T2634;} |
7206 |
V1309= vs_base[0]; |
V1332= vs_base[0]; |
7207 |
vs_base++; |
vs_base++; |
7208 |
if(vs_base>=vs_top){vs_top=sup;goto T2635;} |
if(vs_base>=vs_top){vs_top=sup;goto T2635;} |
7209 |
V1310= vs_base[0]; |
V1333= vs_base[0]; |
7210 |
vs_base++; |
vs_base++; |
7211 |
if(vs_base>=vs_top){vs_top=sup;goto T2636;} |
if(vs_base>=vs_top){vs_top=sup;goto T2636;} |
7212 |
V1311= vs_base[0]; |
V1334= vs_base[0]; |
7213 |
vs_top=sup; |
vs_top=sup; |
7214 |
goto T2637; |
goto T2637; |
7215 |
goto T2634; |
goto T2634; |
7216 |
T2634:; |
T2634:; |
7217 |
V1309= Cnil; |
V1332= Cnil; |
7218 |
goto T2635; |
goto T2635; |
7219 |
T2635:; |
T2635:; |
7220 |
V1310= Cnil; |
V1333= Cnil; |
7221 |
goto T2636; |
goto T2636; |
7222 |
T2636:; |
T2636:; |
7223 |
V1311= Cnil; |
V1334= Cnil; |
7224 |
goto T2637; |
goto T2637; |
7225 |
T2637:; |
T2637:; |
7226 |
base[2]= (V1305); |
base[2]= (V1328); |
7227 |
base[3]= (V1311); |
base[3]= (V1334); |
7228 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7229 |
(void) (*Lnk377)(); |
(void) (*Lnk377)(); |
7230 |
vs_top=sup; |
vs_top=sup; |
7231 |
V1305= vs_base[0]; |
V1328= vs_base[0]; |
7232 |
if((V1306)!=Cnil){ |
if((V1329)!=Cnil){ |
7233 |
goto T2642;} |
goto T2642;} |
7234 |
V1306= (V1310); |
V1329= (V1333); |
7235 |
goto T2642; |
goto T2642; |
7236 |
T2642:;} |
T2642:;} |
7237 |
V1307= CMPcdr((V1307)); |
V1330= CMPcdr((V1330)); |
7238 |
V1308= CMPcar((V1307)); |
V1331= CMPcar((V1330)); |
7239 |
goto T2626;} |
goto T2626;} |
7240 |
goto T2622; |
goto T2622; |
7241 |
T2622:; |
T2622:; |
7242 |
if(((V1306))==Cnil){ |
if(((V1329))==Cnil){ |
7243 |
goto T2648;} |
goto T2648;} |
7244 |
V1301= VV[203]; |
V1324= VV[203]; |
7245 |
goto T2648; |
goto T2648; |
7246 |
T2648:; |
T2648:; |
7247 |
if(((V1305))==Cnil){ |
if(((V1328))==Cnil){ |
7248 |
goto T2652;} |
goto T2652;} |
7249 |
base[0]= make_cons(VV[204],Cnil); |
base[0]= make_cons(VV[204],Cnil); |
7250 |
base[1]= (V1305); |
base[1]= (V1328); |
7251 |
base[2]= (V1301); |
base[2]= (V1324); |
7252 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
7253 |
Lnconc(); |
Lnconc(); |
7254 |
vs_top=sup; |
vs_top=sup; |
7255 |
V1301= vs_base[0]; |
V1324= vs_base[0]; |
7256 |
goto T2652; |
goto T2652; |
7257 |
T2652:; |
T2652:; |
7258 |
if(((V1304))==Cnil){ |
if(((V1327))==Cnil){ |
7259 |
goto T2659;} |
goto T2659;} |
7260 |
V1312= list(2,VV[97],(V1304)); |
V1335= list(2,VV[97],(V1327)); |
7261 |
V1301= nconc(/* INLINE-ARGS */V1312,(V1301)); |
V1324= nconc(/* INLINE-ARGS */V1335,(V1324)); |
7262 |
goto T2659; |
goto T2659; |
7263 |
T2659:; |
T2659:; |
7264 |
if(((V1303))==Cnil){ |
if(((V1326))==Cnil){ |
7265 |
goto T2663;} |
goto T2663;} |
7266 |
base[0]= make_cons(VV[205],Cnil); |
base[0]= make_cons(VV[205],Cnil); |
7267 |
base[1]= (V1303); |
base[1]= (V1326); |
7268 |
base[2]= (V1301); |
base[2]= (V1324); |
7269 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
7270 |
Lnconc(); |
Lnconc(); |
7271 |
vs_top=sup; |
vs_top=sup; |
7272 |
V1301= vs_base[0]; |
V1324= vs_base[0]; |
7273 |
goto T2663; |
goto T2663; |
7274 |
T2663:; |
T2663:; |
7275 |
{object V1313 = nconc((V1302),(V1301)); |
{object V1336 = nconc((V1325),(V1324)); |
7276 |
VMR107(V1313)}} |
VMR107(V1336)}} |
7277 |
goto T2612; |
goto T2612; |
7278 |
T2612:; |
T2612:; |
7279 |
{object V1314 = Cnil; |
{object V1337 = Cnil; |
7280 |
VMR107(V1314)}} |
VMR107(V1337)}} |
7281 |
base[0]=base[0]; |
base[0]=base[0]; |
7282 |
return Cnil; |
return Cnil; |
7283 |
} |
} |
7287 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7288 |
register object *sup=base+VM108; VC108 |
register object *sup=base+VM108; VC108 |
7289 |
vs_check; |
vs_check; |
7290 |
{object V1315; |
{object V1338; |
7291 |
object V1316; |
object V1339; |
7292 |
object V1317; |
object V1340; |
7293 |
check_arg(3); |
check_arg(3); |
7294 |
V1315=(base[0]); |
V1338=(base[0]); |
7295 |
V1316=(base[1]); |
V1339=(base[1]); |
7296 |
V1317=(base[2]); |
V1340=(base[2]); |
7297 |
vs_top=sup; |
vs_top=sup; |
7298 |
goto TTL; |
goto TTL; |
7299 |
TTL:; |
TTL:; |
7300 |
{register object V1319; |
{register object V1342; |
7301 |
register object V1320; |
register object V1343; |
7302 |
object V1321; |
object V1344; |
7303 |
register object V1322; |
register object V1345; |
7304 |
object V1323; |
object V1346; |
7305 |
register object V1324; |
register object V1347; |
7306 |
object V1325; |
object V1348; |
7307 |
base[3]= (V1317); |
base[3]= (V1340); |
7308 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7309 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk283)(Lclptr283); |
7310 |
vs_top=sup; |
vs_top=sup; |
7311 |
V1325= vs_base[0]; |
V1348= vs_base[0]; |
7312 |
V1319= Cnil; |
V1342= Cnil; |
7313 |
V1320= Cnil; |
V1343= Cnil; |
7314 |
V1321= Cnil; |
V1344= Cnil; |
7315 |
V1322= Cnil; |
V1345= Cnil; |
7316 |
V1323= Cnil; |
V1346= Cnil; |
7317 |
V1324= VV[206]; |
V1347= VV[206]; |
7318 |
{register object V1326; |
{register object V1349; |
7319 |
register object V1327; |
register object V1350; |
7320 |
V1326= (V1325); |
V1349= (V1348); |
7321 |
V1327= CMPcar((V1326)); |
V1350= CMPcar((V1349)); |
7322 |
goto T2679; |
goto T2679; |
7323 |
T2679:; |
T2679:; |
7324 |
if(!(((V1326))==Cnil)){ |
if(!(((V1349))==Cnil)){ |
7325 |
goto T2680;} |
goto T2680;} |
7326 |
goto T2675; |
goto T2675; |
7327 |
goto T2680; |
goto T2680; |
7328 |
T2680:; |
T2680:; |
7329 |
if(!(((V1327))==(VV[205]))){ |
if(!(((V1350))==(VV[205]))){ |
7330 |
goto T2686;} |
goto T2686;} |
7331 |
V1324= VV[207]; |
V1347= VV[207]; |
7332 |
goto T2684; |
goto T2684; |
7333 |
goto T2686; |
goto T2686; |
7334 |
T2686:; |
T2686:; |
7335 |
if(!(((V1327))==(VV[97]))){ |
if(!(((V1350))==(VV[97]))){ |
7336 |
goto T2690;} |
goto T2690;} |
7337 |
V1324= VV[208]; |
V1347= VV[208]; |
7338 |
goto T2684; |
goto T2684; |
7339 |
goto T2690; |
goto T2690; |
7340 |
T2690:; |
T2690:; |
7341 |
if(!(((V1327))==(VV[204]))){ |
if(!(((V1350))==(VV[204]))){ |
7342 |
goto T2694;} |
goto T2694;} |
7343 |
V1324= VV[209]; |
V1347= VV[209]; |
7344 |
goto T2684; |
goto T2684; |
7345 |
goto T2694; |
goto T2694; |
7346 |
T2694:; |
T2694:; |
7347 |
if(!(((V1327))==(VV[202]))){ |
if(!(((V1350))==(VV[202]))){ |
7348 |
goto T2698;} |
goto T2698;} |
7349 |
V1323= Ct; |
V1346= Ct; |
7350 |
goto T2684; |
goto T2684; |
7351 |
goto T2698; |
goto T2698; |
7352 |
T2698:; |
T2698:; |
7353 |
{register object V1328; |
{register object V1351; |
7354 |
{register object x= (V1327),V1329= VV[90]; |
{register object x= (V1350),V1352= VV[90]; |
7355 |
while(V1329!=Cnil) |
while(V1352!=Cnil) |
7356 |
if(x==(V1329->c.c_car)){ |
if(x==(V1352->c.c_car)){ |
7357 |
V1328= V1329; |
V1351= V1352; |
7358 |
goto T2701; |
goto T2701; |
7359 |
}else V1329=V1329->c.c_cdr; |
}else V1352=V1352->c.c_cdr; |
7360 |
V1328= Cnil;} |
V1351= Cnil;} |
7361 |
goto T2701; |
goto T2701; |
7362 |
T2701:; |
T2701:; |
7363 |
if(((V1328))==Cnil){ |
if(((V1351))==Cnil){ |
7364 |
goto T2703;} |
goto T2703;} |
7365 |
goto T2684; |
goto T2684; |
7366 |
goto T2703; |
goto T2703; |
7367 |
T2703:; |
T2703:; |
7368 |
{object V1330= (V1324); |
{object V1353= (V1347); |
7369 |
if((V1330!= VV[206]))goto T2705; |
if((V1353!= VV[206]))goto T2705; |
7370 |
V1319= make_cons(V1327,(V1319)); |
V1342= make_cons(V1350,(V1342)); |
7371 |
goto T2684; |
goto T2684; |
7372 |
goto T2705; |
goto T2705; |
7373 |
T2705:; |
T2705:; |
7374 |
if((V1330!= VV[207]))goto T2707; |
if((V1353!= VV[207]))goto T2707; |
7375 |
V1320= make_cons(V1327,(V1320)); |
V1343= make_cons(V1350,(V1343)); |
7376 |
goto T2684; |
goto T2684; |
7377 |
goto T2707; |
goto T2707; |
7378 |
T2707:; |
T2707:; |
7379 |
if((V1330!= VV[209]))goto T2709; |
if((V1353!= VV[209]))goto T2709; |
7380 |
V1322= make_cons(V1327,(V1322)); |
V1345= make_cons(V1350,(V1345)); |
7381 |
goto T2684; |
goto T2684; |
7382 |
goto T2709; |
goto T2709; |
7383 |
T2709:; |
T2709:; |
7384 |
if((V1330!= VV[208]))goto T2711; |
if((V1353!= VV[208]))goto T2711; |
7385 |
V1321= (V1327); |
V1344= (V1350); |
7386 |
goto T2684; |
goto T2684; |
7387 |
goto T2711; |
goto T2711; |
7388 |
T2711:; |
T2711:; |
7389 |
FEerror("The ECASE key value ~s is illegal.",1,V1330); |
FEerror("The ECASE key value ~s is illegal.",1,V1353); |
7390 |
goto T2684;}} |
goto T2684;}} |
7391 |
goto T2684; |
goto T2684; |
7392 |
T2684:; |
T2684:; |
7393 |
V1326= CMPcdr((V1326)); |
V1349= CMPcdr((V1349)); |
7394 |
V1327= CMPcar((V1326)); |
V1350= CMPcar((V1349)); |
7395 |
goto T2679;} |
goto T2679;} |
7396 |
goto T2675; |
goto T2675; |
7397 |
T2675:; |
T2675:; |
7398 |
base[3]= nreverse((V1319)); |
base[3]= nreverse((V1342)); |
7399 |
base[4]= nreverse((V1320)); |
base[4]= nreverse((V1343)); |
7400 |
base[5]= (V1321); |
base[5]= (V1344); |
7401 |
base[6]= nreverse((V1322)); |
base[6]= nreverse((V1345)); |
7402 |
base[7]= (V1323); |
base[7]= (V1346); |
7403 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
7404 |
return;} |
return;} |
7405 |
} |
} |
7411 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7412 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM109; VC109 |
7413 |
vs_check; |
vs_check; |
7414 |
{object V1334; |
{object V1357; |
7415 |
check_arg(1); |
check_arg(1); |
7416 |
V1334=(base[0]); |
V1357=(base[0]); |
7417 |
vs_top=sup;{object V1335; |
vs_top=sup;{object V1358; |
7418 |
{register object x= (V1334),V1336= (base0[0]->c.c_car); |
{register object x= (V1357),V1359= (base0[0]->c.c_car); |
7419 |
while(V1336!=Cnil) |
while(V1359!=Cnil) |
7420 |
if(x==(V1336->c.c_car)){ |
if(x==(V1359->c.c_car)){ |
7421 |
V1335= V1336; |
V1358= V1359; |
7422 |
goto T2724; |
goto T2724; |
7423 |
}else V1336=V1336->c.c_cdr; |
}else V1359=V1359->c.c_cdr; |
7424 |
V1335= Cnil;} |
V1358= Cnil;} |
7425 |
goto T2724; |
goto T2724; |
7426 |
T2724:; |
T2724:; |
7427 |
if(V1335==Cnil)goto T2723; |
if(V1358==Cnil)goto T2723; |
7428 |
base[1]= V1335; |
base[1]= V1358; |
7429 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7430 |
return; |
return; |
7431 |
goto T2723; |
goto T2723; |
7432 |
T2723:;} |
T2723:;} |
7433 |
base[1]= (((V1334))==(VV[202])?Ct:Cnil); |
base[1]= (((V1357))==(VV[202])?Ct:Cnil); |
7434 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7435 |
return; |
return; |
7436 |
} |
} |
7442 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7443 |
register object *sup=base+VM110; VC110 |
register object *sup=base+VM110; VC110 |
7444 |
vs_check; |
vs_check; |
7445 |
{object V1337; |
{object V1360; |
7446 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
7447 |
{object *p=vs_top; |
{object *p=vs_top; |
7448 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
7449 |
V1337=(base[0]); |
V1360=(base[0]); |
7450 |
vs_top=sup; |
vs_top=sup; |
7451 |
{object V1338; |
{object V1361; |
7452 |
object V1339; |
object V1362; |
7453 |
object V1340; |
object V1363; |
7454 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
7455 |
base[5]= (V1337); |
base[5]= (V1360); |
7456 |
base[6]= VV[108]; |
base[6]= VV[108]; |
7457 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
7458 |
(void) (*Lnk297)(); |
(void) (*Lnk297)(); |
7459 |
vs_top=sup; |
vs_top=sup; |
7460 |
V1338= vs_base[0]; |
V1361= vs_base[0]; |
7461 |
V1339= (*(LnkLI378))((base0[0]->c.c_car),(base0[1]->c.c_car),(V1338)); |
V1362= (*(LnkLI378))((base0[0]->c.c_car),(base0[1]->c.c_car),(V1361)); |
7462 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
7463 |
base[5]= (V1339); |
base[5]= (V1362); |
7464 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7465 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
7466 |
vs_top=sup; |
vs_top=sup; |
7467 |
V1340= vs_base[0]; |
V1363= vs_base[0]; |
7468 |
base[4]= (V1340); |
base[4]= (V1363); |
7469 |
base[5]= (V1337); |
base[5]= (V1360); |
7470 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7471 |
(void) (*Lnk379)(); |
(void) (*Lnk379)(); |
7472 |
return;} |
return;} |
7479 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7480 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM111; VC111 |
7481 |
vs_check; |
vs_check; |
7482 |
{object V1341; |
{object V1364; |
7483 |
object V1342; |
object V1365; |
7484 |
check_arg(2); |
check_arg(2); |
7485 |
V1341=(base[0]); |
V1364=(base[0]); |
7486 |
V1342=(base[1]); |
V1365=(base[1]); |
7487 |
vs_top=sup; |
vs_top=sup; |
7488 |
{object V1343; |
{object V1366; |
7489 |
object V1344; |
object V1367; |
7490 |
V1343= make_cons(Cnil,Cnil); |
V1366= make_cons(Cnil,Cnil); |
7491 |
V1344= (V1343); |
V1367= (V1366); |
7492 |
{register object V1345; |
{register object V1368; |
7493 |
register object V1346; |
register object V1369; |
7494 |
V1345= (base0[0]->c.c_car); |
V1368= (base0[0]->c.c_car); |
7495 |
V1346= CMPcar((V1345)); |
V1369= CMPcar((V1368)); |
7496 |
goto T2741; |
goto T2741; |
7497 |
T2741:; |
T2741:; |
7498 |
if(!(((V1345))==Cnil)){ |
if(!(((V1368))==Cnil)){ |
7499 |
goto T2742;} |
goto T2742;} |
7500 |
goto T2737; |
goto T2737; |
7501 |
goto T2742; |
goto T2742; |
7502 |
T2742:; |
T2742:; |
7503 |
{object V1347; |
{object V1370; |
7504 |
register object V1348;{object V1349; |
register object V1371;{object V1372; |
7505 |
{register object V1350; |
{register object V1373; |
7506 |
register object V1351; |
register object V1374; |
7507 |
V1350= (V1343); |
V1373= (V1366); |
7508 |
V1351= CMPcar((V1350)); |
V1374= CMPcar((V1373)); |
7509 |
goto T2753; |
goto T2753; |
7510 |
T2753:; |
T2753:; |
7511 |
if(!(((V1350))==Cnil)){ |
if(!(((V1373))==Cnil)){ |
7512 |
goto T2754;} |
goto T2754;} |
7513 |
V1349= Cnil; |
V1372= Cnil; |
7514 |
goto T2749; |
goto T2749; |
7515 |
goto T2754; |
goto T2754; |
7516 |
T2754:; |
T2754:; |
7517 |
if(!((CMPcar((V1351)))==((V1346)))){ |
if(!((CMPcar((V1374)))==((V1369)))){ |
7518 |
goto T2758;} |
goto T2758;} |
7519 |
V1349= (V1351); |
V1372= (V1374); |
7520 |
goto T2749; |
goto T2749; |
7521 |
goto T2758; |
goto T2758; |
7522 |
T2758:; |
T2758:; |
7523 |
V1350= CMPcdr((V1350)); |
V1373= CMPcdr((V1373)); |
7524 |
V1351= CMPcar((V1350)); |
V1374= CMPcar((V1373)); |
7525 |
goto T2753;} |
goto T2753;} |
7526 |
goto T2749; |
goto T2749; |
7527 |
T2749:; |
T2749:; |
7528 |
if(V1349==Cnil)goto T2748; |
if(V1372==Cnil)goto T2748; |
7529 |
V1347= V1349; |
V1370= V1372; |
7530 |
goto T2747; |
goto T2747; |
7531 |
goto T2748; |
goto T2748; |
7532 |
T2748:;}{object V1353; |
T2748:;} |
7533 |
V1353= (*(LnkLI380))((V1346),(V1341),(V1342)); |
V1375 = (V1369);{object V1377; |
7534 |
if(V1353==Cnil)goto T2767; |
V1377= (*(LnkLI380))((V1369),(V1364),(V1365)); |
7535 |
V1352= V1353; |
if(V1377==Cnil)goto T2767; |
7536 |
|
V1376= V1377; |
7537 |
goto T2766; |
goto T2766; |
7538 |
goto T2767; |
goto T2767; |
7539 |
T2767:;} |
T2767:;} |
7540 |
base[6]= (V1346); |
base[6]= (V1369); |
7541 |
base[7]= (V1341); |
base[7]= (V1364); |
7542 |
base[8]= (V1342); |
base[8]= (V1365); |
7543 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
7544 |
(void) (*Lnk352)(); |
(void) (*Lnk352)(); |
7545 |
vs_top=sup; |
vs_top=sup; |
7546 |
V1352= vs_base[0]; |
V1376= vs_base[0]; |
7547 |
goto T2766; |
goto T2766; |
7548 |
T2766:; |
T2766:; |
7549 |
V1347= make_cons((V1346),V1352); |
V1370= make_cons(V1375,V1376); |
7550 |
goto T2747; |
goto T2747; |
7551 |
T2747:; |
T2747:; |
7552 |
V1348= make_cons((V1347),Cnil); |
V1371= make_cons((V1370),Cnil); |
7553 |
{register object V1355; |
{register object V1379; |
7554 |
V1355= (V1348); |
V1379= (V1371); |
7555 |
(V1344)->c.c_cdr = (V1355);} |
(V1367)->c.c_cdr = (V1379);} |
7556 |
V1344= (V1348);} |
V1367= (V1371);} |
7557 |
V1345= CMPcdr((V1345)); |
V1368= CMPcdr((V1368)); |
7558 |
V1346= CMPcar((V1345)); |
V1369= CMPcar((V1368)); |
7559 |
goto T2741;} |
goto T2741;} |
7560 |
goto T2737; |
goto T2737; |
7561 |
T2737:; |
T2737:; |
7562 |
{object V1356; |
{object V1380; |
7563 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
7564 |
{object V1357; |
{object V1381; |
7565 |
{object V1358; |
{object V1382; |
7566 |
object V1359= CMPcdr((V1343)); |
object V1383= CMPcdr((V1366)); |
7567 |
if(V1359==Cnil){ |
if(V1383==Cnil){ |
7568 |
V1357= Cnil; |
V1381= Cnil; |
7569 |
goto T2784;} |
goto T2784;} |
7570 |
base[4]=V1358=MMcons(Cnil,Cnil); |
base[4]=V1382=MMcons(Cnil,Cnil); |
7571 |
goto T2785; |
goto T2785; |
7572 |
T2785:; |
T2785:; |
7573 |
(V1358->c.c_car)= CMPcdr((V1359->c.c_car)); |
(V1382->c.c_car)= CMPcdr((V1383->c.c_car)); |
7574 |
if((V1359=MMcdr(V1359))==Cnil){ |
if((V1383=MMcdr(V1383))==Cnil){ |
7575 |
V1357= base[4]; |
V1381= base[4]; |
7576 |
goto T2784;} |
goto T2784;} |
7577 |
V1358=MMcdr(V1358)=MMcons(Cnil,Cnil); |
V1382=MMcdr(V1382)=MMcons(Cnil,Cnil); |
7578 |
goto T2785;} |
goto T2785;} |
7579 |
goto T2784; |
goto T2784; |
7580 |
T2784:; |
T2784:; |
7581 |
vs_top=base+4; |
vs_top=base+4; |
7582 |
while(V1357!=Cnil) |
while(V1381!=Cnil) |
7583 |
{vs_push((V1357)->c.c_car);V1357=(V1357)->c.c_cdr;} |
{vs_push((V1381)->c.c_car);V1381=(V1381)->c.c_cdr;} |
7584 |
vs_base=base+4;} |
vs_base=base+4;} |
7585 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7586 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7587 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
7588 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
7589 |
vs_top=sup; |
vs_top=sup; |
7590 |
V1356= vs_base[0]; |
V1380= vs_base[0]; |
7591 |
if(((base0[4]->c.c_car))==Cnil){ |
if(((base0[4]->c.c_car))==Cnil){ |
7592 |
goto T2788;} |
goto T2788;} |
7593 |
base[3]= (V1356); |
base[3]= (V1380); |
7594 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7595 |
return; |
return; |
7596 |
goto T2788; |
goto T2788; |
7597 |
T2788:; |
T2788:; |
7598 |
base[3]= (V1356); |
base[3]= (V1380); |
7599 |
base[4]= list(2,VV[194],(base0[3]->c.c_car)); |
base[4]= list(2,VV[194],(base0[3]->c.c_car)); |
7600 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7601 |
(void) (*Lnk259)(); |
(void) (*Lnk259)(); |
7602 |
vs_top=sup; |
vs_top=sup; |
7603 |
V1360= vs_base[0]; |
V1384= vs_base[0]; |
7604 |
base[3]= (VFUN_NARGS=4,(*(LnkLI381))(VV[54],V1360,VV[195],(base0[2]->c.c_car))); |
V1385 = (base0[2]->c.c_car); |
7605 |
|
base[3]= (VFUN_NARGS=4,(*(LnkLI381))(VV[54],V1384,VV[195],V1385)); |
7606 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7607 |
return;}} |
return;}} |
7608 |
} |
} |
7614 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7615 |
register object *sup=base+VM112; VC112 |
register object *sup=base+VM112; VC112 |
7616 |
vs_check; |
vs_check; |
7617 |
{object V1361; |
{object V1386; |
7618 |
check_arg(1); |
check_arg(1); |
7619 |
V1361=(base[0]); |
V1386=(base[0]); |
7620 |
vs_top=sup; |
vs_top=sup; |
7621 |
base[1]= (*(LnkLI382))((V1361),(base0[3]->c.c_car)); |
base[1]= (*(LnkLI382))((V1386),(base0[3]->c.c_car)); |
7622 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7623 |
return; |
return; |
7624 |
} |
} |
7638 |
goto T2794;} |
goto T2794;} |
7639 |
base[5]= CMPcdr(base[0]); |
base[5]= CMPcdr(base[0]); |
7640 |
base[6]= base[3]; |
base[6]= base[3]; |
7641 |
V1362= make_cons(CMPcar(base[0]),base[2]); |
V1387= make_cons(CMPcar(base[0]),base[2]); |
7642 |
base[7]= make_cons(/* INLINE-ARGS */V1362,base[4]); |
base[7]= make_cons(/* INLINE-ARGS */V1387,base[4]); |
7643 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
7644 |
L100(base0); |
L100(base0); |
7645 |
return; |
return; |
7646 |
goto T2794; |
goto T2794; |
7647 |
T2794:; |
T2794:; |
7648 |
{object V1363; |
{object V1388; |
7649 |
object V1364; |
object V1389; |
7650 |
V1363= CMPcar(base[0]); |
V1388= CMPcar(base[0]); |
7651 |
base[6]= CMPcar(base[1]); |
base[6]= CMPcar(base[1]); |
7652 |
|
V1390 = (V1388); |
7653 |
base[9]= base[6]; |
base[9]= base[6]; |
7654 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7655 |
(void) (*Lnk278)(Lclptr278); |
(void) (*Lnk278)(Lclptr278); |
7656 |
vs_top=sup; |
vs_top=sup; |
7657 |
V1365= vs_base[0]; |
V1391= vs_base[0]; |
7658 |
V1364= nth(fix((V1363)),V1365); |
V1389= nth(fix(V1390),V1391); |
7659 |
base[10]= (V1364); |
base[10]= (V1389); |
7660 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
7661 |
(void) (*Lnk383)(); |
(void) (*Lnk383)(); |
7662 |
vs_top=sup; |
vs_top=sup; |
7713 |
return; |
return; |
7714 |
goto T2820; |
goto T2820; |
7715 |
T2820:; |
T2820:; |
7716 |
base[11]= (V1363); |
base[11]= (V1388); |
7717 |
base[12]= base[8]; |
base[12]= base[8]; |
7718 |
base[14]= Ct; |
base[14]= Ct; |
7719 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
7739 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7740 |
register object *sup=base+VM114; VC114 |
register object *sup=base+VM114; VC114 |
7741 |
vs_check; |
vs_check; |
7742 |
{object V1366; |
{object V1392; |
7743 |
object V1367; |
object V1393; |
7744 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
7745 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
7746 |
V1366=(base[0]); |
V1392=(base[0]); |
7747 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
7748 |
if(vs_base>=vs_top){vs_top=sup;goto T2831;} |
if(vs_base>=vs_top){vs_top=sup;goto T2831;} |
7749 |
V1367=(base[1]); |
V1393=(base[1]); |
7750 |
vs_top=sup; |
vs_top=sup; |
7751 |
goto T2832; |
goto T2832; |
7752 |
goto T2831; |
goto T2831; |
7753 |
T2831:; |
T2831:; |
7754 |
V1367= Cnil; |
V1393= Cnil; |
7755 |
goto T2832; |
goto T2832; |
7756 |
T2832:; |
T2832:; |
7757 |
{object V1368; |
{object V1394; |
7758 |
if(((V1366))==Cnil){ |
if(((V1392))==Cnil){ |
7759 |
goto T2836;} |
goto T2836;} |
7760 |
V1368= base1[8]; |
V1394= base1[8]; |
7761 |
goto T2834; |
goto T2834; |
7762 |
goto T2836; |
goto T2836; |
7763 |
T2836:; |
T2836:; |
7764 |
V1368= list(2,VV[144],base1[8]); |
V1394= list(2,VV[144],base1[8]); |
7765 |
goto T2834; |
goto T2834; |
7766 |
T2834:; |
T2834:; |
7767 |
base[2]= base1[0]; |
base[2]= base1[0]; |
7768 |
base[3]= CMPcdr(base1[1]); |
base[3]= CMPcdr(base1[1]); |
7769 |
if(((V1367))==Cnil){ |
if(((V1393))==Cnil){ |
7770 |
goto T2842;} |
goto T2842;} |
7771 |
base[4]= base1[2]; |
base[4]= base1[2]; |
7772 |
goto T2840; |
goto T2840; |
7773 |
goto T2842; |
goto T2842; |
7774 |
T2842:; |
T2842:; |
7775 |
base[4]= (*(LnkLI385))((V1368),base1[2]); |
base[4]= (*(LnkLI385))((V1394),base1[2]); |
7776 |
goto T2840; |
goto T2840; |
7777 |
T2840:; |
T2840:; |
7778 |
if(((V1366))==Cnil){ |
if(((V1392))==Cnil){ |
7779 |
goto T2846;} |
goto T2846;} |
7780 |
V1369= make_cons(base1[6],Cnil); |
V1395= make_cons(base1[6],Cnil); |
7781 |
base[5]= append(base1[3],/* INLINE-ARGS */V1369); |
base[5]= append(base1[3],/* INLINE-ARGS */V1395); |
7782 |
goto T2844; |
goto T2844; |
7783 |
goto T2846; |
goto T2846; |
7784 |
T2846:; |
T2846:; |
7798 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7799 |
register object *sup=base+VM115; VC115 |
register object *sup=base+VM115; VC115 |
7800 |
vs_check; |
vs_check; |
7801 |
{object V1370; |
{object V1396; |
7802 |
check_arg(1); |
check_arg(1); |
7803 |
V1370=(base[0]); |
V1396=(base[0]); |
7804 |
vs_top=sup; |
vs_top=sup; |
7805 |
goto TTL; |
goto TTL; |
7806 |
TTL:; |
TTL:; |
7807 |
if(((V1370))==Cnil){ |
if(((V1396))==Cnil){ |
7808 |
goto T2850;} |
goto T2850;} |
7809 |
base[1]= base1[9]; |
base[1]= base1[9]; |
7810 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7823 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7824 |
register object *sup=base+VM116; VC116 |
register object *sup=base+VM116; VC116 |
7825 |
vs_check; |
vs_check; |
7826 |
{object V1371; |
{object V1397; |
7827 |
object V1372; |
object V1398; |
7828 |
object V1373; |
object V1399; |
7829 |
check_arg(3); |
check_arg(3); |
7830 |
V1371=(base[0]); |
V1397=(base[0]); |
7831 |
V1372=(base[1]); |
V1398=(base[1]); |
7832 |
V1373=(base[2]); |
V1399=(base[2]); |
7833 |
vs_top=sup; |
vs_top=sup; |
7834 |
goto TTL; |
goto TTL; |
7835 |
TTL:; |
TTL:; |
7836 |
if(((V1371))==Cnil){ |
if(((V1397))==Cnil){ |
7837 |
goto T2853;} |
goto T2853;} |
7838 |
{object V1374; |
{object V1400; |
7839 |
object V1375; |
object V1401; |
7840 |
V1374= CMPcar((V1371));{object V1376; |
V1400= CMPcar((V1397));{object V1402; |
7841 |
V1376= nth(fix((V1374)),base0[2]); |
V1402= nth(fix((V1400)),base0[2]); |
7842 |
if(V1376==Cnil)goto T2857; |
if(V1402==Cnil)goto T2857; |
7843 |
V1375= V1376; |
V1401= V1402; |
7844 |
goto T2856; |
goto T2856; |
7845 |
goto T2857; |
goto T2857; |
7846 |
T2857:;} |
T2857:;} |
7847 |
V1375= Ct; |
V1401= Ct; |
7848 |
goto T2856; |
goto T2856; |
7849 |
T2856:; |
T2856:; |
7850 |
if(!((nth(fix((V1374)),base0[9]))==(Ct))){ |
if(!((nth(fix((V1400)),base0[9]))==(Ct))){ |
7851 |
goto T2860;} |
goto T2860;} |
7852 |
V1371= CMPcdr((V1371)); |
V1397= CMPcdr((V1397)); |
7853 |
V1377= make_cons((V1374),(V1375)); |
V1403= make_cons((V1400),(V1401)); |
7854 |
V1373= make_cons(/* INLINE-ARGS */V1377,(V1373)); |
V1399= make_cons(/* INLINE-ARGS */V1403,(V1399)); |
7855 |
goto TTL; |
goto TTL; |
7856 |
return; |
return; |
7857 |
goto T2860; |
goto T2860; |
7858 |
T2860:; |
T2860:; |
7859 |
base[5]= (V1371); |
base[5]= (V1397); |
7860 |
base[6]= (V1372); |
base[6]= (V1398); |
7861 |
base[7]= (V1375); |
base[7]= (V1401); |
7862 |
base[8]= Cnil; |
base[8]= Cnil; |
7863 |
base[9]= (V1373); |
base[9]= (V1399); |
7864 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
7865 |
L101(base0); |
L101(base0); |
7866 |
return;} |
return;} |
7867 |
goto T2853; |
goto T2853; |
7868 |
T2853:; |
T2853:; |
7869 |
base[3]= (V1372); |
base[3]= (V1398); |
7870 |
{register object V1378; |
{register object V1404; |
7871 |
base[5]= base0[8]; |
base[5]= base0[8]; |
7872 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7873 |
Lmake_list(); |
Lmake_list(); |
7874 |
vs_top=sup; |
vs_top=sup; |
7875 |
V1378= vs_base[0]; |
V1404= vs_base[0]; |
7876 |
{register object V1379; |
{register object V1405; |
7877 |
register object V1380; |
register object V1406; |
7878 |
V1379= (V1373); |
V1405= (V1399); |
7879 |
V1380= CMPcar((V1379)); |
V1406= CMPcar((V1405)); |
7880 |
goto T2879; |
goto T2879; |
7881 |
T2879:; |
T2879:; |
7882 |
if(!(((V1379))==Cnil)){ |
if(!(((V1405))==Cnil)){ |
7883 |
goto T2880;} |
goto T2880;} |
7884 |
goto T2875; |
goto T2875; |
7885 |
goto T2880; |
goto T2880; |
7886 |
T2880:; |
T2880:; |
7887 |
{register object V1381; |
{register object V1407; |
7888 |
register object V1382; |
register object V1408; |
7889 |
register object V1383; |
register object V1409; |
7890 |
V1381= CMPcar((V1380)); |
V1407= CMPcar((V1406)); |
7891 |
V1382= (V1378); |
V1408= (V1404); |
7892 |
V1383= CMPcdr((V1380)); |
V1409= CMPcdr((V1406)); |
7893 |
(nthcdr(fix((V1381)),(V1382)))->c.c_car = (V1383); |
(nthcdr(fix((V1407)),(V1408)))->c.c_car = (V1409); |
7894 |
(void)(nthcdr(fix((V1381)),(V1382)));} |
(void)(nthcdr(fix((V1407)),(V1408)));} |
7895 |
V1379= CMPcdr((V1379)); |
V1405= CMPcdr((V1405)); |
7896 |
V1380= CMPcar((V1379)); |
V1406= CMPcar((V1405)); |
7897 |
goto T2879;} |
goto T2879;} |
7898 |
goto T2875; |
goto T2875; |
7899 |
T2875:; |
T2875:; |
7900 |
base[4]= (V1378);} |
base[4]= (V1404);} |
7901 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7902 |
{object _funobj = base0[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base0[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7903 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7913 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7914 |
register object *sup=base+VM117; VC117 |
register object *sup=base+VM117; VC117 |
7915 |
vs_check; |
vs_check; |
7916 |
{register object V1384; |
{register object V1410; |
7917 |
check_arg(1); |
check_arg(1); |
7918 |
V1384=(base[0]); |
V1410=(base[0]); |
7919 |
vs_top=sup; |
vs_top=sup; |
7920 |
if(!(type_of((V1384))==t_cons)){ |
if(!(type_of((V1410))==t_cons)){ |
7921 |
goto T2895;} |
goto T2895;} |
7922 |
if(!((CMPcar((V1384)))==(VV[108]))){ |
if(!((CMPcar((V1410)))==(VV[108]))){ |
7923 |
goto T2895;} |
goto T2895;} |
7924 |
base[1]= list(2,VV[109],(*(LnkLI149))(CMPcadr((V1384)))); |
base[1]= list(2,VV[109],(*(LnkLI149))(CMPcadr((V1410)))); |
7925 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7926 |
return; |
return; |
7927 |
goto T2895; |
goto T2895; |
7928 |
T2895:; |
T2895:; |
7929 |
base[1]= (V1384); |
base[1]= (V1410); |
7930 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7931 |
return; |
return; |
7932 |
} |
} |
7938 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7939 |
register object *sup=base+VM118; VC118 |
register object *sup=base+VM118; VC118 |
7940 |
vs_check; |
vs_check; |
7941 |
{object V1385; |
{object V1411; |
7942 |
object V1386; |
object V1412; |
7943 |
object V1387; |
object V1413; |
7944 |
object V1388; |
object V1414; |
7945 |
check_arg(4); |
check_arg(4); |
7946 |
V1385=(base[0]); |
V1411=(base[0]); |
7947 |
V1386=(base[1]); |
V1412=(base[1]); |
7948 |
V1387=(base[2]); |
V1413=(base[2]); |
7949 |
V1388=(base[3]); |
V1414=(base[3]); |
7950 |
vs_top=sup; |
vs_top=sup; |
7951 |
base[4]= Cnil; |
base[4]= Cnil; |
7952 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7960 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7961 |
register object *sup=base+VM119; VC119 |
register object *sup=base+VM119; VC119 |
7962 |
vs_check; |
vs_check; |
7963 |
{object V1389; |
{object V1415; |
7964 |
check_arg(2); |
check_arg(2); |
7965 |
V1389=(base[0]); |
V1415=(base[0]); |
7966 |
base[1]=MMcons(base[1],base0[0]); |
base[1]=MMcons(base[1],base0[0]); |
7967 |
vs_top=sup; |
vs_top=sup; |
7968 |
if(((V1389))==Cnil){ |
if(((V1415))==Cnil){ |
7969 |
goto T2900;} |
goto T2900;} |
7970 |
if(((base0[2]->c.c_car))==Cnil){ |
if(((base0[2]->c.c_car))==Cnil){ |
7971 |
goto T2902;} |
goto T2902;} |
7972 |
{object V1390; |
{object V1416; |
7973 |
{object V1391; |
{object V1417; |
7974 |
object V1392= (base[1]->c.c_car); |
object V1418= (base[1]->c.c_car); |
7975 |
if(V1392==Cnil){ |
if(V1418==Cnil){ |
7976 |
V1390= Cnil; |
V1416= Cnil; |
7977 |
goto T2905;} |
goto T2905;} |
7978 |
base[3]=V1391=MMcons(Cnil,Cnil); |
base[3]=V1417=MMcons(Cnil,Cnil); |
7979 |
goto T2906; |
goto T2906; |
7980 |
T2906:; |
T2906:; |
7981 |
(V1391->c.c_car)= (*(LnkLI386))((V1392->c.c_car)); |
(V1417->c.c_car)= (*(LnkLI386))((V1418->c.c_car)); |
7982 |
if((V1392=MMcdr(V1392))==Cnil){ |
if((V1418=MMcdr(V1418))==Cnil){ |
7983 |
V1390= base[3]; |
V1416= base[3]; |
7984 |
goto T2905;} |
goto T2905;} |
7985 |
V1391=MMcdr(V1391)=MMcons(Cnil,Cnil); |
V1417=MMcdr(V1417)=MMcons(Cnil,Cnil); |
7986 |
goto T2906;} |
goto T2906;} |
7987 |
goto T2905; |
goto T2905; |
7988 |
T2905:; |
T2905:; |
7989 |
(base0[0]->c.c_car)= make_cons((V1390),(base0[0]->c.c_car));} |
(base0[0]->c.c_car)= make_cons((V1416),(base0[0]->c.c_car));} |
7990 |
goto T2902; |
goto T2902; |
7991 |
T2902:; |
T2902:; |
7992 |
V1393= (*(LnkLI387))((V1389)); |
V1419= (*(LnkLI387))((V1415)); |
7993 |
base[2]= ((/* INLINE-ARGS */V1393)==Cnil?Ct:Cnil); |
base[2]= ((/* INLINE-ARGS */V1419)==Cnil?Ct:Cnil); |
7994 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
7995 |
V1394= |
V1420 = (V1415); |
7996 |
|
V1421 = (base0[1]->c.c_car); |
7997 |
|
V1422= |
7998 |
make_cclosure_new(LC136,Cnil,base[2],Cdata); |
make_cclosure_new(LC136,Cnil,base[2],Cdata); |
7999 |
base[3]= (*(LnkLI388))((V1389),(base0[1]->c.c_car),V1394); |
base[3]= (*(LnkLI388))(V1420,V1421,V1422); |
8000 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8001 |
return; |
return; |
8002 |
goto T2900; |
goto T2900; |
8013 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8014 |
register object *sup=base+VM120; VC120 |
register object *sup=base+VM120; VC120 |
8015 |
vs_check; |
vs_check; |
8016 |
{object V1395; |
{object V1423; |
8017 |
check_arg(1); |
check_arg(1); |
8018 |
V1395=(base[0]); |
V1423=(base[0]); |
8019 |
vs_top=sup; |
vs_top=sup; |
8020 |
base[1]= (VFUN_NARGS=6,(*(LnkLI307))((base0[6]->c.c_car),(V1395),(base0[1]->c.c_car),Cnil,(base0[5]->c.c_car),(base0[0]->c.c_car))); |
base[1]= (VFUN_NARGS=6,(*(LnkLI307))((base0[6]->c.c_car),(V1423),(base0[1]->c.c_car),Cnil,(base0[5]->c.c_car),(base0[0]->c.c_car))); |
8021 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8022 |
return; |
return; |
8023 |
} |
} |
8029 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8030 |
register object *sup=base+VM121; VC121 |
register object *sup=base+VM121; VC121 |
8031 |
vs_check; |
vs_check; |
8032 |
{object V1396; |
{object V1424; |
8033 |
register object V1397; |
register object V1425; |
8034 |
object V1398; |
object V1426; |
8035 |
register object V1399; |
register object V1427; |
8036 |
check_arg(4); |
check_arg(4); |
8037 |
V1396=(base[0]); |
V1424=(base[0]); |
8038 |
V1397=(base[1]); |
V1425=(base[1]); |
8039 |
V1398=(base[2]); |
V1426=(base[2]); |
8040 |
V1399=(base[3]); |
V1427=(base[3]); |
8041 |
vs_top=sup; |
vs_top=sup; |
8042 |
{object V1400; |
{object V1428; |
8043 |
V1400= (*(LnkLI389))((V1396)); |
V1428= (*(LnkLI389))((V1424)); |
8044 |
if(!((CMPcar((V1397)))==(VV[108]))){ |
if(!((CMPcar((V1425)))==(VV[108]))){ |
8045 |
goto T2913;} |
goto T2913;} |
8046 |
{object V1401; |
{object V1429; |
8047 |
object V1402; |
object V1430; |
8048 |
object V1403; |
object V1431; |
8049 |
object V1404; |
object V1432; |
8050 |
if(type_of((V1399))==t_cons){ |
if(type_of((V1427))==t_cons){ |
8051 |
goto T2916;} |
goto T2916;} |
8052 |
V1401= Cnil; |
V1429= Cnil; |
8053 |
goto T2915; |
goto T2915; |
8054 |
goto T2916; |
goto T2916; |
8055 |
T2916:; |
T2916:; |
8056 |
if(!((CMPcar((V1399)))==(VV[163]))){ |
if(!((CMPcar((V1427)))==(VV[163]))){ |
8057 |
goto T2920;} |
goto T2920;} |
8058 |
goto T2918; |
goto T2918; |
8059 |
goto T2920; |
goto T2920; |
8060 |
T2920:; |
T2920:; |
8061 |
if((CMPcar((V1399)))==(VV[164])){ |
if((CMPcar((V1427)))==(VV[164])){ |
8062 |
goto T2918;} |
goto T2918;} |
8063 |
V1401= Cnil; |
V1429= Cnil; |
8064 |
goto T2915; |
goto T2915; |
8065 |
goto T2918; |
goto T2918; |
8066 |
T2918:; |
T2918:; |
8067 |
V1401= (((V1400))==(CMPcadr((V1399)))?Ct:Cnil); |
V1429= (((V1428))==(CMPcadr((V1427)))?Ct:Cnil); |
8068 |
goto T2915; |
goto T2915; |
8069 |
T2915:; |
T2915:; |
8070 |
if(((V1401))==Cnil){ |
if(((V1429))==Cnil){ |
8071 |
goto T2924;} |
goto T2924;} |
8072 |
V1402= CMPcddr((V1399)); |
V1430= CMPcddr((V1427)); |
8073 |
goto T2922; |
goto T2922; |
8074 |
goto T2924; |
goto T2924; |
8075 |
T2924:; |
T2924:; |
8076 |
V1405= list(2,Ct,(V1399)); |
V1433= list(2,Ct,(V1427)); |
8077 |
V1402= make_cons(/* INLINE-ARGS */V1405,Cnil); |
V1430= make_cons(/* INLINE-ARGS */V1433,Cnil); |
8078 |
goto T2922; |
goto T2922; |
8079 |
T2922:; |
T2922:; |
8080 |
if(((*(LnkLI390))((V1398)))==Cnil){ |
if(((*(LnkLI390))((V1426)))==Cnil){ |
8081 |
goto T2928;} |
goto T2928;} |
8082 |
if(((V1401))==Cnil){ |
if(((V1429))==Cnil){ |
8083 |
goto T2933;} |
goto T2933;} |
8084 |
if(!((CMPcar((V1399)))==(VV[164]))){ |
if(!((CMPcar((V1427)))==(VV[164]))){ |
8085 |
goto T2928;} |
goto T2928;} |
8086 |
goto T2931; |
goto T2931; |
8087 |
goto T2933; |
goto T2933; |
8088 |
T2933:; |
T2933:; |
8089 |
if(((*(LnkLI390))((V1399)))==Cnil){ |
if(((*(LnkLI390))((V1427)))==Cnil){ |
8090 |
goto T2928;} |
goto T2928;} |
8091 |
goto T2931; |
goto T2931; |
8092 |
T2931:; |
T2931:; |
8093 |
V1403= VV[164]; |
V1431= VV[164]; |
8094 |
goto T2926; |
goto T2926; |
8095 |
goto T2928; |
goto T2928; |
8096 |
T2928:; |
T2928:; |
8097 |
V1403= VV[163]; |
V1431= VV[163]; |
8098 |
goto T2926; |
goto T2926; |
8099 |
T2926:; |
T2926:; |
8100 |
V1404= make_cons(CMPcadr((V1397)),Cnil); |
V1432= make_cons(CMPcadr((V1425)),Cnil); |
8101 |
base[8]= listA(4,(V1403),(V1400),list(2,(V1404),(V1398)),(V1402)); |
base[8]= listA(4,(V1431),(V1428),list(2,(V1432),(V1426)),(V1430)); |
8102 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
8103 |
return;} |
return;} |
8104 |
goto T2913; |
goto T2913; |
8105 |
T2913:; |
T2913:; |
8106 |
{object V1407; |
{object V1435; |
8107 |
V1407= (*(LnkLI389))((V1396)); |
V1435= (*(LnkLI389))((V1424)); |
8108 |
{object V1408= CMPcar((V1397)); |
{object V1436= CMPcar((V1425)); |
8109 |
if((V1408!= VV[340]))goto T2938; |
if((V1436!= VV[340]))goto T2938; |
8110 |
V1406= list(3,VV[166],(V1407),CMPcadr((V1397))); |
V1434= list(3,VV[166],(V1435),CMPcadr((V1425))); |
8111 |
goto T2936; |
goto T2936; |
8112 |
goto T2938; |
goto T2938; |
8113 |
T2938:; |
T2938:; |
8114 |
if((V1408!= VV[109]))goto T2939; |
if((V1436!= VV[109]))goto T2939; |
8115 |
V1406= list(3,VV[167],(V1407),CMPcadr((V1397))); |
V1434= list(3,VV[167],(V1435),CMPcadr((V1425))); |
8116 |
goto T2936; |
goto T2936; |
8117 |
goto T2939; |
goto T2939; |
8118 |
T2939:; |
T2939:; |
8119 |
V1406= Cnil;}} |
V1434= Cnil;}} |
8120 |
goto T2936; |
goto T2936; |
8121 |
T2936:; |
T2936:; |
8122 |
base[4]= list(4,VV[165],V1406,(V1398),(V1399)); |
V1437 = (V1426); |
8123 |
|
V1438 = (V1427); |
8124 |
|
base[4]= list(4,VV[165],V1434,V1437,V1438); |
8125 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8126 |
return;} |
return;} |
8127 |
} |
} |
8133 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8134 |
register object *sup=base+VM122; VC122 |
register object *sup=base+VM122; VC122 |
8135 |
vs_check; |
vs_check; |
8136 |
{VOL object V1409; |
{register object V1439; |
8137 |
object V1410; |
object V1440; |
8138 |
check_arg(2); |
check_arg(2); |
8139 |
V1409=(base[0]); |
V1439=(base[0]); |
8140 |
V1410=(base[1]); |
V1440=(base[1]); |
8141 |
vs_top=sup; |
vs_top=sup; |
8142 |
if(((base0[1]->c.c_car))!=Cnil){ |
if(((base0[1]->c.c_car))!=Cnil){ |
8143 |
goto T2940;} |
goto T2940;} |
8152 |
goto T2944;} |
goto T2944;} |
8153 |
else{ |
else{ |
8154 |
base[3]=MMcons(Cnil,base[2]); |
base[3]=MMcons(Cnil,base[2]); |
8155 |
base[4]= (V1409); |
base[4]= (V1439); |
8156 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8157 |
Lcopy_list(); |
Lcopy_list(); |
8158 |
vs_top=sup; |
vs_top=sup; |
8159 |
V1411= vs_base[0]; |
V1441= vs_base[0]; |
8160 |
V1412= |
V1442 = (base0[0]->c.c_car); |
8161 |
|
V1443= |
8162 |
make_cclosure_new(LC137,Cnil,base[3],Cdata); |
make_cclosure_new(LC137,Cnil,base[3],Cdata); |
8163 |
(void)((*(LnkLI388))(V1411,(base0[0]->c.c_car),V1412)); |
(void)((*(LnkLI388))(V1441,V1442,V1443)); |
8164 |
V1409= (base[3]->c.c_car); |
V1439= (base[3]->c.c_car); |
8165 |
frs_pop(); |
frs_pop(); |
8166 |
} |
} |
8167 |
goto T2944; |
goto T2944; |
8168 |
T2944:; |
T2944:; |
8169 |
goto T2940; |
goto T2940; |
8170 |
T2940:; |
T2940:; |
8171 |
base[2]= list(3,VV[67],(V1409),(V1410)); |
base[2]= list(3,VV[67],(V1439),(V1440)); |
8172 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8173 |
return; |
return; |
8174 |
goto T2941; |
goto T2941; |
8175 |
T2941:; |
T2941:; |
8176 |
base[2]= list(3,VV[157],(V1409),(V1410)); |
base[2]= list(3,VV[157],(V1439),(V1440)); |
8177 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8178 |
return; |
return; |
8179 |
} |
} |
8185 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8186 |
register object *sup=base+VM123; VC123 |
register object *sup=base+VM123; VC123 |
8187 |
vs_check; |
vs_check; |
8188 |
{object V1413; |
{object V1444; |
8189 |
check_arg(1); |
check_arg(1); |
8190 |
V1413=(base[0]); |
V1444=(base[0]); |
8191 |
vs_top=sup; |
vs_top=sup; |
8192 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
8193 |
goto T2951;} |
goto T2951;} |
8199 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
8200 |
goto T2951; |
goto T2951; |
8201 |
T2951:; |
T2951:; |
8202 |
(base0[0]->c.c_car)= (V1413); |
(base0[0]->c.c_car)= (V1444); |
8203 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8204 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8205 |
return; |
return; |
8212 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8213 |
register object *sup=base+VM124; VC124 |
register object *sup=base+VM124; VC124 |
8214 |
vs_check; |
vs_check; |
8215 |
{register object V1414; |
{register object V1445; |
8216 |
check_arg(1); |
check_arg(1); |
8217 |
V1414=(base[0]); |
V1445=(base[0]); |
8218 |
vs_top=sup; |
vs_top=sup; |
8219 |
goto TTL; |
goto TTL; |
8220 |
TTL:; |
TTL:; |
8221 |
if((base0[0])==Cnil){ |
if((base0[0])==Cnil){ |
8222 |
goto T2956;} |
goto T2956;} |
8223 |
{register object x= base0[0],V1415= (V1414); |
{register object x= base0[0],V1446= (V1445); |
8224 |
while(V1415!=Cnil) |
while(V1446!=Cnil) |
8225 |
if(x==(V1415->c.c_car)){ |
if(x==(V1446->c.c_car)){ |
8226 |
goto T2960; |
goto T2960; |
8227 |
}else V1415=V1415->c.c_cdr; |
}else V1446=V1446->c.c_cdr; |
8228 |
goto T2957;} |
goto T2957;} |
8229 |
goto T2960; |
goto T2960; |
8230 |
T2960:; |
T2960:; |
8231 |
goto T2956; |
goto T2956; |
8232 |
T2956:; |
T2956:; |
8233 |
{object V1416; |
{object V1447; |
8234 |
V1416= (*(LnkLI392))(base0[5],base0[7],(V1414),base0[6]); |
V1447= (*(LnkLI392))(base0[5],base0[7],(V1445),base0[6]); |
8235 |
if(((V1416))==Cnil){ |
if(((V1447))==Cnil){ |
8236 |
goto T2963;} |
goto T2963;} |
8237 |
V1417= (VFUN_NARGS=3,(*(LnkLI393))(base0[1],(V1416),base0[9])); |
V1448 = base0[9]; |
8238 |
if(!((base0[9])==(/* INLINE-ARGS */V1417))){ |
V1449= (VFUN_NARGS=3,(*(LnkLI393))(base0[1],(V1447),base0[9])); |
8239 |
|
if(!((V1448)==(/* INLINE-ARGS */V1449))){ |
8240 |
goto T2963;} |
goto T2963;} |
8241 |
{object V1418; |
{object V1450; |
8242 |
if(!((base0[2])==(Ct))){ |
if(!((base0[2])==(Ct))){ |
8243 |
goto T2969;} |
goto T2969;} |
8244 |
base[1]= base0[3]; |
base[1]= base0[3]; |
8245 |
base[2]= (V1414); |
base[2]= (V1445); |
8246 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8247 |
(void) (*Lnk394)(); |
(void) (*Lnk394)(); |
8248 |
vs_top=sup; |
vs_top=sup; |
8249 |
V1418= vs_base[0]; |
V1450= vs_base[0]; |
8250 |
goto T2967; |
goto T2967; |
8251 |
goto T2969; |
goto T2969; |
8252 |
T2969:; |
T2969:; |
8253 |
if(!((base0[2])==(VV[112]))){ |
if(!((base0[2])==(VV[112]))){ |
8254 |
goto T2974;} |
goto T2974;} |
8255 |
V1418= (*(LnkLI395))(base0[3],(V1414)); |
V1450= (*(LnkLI395))(base0[3],(V1445)); |
8256 |
goto T2967; |
goto T2967; |
8257 |
goto T2974; |
goto T2974; |
8258 |
T2974:; |
T2974:; |
8259 |
V1418= Cnil; |
V1450= Cnil; |
8260 |
goto T2967; |
goto T2967; |
8261 |
T2967:; |
T2967:; |
8262 |
base0[1]= (VFUN_NARGS=4,(*(LnkLI396))(base0[1],(V1416),(V1418),Ct)); |
base0[1]= (VFUN_NARGS=4,(*(LnkLI396))(base0[1],(V1447),(V1450),Ct)); |
8263 |
base[1]= base0[1]; |
base[1]= base0[1]; |
8264 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8265 |
return;} |
return;} |
8282 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8283 |
register object *sup=base+VM125; VC125 |
register object *sup=base+VM125; VC125 |
8284 |
vs_check; |
vs_check; |
8285 |
{object V1419; |
{object V1451; |
8286 |
check_arg(1); |
check_arg(1); |
8287 |
V1419=(base[0]); |
V1451=(base[0]); |
8288 |
vs_top=sup; |
vs_top=sup; |
8289 |
base[1]= (V1419); |
base[1]= (V1451); |
8290 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8291 |
(void) (*Lnk397)(Lclptr397); |
(void) (*Lnk397)(Lclptr397); |
8292 |
vs_top=sup; |
vs_top=sup; |
8293 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8294 |
goto T2978;} |
goto T2978;} |
8295 |
{register object V1420; |
{register object V1452; |
8296 |
register object V1421; |
register object V1453; |
8297 |
base[3]= (V1419); |
base[3]= (V1451); |
8298 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8299 |
(void) (*Lnk398)(Lclptr398); |
(void) (*Lnk398)(Lclptr398); |
8300 |
vs_top=sup; |
vs_top=sup; |
8301 |
V1420= vs_base[0]; |
V1452= vs_base[0]; |
8302 |
V1421= CMPcar((V1420)); |
V1453= CMPcar((V1452)); |
8303 |
goto T2985; |
goto T2985; |
8304 |
T2985:; |
T2985:; |
8305 |
if(!(((V1420))==Cnil)){ |
if(!(((V1452))==Cnil)){ |
8306 |
goto T2986;} |
goto T2986;} |
8307 |
base[3]= Cnil; |
base[3]= Cnil; |
8308 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8309 |
return; |
return; |
8310 |
goto T2986; |
goto T2986; |
8311 |
T2986:; |
T2986:; |
8312 |
base[3]= (V1421); |
base[3]= (V1453); |
8313 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
8314 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
8315 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
8316 |
(void) (*Lnk399)(Lclptr399); |
(void) (*Lnk399)(Lclptr399); |
8317 |
vs_top=sup; |
vs_top=sup; |
8318 |
V1420= CMPcdr((V1420)); |
V1452= CMPcdr((V1452)); |
8319 |
V1421= CMPcar((V1420)); |
V1453= CMPcar((V1452)); |
8320 |
goto T2985;} |
goto T2985;} |
8321 |
goto T2978; |
goto T2978; |
8322 |
T2978:; |
T2978:; |
8332 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8333 |
register object *sup=base+VM126; VC126 |
register object *sup=base+VM126; VC126 |
8334 |
vs_check; |
vs_check; |
8335 |
{object V1422; |
{object V1454; |
8336 |
check_arg(1); |
check_arg(1); |
8337 |
V1422=(base[0]); |
V1454=(base[0]); |
8338 |
vs_top=sup; |
vs_top=sup; |
8339 |
goto TTL; |
goto TTL; |
8340 |
TTL:; |
TTL:; |
8341 |
base[1]= (V1422); |
base[1]= (V1454); |
8342 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8343 |
(void) (*Lnk397)(Lclptr397); |
(void) (*Lnk397)(Lclptr397); |
8344 |
vs_top=sup; |
vs_top=sup; |
8345 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8346 |
goto T3000;} |
goto T3000;} |
8347 |
{register object V1423; |
{register object V1455; |
8348 |
register object V1424; |
register object V1456; |
8349 |
base[3]= (V1422); |
base[3]= (V1454); |
8350 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8351 |
(void) (*Lnk398)(Lclptr398); |
(void) (*Lnk398)(Lclptr398); |
8352 |
vs_top=sup; |
vs_top=sup; |
8353 |
V1423= vs_base[0]; |
V1455= vs_base[0]; |
8354 |
V1424= CMPcar((V1423)); |
V1456= CMPcar((V1455)); |
8355 |
goto T3007; |
goto T3007; |
8356 |
T3007:; |
T3007:; |
8357 |
if(!(((V1423))==Cnil)){ |
if(!(((V1455))==Cnil)){ |
8358 |
goto T3008;} |
goto T3008;} |
8359 |
base[3]= Cnil; |
base[3]= Cnil; |
8360 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8361 |
return; |
return; |
8362 |
goto T3008; |
goto T3008; |
8363 |
T3008:; |
T3008:; |
8364 |
base[3]= (V1424); |
base[3]= (V1456); |
8365 |
base[4]= (base0[1]->c.c_car); |
base[4]= (base0[1]->c.c_car); |
8366 |
base[5]= (base0[0]->c.c_car); |
base[5]= (base0[0]->c.c_car); |
8367 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
8368 |
(void) (*Lnk399)(Lclptr399); |
(void) (*Lnk399)(Lclptr399); |
8369 |
vs_top=sup; |
vs_top=sup; |
8370 |
V1423= CMPcdr((V1423)); |
V1455= CMPcdr((V1455)); |
8371 |
V1424= CMPcar((V1423)); |
V1456= CMPcar((V1455)); |
8372 |
goto T3007;} |
goto T3007;} |
8373 |
goto T3000; |
goto T3000; |
8374 |
T3000:; |
T3000:; |
8384 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8385 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM127; VC127 |
8386 |
vs_check; |
vs_check; |
8387 |
{object V1425; |
{object V1457; |
8388 |
check_arg(1); |
check_arg(1); |
8389 |
V1425=(base[0]); |
V1457=(base[0]); |
8390 |
vs_top=sup; |
vs_top=sup; |
8391 |
{register object x= (V1425),V1426= (base0[1]->c.c_car); |
{register object x= (V1457),V1458= (base0[1]->c.c_car); |
8392 |
while(V1426!=Cnil) |
while(V1458!=Cnil) |
8393 |
if(eql(x,V1426->c.c_car)){ |
if(eql(x,V1458->c.c_car)){ |
8394 |
goto T3021; |
goto T3021; |
8395 |
}else V1426=V1426->c.c_cdr;} |
}else V1458=V1458->c.c_cdr;} |
8396 |
{register object V1427; |
{register object V1459; |
8397 |
register object V1428; |
register object V1460; |
8398 |
V1427= (base0[0]->c.c_car); |
V1459= (base0[0]->c.c_car); |
8399 |
V1428= CMPcar((V1427)); |
V1460= CMPcar((V1459)); |
8400 |
goto T3029; |
goto T3029; |
8401 |
T3029:; |
T3029:; |
8402 |
if(!(((V1427))==Cnil)){ |
if(!(((V1459))==Cnil)){ |
8403 |
goto T3030;} |
goto T3030;} |
8404 |
goto T3022; |
goto T3022; |
8405 |
goto T3030; |
goto T3030; |
8406 |
T3030:; |
T3030:; |
8407 |
base[2]= (*(LnkLI149))((V1425)); |
V1462 = (V1460); |
8408 |
|
base[2]= (*(LnkLI149))((V1457)); |
8409 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8410 |
(void) (*Lnk155)(Lclptr155); |
(void) (*Lnk155)(Lclptr155); |
8411 |
vs_top=sup; |
vs_top=sup; |
8412 |
V1430= vs_base[0]; |
V1463= vs_base[0]; |
8413 |
{register object x= (V1428),V1429= V1430; |
{register object x= V1462,V1461= V1463; |
8414 |
while(V1429!=Cnil) |
while(V1461!=Cnil) |
8415 |
if(eql(x,V1429->c.c_car)){ |
if(eql(x,V1461->c.c_car)){ |
8416 |
goto T3034; |
goto T3034; |
8417 |
}else V1429=V1429->c.c_cdr;} |
}else V1461=V1461->c.c_cdr;} |
8418 |
goto T3034; |
goto T3034; |
8419 |
T3034:; |
T3034:; |
8420 |
V1427= CMPcdr((V1427)); |
V1459= CMPcdr((V1459)); |
8421 |
V1428= CMPcar((V1427)); |
V1460= CMPcar((V1459)); |
8422 |
goto T3029;} |
goto T3029;} |
8423 |
goto T3021; |
goto T3021; |
8424 |
T3021:; |
T3021:; |
8425 |
base[1]= (*(LnkLI317))((V1425)); |
base[1]= (*(LnkLI317))((V1457)); |
8426 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8427 |
return; |
return; |
8428 |
goto T3022; |
goto T3022; |
8439 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8440 |
register object *sup=base+VM128; VC128 |
register object *sup=base+VM128; VC128 |
8441 |
vs_check; |
vs_check; |
8442 |
{object V1431; |
{object V1464; |
8443 |
check_arg(1); |
check_arg(1); |
8444 |
V1431=(base[0]); |
V1464=(base[0]); |
8445 |
vs_top=sup; |
vs_top=sup; |
8446 |
{register object x= (V1431),V1432= (base0[0]->c.c_car); |
{register object x= (V1464),V1465= (base0[0]->c.c_car); |
8447 |
while(V1432!=Cnil) |
while(V1465!=Cnil) |
8448 |
if(eql(x,V1432->c.c_car)){ |
if(eql(x,V1465->c.c_car)){ |
8449 |
base[1]= V1432; |
base[1]= V1465; |
8450 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8451 |
return; |
return; |
8452 |
}else V1432=V1432->c.c_cdr; |
}else V1465=V1465->c.c_cdr; |
8453 |
base[1]= Cnil; |
base[1]= Cnil; |
8454 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8455 |
return;} |
return;} |
8462 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8463 |
register object *sup=base+VM129; VC129 |
register object *sup=base+VM129; VC129 |
8464 |
vs_check; |
vs_check; |
8465 |
{object V1433; |
{object V1466; |
8466 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8467 |
{object *p=vs_top; |
{object *p=vs_top; |
8468 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8469 |
V1433=(base[0]); |
V1466=(base[0]); |
8470 |
vs_top=sup; |
vs_top=sup; |
8471 |
{object V1434; |
{object V1467; |
8472 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8473 |
base[2]= (V1433); |
base[2]= (V1466); |
8474 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8475 |
(void) (*Lnk115)(Lclptr115); |
(void) (*Lnk115)(Lclptr115); |
8476 |
vs_top=sup; |
vs_top=sup; |
8477 |
V1434= vs_base[0]; |
V1467= vs_base[0]; |
8478 |
if(((V1434))==Cnil){ |
if(((V1467))==Cnil){ |
8479 |
goto T3046;} |
goto T3046;} |
8480 |
{object V1435; |
{object V1468; |
8481 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8482 |
base[2]= (V1434); |
base[2]= (V1467); |
8483 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8484 |
(void) (*Lnk312)(); |
(void) (*Lnk312)(); |
8485 |
vs_top=sup; |
vs_top=sup; |
8486 |
V1435= vs_base[0]; |
V1468= vs_base[0]; |
8487 |
base[1]= (V1435); |
base[1]= (V1468); |
8488 |
base[2]= (V1433); |
base[2]= (V1466); |
8489 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8490 |
(void) (*Lnk379)(); |
(void) (*Lnk379)(); |
8491 |
return;} |
return;} |
8493 |
T3046:; |
T3046:; |
8494 |
base[1]=VV[400]->s.s_gfdef; |
base[1]=VV[400]->s.s_gfdef; |
8495 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8496 |
{object V1436; |
{object V1469; |
8497 |
V1436= (V1433); |
V1469= (V1466); |
8498 |
vs_top=base+3; |
vs_top=base+3; |
8499 |
while(V1436!=Cnil) |
while(V1469!=Cnil) |
8500 |
{vs_push((V1436)->c.c_car);V1436=(V1436)->c.c_cdr;} |
{vs_push((V1469)->c.c_car);V1469=(V1469)->c.c_cdr;} |
8501 |
vs_base=base+2;} |
vs_base=base+2;} |
8502 |
(void) (*Lnk400)(Lclptr400); |
(void) (*Lnk400)(Lclptr400); |
8503 |
return;} |
return;} |
8510 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8511 |
register object *sup=base+VM130; VC130 |
register object *sup=base+VM130; VC130 |
8512 |
vs_check; |
vs_check; |
8513 |
{object V1437; |
{object V1470; |
8514 |
object V1438; |
object V1471; |
8515 |
check_arg(2); |
check_arg(2); |
8516 |
V1437=(base[0]); |
V1470=(base[0]); |
8517 |
V1438=(base[1]); |
V1471=(base[1]); |
8518 |
vs_top=sup; |
vs_top=sup; |
8519 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8520 |
{object V1439; |
{object V1472; |
8521 |
V1439= (V1437); |
V1472= (V1470); |
8522 |
vs_top=base+3; |
vs_top=base+3; |
8523 |
while(V1439!=Cnil) |
while(V1472!=Cnil) |
8524 |
{vs_push((V1439)->c.c_car);V1439=(V1439)->c.c_cdr;} |
{vs_push((V1472)->c.c_car);V1472=(V1472)->c.c_cdr;} |
8525 |
vs_base=base+3;} |
vs_base=base+3;} |
8526 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8527 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8537 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8538 |
register object *sup=base+VM131; VC131 |
register object *sup=base+VM131; VC131 |
8539 |
vs_check; |
vs_check; |
8540 |
{object V1440; |
{object V1473; |
8541 |
object V1441; |
object V1474; |
8542 |
object V1442; |
object V1475; |
8543 |
check_arg(3); |
check_arg(3); |
8544 |
V1440=(base[0]); |
V1473=(base[0]); |
8545 |
V1441=(base[1]); |
V1474=(base[1]); |
8546 |
V1442=(base[2]); |
V1475=(base[2]); |
8547 |
vs_top=sup; |
vs_top=sup; |
8548 |
goto TTL; |
goto TTL; |
8549 |
TTL:; |
TTL:; |
8550 |
base[3]= VV[84]; |
base[3]= VV[84]; |
8551 |
base[4]= base0[2]; |
base[4]= base0[2]; |
8552 |
base[5]= (V1440); |
base[5]= (V1473); |
8553 |
base[6]= (V1441); |
base[6]= (V1474); |
8554 |
base[7]= (V1442); |
base[7]= (V1475); |
8555 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
8556 |
Lerror(); |
Lerror(); |
8557 |
return; |
return; |
8564 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8565 |
register object *sup=base+VM132; VC132 |
register object *sup=base+VM132; VC132 |
8566 |
vs_check; |
vs_check; |
8567 |
{object V1443; |
{object V1476; |
8568 |
object V1444; |
object V1477; |
8569 |
object V1445; |
object V1478; |
8570 |
check_arg(3); |
check_arg(3); |
8571 |
V1443=(base[0]); |
V1476=(base[0]); |
8572 |
V1444=(base[1]); |
V1477=(base[1]); |
8573 |
V1445=(base[2]); |
V1478=(base[2]); |
8574 |
vs_top=sup; |
vs_top=sup; |
8575 |
goto TTL; |
goto TTL; |
8576 |
TTL:; |
TTL:; |
8577 |
base[3]= VV[57]; |
base[3]= VV[57]; |
8578 |
base[4]= base0[2]; |
base[4]= base0[2]; |
8579 |
base[5]= (V1443); |
base[5]= (V1476); |
8580 |
base[6]= (V1444); |
base[6]= (V1477); |
8581 |
base[7]= (V1445); |
base[7]= (V1478); |
8582 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
8583 |
Lerror(); |
Lerror(); |
8584 |
return; |
return; |