2209 |
base[2]= VV[133]; |
base[2]= VV[133]; |
2210 |
base[3]= (*(LnkLI228))((V356)); |
base[3]= (*(LnkLI228))((V356)); |
2211 |
base[4]= VV[134]; |
base[4]= VV[134]; |
2212 |
base[6]= (V356); |
base[5]= (*(LnkLI229))((V356)); |
|
vs_top=(vs_base=base+6)+1; |
|
|
(void) (*Lnk229)(); |
|
|
vs_top=sup; |
|
|
base[5]= vs_base[0]; |
|
2213 |
base[6]= VV[135]; |
base[6]= VV[135]; |
2214 |
base[7]= (*(LnkLI230))((V356)); |
base[7]= (*(LnkLI230))((V356)); |
2215 |
base[8]= VV[93];{object V357; |
base[8]= VV[93];{object V357; |
2216 |
V357= (*(LnkLI231))((V356)); |
V357= (*(LnkLI231))((V356)); |
2217 |
if(V357==Cnil)goto T963; |
if(V357==Cnil)goto T962; |
2218 |
base[9]= V357; |
base[9]= V357; |
2219 |
|
goto T961; |
2220 |
goto T962; |
goto T962; |
2221 |
goto T963; |
T962:;} |
|
T963:;} |
|
2222 |
base[9]= Ct; |
base[9]= Ct; |
2223 |
goto T962; |
goto T961; |
2224 |
T962:; |
T961:; |
2225 |
base[10]= VV[83]; |
base[10]= VV[83]; |
2226 |
base[12]= (V356); |
base[12]= (V356); |
2227 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2257 |
goto TTL; |
goto TTL; |
2258 |
TTL:; |
TTL:; |
2259 |
if(((*(LnkLI234))((V360)))==Cnil){ |
if(((*(LnkLI234))((V360)))==Cnil){ |
2260 |
goto T973;} |
goto T972;} |
2261 |
if(((VV[136]->s.s_dbind))==((V360))){ |
if(((VV[136]->s.s_dbind))==((V360))){ |
2262 |
goto T976;} |
goto T975;} |
2263 |
bds_bind(VV[136],(V360)); |
bds_bind(VV[136],(V360)); |
2264 |
base[2]= (V360); |
base[2]= (V360); |
2265 |
base[3]= VV[137]; |
base[3]= VV[137]; |
2268 |
base[6]= (V360); |
base[6]= (V360); |
2269 |
base[7]= VV[138]; |
base[7]= VV[138]; |
2270 |
if(((*(LnkLI235))((V360)))==Cnil){ |
if(((*(LnkLI235))((V360)))==Cnil){ |
2271 |
goto T986;} |
goto T985;} |
2272 |
V361= (*(LnkLI235))((V360)); |
V361= (*(LnkLI235))((V360)); |
2273 |
base[8]= make_cons(/* INLINE-ARGS */V361,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V361,Cnil); |
2274 |
goto T984; |
goto T983; |
2275 |
goto T986; |
goto T985; |
2276 |
T986:; |
T985:; |
2277 |
base[8]= Cnil; |
base[8]= Cnil; |
2278 |
goto T984; |
goto T983; |
2279 |
T984:; |
T983:; |
2280 |
base[9]= VV[139]; |
base[9]= VV[139]; |
2281 |
V364= (*(LnkLI236))((V360)); |
V364= (*(LnkLI236))((V360)); |
2282 |
{object V362; |
{object V362; |
2283 |
object V363= /* INLINE-ARGS */V364; |
object V363= /* INLINE-ARGS */V364; |
2284 |
if(V363==Cnil){ |
if(V363==Cnil){ |
2285 |
base[10]= Cnil; |
base[10]= Cnil; |
2286 |
goto T989;} |
goto T988;} |
2287 |
base[11]=V362=MMcons(Cnil,Cnil); |
base[11]=V362=MMcons(Cnil,Cnil); |
2288 |
goto T990; |
goto T989; |
2289 |
T990:; |
T989:; |
2290 |
(V362->c.c_car)= (*(LnkLI237))((V363->c.c_car)); |
(V362->c.c_car)= (*(LnkLI237))((V363->c.c_car)); |
2291 |
if((V363=MMcdr(V363))==Cnil){ |
if((V363=MMcdr(V363))==Cnil){ |
2292 |
base[10]= base[11]; |
base[10]= base[11]; |
2293 |
goto T989;} |
goto T988;} |
2294 |
V362=MMcdr(V362)=MMcons(Cnil,Cnil); |
V362=MMcdr(V362)=MMcons(Cnil,Cnil); |
2295 |
goto T990;} |
goto T989;} |
2296 |
goto T989; |
goto T988; |
2297 |
T989:; |
T988:; |
2298 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
2299 |
(void) (*Lnk238)(); |
(void) (*Lnk238)(); |
2300 |
bds_unwind1; |
bds_unwind1; |
2301 |
return; |
return; |
2302 |
goto T976; |
goto T975; |
2303 |
T976:; |
T975:; |
2304 |
base[1]= Cnil; |
base[1]= Cnil; |
2305 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2306 |
return; |
return; |
2307 |
goto T973; |
goto T972; |
2308 |
T973:; |
T972:; |
2309 |
base[1]= VV[140]; |
base[1]= VV[140]; |
2310 |
base[2]= (V360); |
base[2]= (V360); |
2311 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2322 |
goto TTL; |
goto TTL; |
2323 |
TTL:;{object V367; |
TTL:;{object V367; |
2324 |
if(type_of((V366))==t_symbol){ |
if(type_of((V366))==t_symbol){ |
2325 |
goto T996;} |
goto T995;} |
2326 |
V367= Cnil; |
V367= Cnil; |
2327 |
|
goto T994; |
2328 |
goto T995; |
goto T995; |
2329 |
goto T996; |
T995:;{object V368; |
|
T996:;{object V368; |
|
2330 |
if(((V366))==Cnil){ |
if(((V366))==Cnil){ |
2331 |
goto T1000;} |
goto T999;} |
2332 |
V368= Cnil; |
V368= Cnil; |
2333 |
goto T999; |
goto T998; |
|
goto T1000; |
|
|
T1000:; |
|
|
V368= (VV[131]->s.s_dbind); |
|
2334 |
goto T999; |
goto T999; |
2335 |
T999:; |
T999:; |
2336 |
if(V368==Cnil)goto T998; |
V368= (VV[131]->s.s_dbind); |
|
V367= V368; |
|
|
goto T995; |
|
2337 |
goto T998; |
goto T998; |
2338 |
T998:;} |
T998:; |
2339 |
|
if(V368==Cnil)goto T997; |
2340 |
|
V367= V368; |
2341 |
|
goto T994; |
2342 |
|
goto T997; |
2343 |
|
T997:;} |
2344 |
V367= (VV[130]->s.s_dbind); |
V367= (VV[130]->s.s_dbind); |
2345 |
goto T995; |
goto T994; |
2346 |
T995:; |
T994:; |
2347 |
if(V367==Cnil)goto T994; |
if(V367==Cnil)goto T993; |
2348 |
{object V369 = V367; |
{object V369 = V367; |
2349 |
VMR23(V369)} |
VMR23(V369)} |
2350 |
goto T994; |
goto T993; |
2351 |
T994:;}{object V370; |
T993:;}{object V370; |
2352 |
if(type_of((V366))==t_character){ |
if(type_of((V366))==t_character){ |
2353 |
goto T1004;} |
goto T1003;} |
2354 |
V370= Cnil; |
V370= Cnil; |
2355 |
goto T1003; |
goto T1002; |
|
goto T1004; |
|
|
T1004:; |
|
|
V370= (VV[141]->s.s_dbind); |
|
2356 |
goto T1003; |
goto T1003; |
2357 |
T1003:; |
T1003:; |
2358 |
if(V370==Cnil)goto T1002; |
V370= (VV[141]->s.s_dbind); |
2359 |
|
goto T1002; |
2360 |
|
T1002:; |
2361 |
|
if(V370==Cnil)goto T1001; |
2362 |
{object V371 = V370; |
{object V371 = V370; |
2363 |
VMR23(V371)} |
VMR23(V371)} |
2364 |
goto T1002; |
goto T1001; |
2365 |
T1002:;}{object V372; |
T1001:;}{object V372; |
2366 |
if(type_of((V366))==t_array|| |
if(type_of((V366))==t_array|| |
2367 |
type_of((V366))==t_vector|| |
type_of((V366))==t_vector|| |
2368 |
type_of((V366))==t_string|| |
type_of((V366))==t_string|| |
2369 |
type_of((V366))==t_bitvector){ |
type_of((V366))==t_bitvector){ |
2370 |
goto T1008;} |
goto T1007;} |
2371 |
V372= Cnil; |
V372= Cnil; |
2372 |
|
goto T1006; |
2373 |
goto T1007; |
goto T1007; |
2374 |
goto T1008; |
T1007:;{object V373; |
|
T1008:;{object V373; |
|
2375 |
if(type_of((V366))==t_vector|| |
if(type_of((V366))==t_vector|| |
2376 |
type_of((V366))==t_string|| |
type_of((V366))==t_string|| |
2377 |
type_of((V366))==t_bitvector){ |
type_of((V366))==t_bitvector){ |
2378 |
goto T1012;} |
goto T1011;} |
2379 |
V373= Cnil; |
V373= Cnil; |
2380 |
|
goto T1010; |
2381 |
goto T1011; |
goto T1011; |
2382 |
goto T1012; |
T1011:;{object V374; |
|
T1012:;{object V374; |
|
2383 |
if((type_of((V366))==t_bitvector)){ |
if((type_of((V366))==t_bitvector)){ |
2384 |
goto T1016;} |
goto T1015;} |
2385 |
V374= Cnil; |
V374= Cnil; |
2386 |
goto T1015; |
goto T1014; |
|
goto T1016; |
|
|
T1016:; |
|
|
V374= (VV[144]->s.s_dbind); |
|
2387 |
goto T1015; |
goto T1015; |
2388 |
T1015:; |
T1015:; |
2389 |
if(V374==Cnil)goto T1014; |
V374= (VV[144]->s.s_dbind); |
|
V373= V374; |
|
|
goto T1011; |
|
2390 |
goto T1014; |
goto T1014; |
2391 |
T1014:;}{object V375; |
T1014:; |
2392 |
|
if(V374==Cnil)goto T1013; |
2393 |
|
V373= V374; |
2394 |
|
goto T1010; |
2395 |
|
goto T1013; |
2396 |
|
T1013:;}{object V375; |
2397 |
if(type_of((V366))==t_string){ |
if(type_of((V366))==t_string){ |
2398 |
goto T1020;} |
goto T1019;} |
2399 |
V375= Cnil; |
V375= Cnil; |
2400 |
goto T1019; |
goto T1018; |
|
goto T1020; |
|
|
T1020:; |
|
|
V375= (VV[145]->s.s_dbind); |
|
2401 |
goto T1019; |
goto T1019; |
2402 |
T1019:; |
T1019:; |
2403 |
if(V375==Cnil)goto T1018; |
V375= (VV[145]->s.s_dbind); |
|
V373= V375; |
|
|
goto T1011; |
|
2404 |
goto T1018; |
goto T1018; |
2405 |
T1018:;} |
T1018:; |
2406 |
|
if(V375==Cnil)goto T1017; |
2407 |
|
V373= V375; |
2408 |
|
goto T1010; |
2409 |
|
goto T1017; |
2410 |
|
T1017:;} |
2411 |
V373= (VV[143]->s.s_dbind); |
V373= (VV[143]->s.s_dbind); |
|
goto T1011; |
|
|
T1011:; |
|
|
if(V373==Cnil)goto T1010; |
|
|
V372= V373; |
|
|
goto T1007; |
|
2412 |
goto T1010; |
goto T1010; |
2413 |
T1010:;} |
T1010:; |
2414 |
|
if(V373==Cnil)goto T1009; |
2415 |
|
V372= V373; |
2416 |
|
goto T1006; |
2417 |
|
goto T1009; |
2418 |
|
T1009:;} |
2419 |
V372= (VV[142]->s.s_dbind); |
V372= (VV[142]->s.s_dbind); |
2420 |
goto T1007; |
goto T1006; |
2421 |
T1007:; |
T1006:; |
2422 |
if(V372==Cnil)goto T1006; |
if(V372==Cnil)goto T1005; |
2423 |
{object V376 = V372; |
{object V376 = V372; |
2424 |
VMR23(V376)} |
VMR23(V376)} |
2425 |
goto T1006; |
goto T1005; |
2426 |
T1006:;}{object V377; |
T1005:;}{object V377; |
2427 |
if(!(type_of(V366)==t_cons||(V366)==Cnil)){ |
if(!(type_of(V366)==t_cons||(V366)==Cnil)){ |
2428 |
goto T1026;} |
goto T1025;} |
2429 |
goto T1024; |
goto T1023; |
2430 |
goto T1026; |
goto T1025; |
2431 |
T1026:; |
T1025:; |
2432 |
if(type_of(V366)==t_vector|| |
if(type_of(V366)==t_vector|| |
2433 |
type_of(V366)==t_string|| |
type_of(V366)==t_string|| |
2434 |
type_of(V366)==t_bitvector){ |
type_of(V366)==t_bitvector){ |
2435 |
goto T1024;} |
goto T1023;} |
2436 |
V377= Cnil; |
V377= Cnil; |
2437 |
|
goto T1022; |
2438 |
goto T1023; |
goto T1023; |
2439 |
goto T1024; |
T1023:;{object V379; |
|
T1024:;{object V379; |
|
2440 |
if(type_of((V366))==t_vector|| |
if(type_of((V366))==t_vector|| |
2441 |
type_of((V366))==t_string|| |
type_of((V366))==t_string|| |
2442 |
type_of((V366))==t_bitvector){ |
type_of((V366))==t_bitvector){ |
2443 |
goto T1030;} |
goto T1029;} |
2444 |
V379= Cnil; |
V379= Cnil; |
2445 |
|
goto T1028; |
2446 |
goto T1029; |
goto T1029; |
2447 |
goto T1030; |
T1029:;{object V380; |
|
T1030:;{object V380; |
|
2448 |
if((type_of((V366))==t_bitvector)){ |
if((type_of((V366))==t_bitvector)){ |
2449 |
goto T1034;} |
goto T1033;} |
2450 |
V380= Cnil; |
V380= Cnil; |
2451 |
goto T1033; |
goto T1032; |
|
goto T1034; |
|
|
T1034:; |
|
|
V380= (VV[144]->s.s_dbind); |
|
2452 |
goto T1033; |
goto T1033; |
2453 |
T1033:; |
T1033:; |
2454 |
if(V380==Cnil)goto T1032; |
V380= (VV[144]->s.s_dbind); |
|
V379= V380; |
|
|
goto T1029; |
|
2455 |
goto T1032; |
goto T1032; |
2456 |
T1032:;}{object V381; |
T1032:; |
2457 |
|
if(V380==Cnil)goto T1031; |
2458 |
|
V379= V380; |
2459 |
|
goto T1028; |
2460 |
|
goto T1031; |
2461 |
|
T1031:;}{object V381; |
2462 |
if(type_of((V366))==t_string){ |
if(type_of((V366))==t_string){ |
2463 |
goto T1038;} |
goto T1037;} |
2464 |
V381= Cnil; |
V381= Cnil; |
2465 |
goto T1037; |
goto T1036; |
|
goto T1038; |
|
|
T1038:; |
|
|
V381= (VV[145]->s.s_dbind); |
|
2466 |
goto T1037; |
goto T1037; |
2467 |
T1037:; |
T1037:; |
2468 |
if(V381==Cnil)goto T1036; |
V381= (VV[145]->s.s_dbind); |
|
V379= V381; |
|
|
goto T1029; |
|
2469 |
goto T1036; |
goto T1036; |
2470 |
T1036:;} |
T1036:; |
2471 |
|
if(V381==Cnil)goto T1035; |
2472 |
|
V379= V381; |
2473 |
|
goto T1028; |
2474 |
|
goto T1035; |
2475 |
|
T1035:;} |
2476 |
V379= (VV[143]->s.s_dbind); |
V379= (VV[143]->s.s_dbind); |
|
goto T1029; |
|
|
T1029:; |
|
|
if(V379==Cnil)goto T1028; |
|
|
V377= V379; |
|
|
goto T1023; |
|
2477 |
goto T1028; |
goto T1028; |
2478 |
T1028:;}{object V382; |
T1028:; |
2479 |
|
if(V379==Cnil)goto T1027; |
2480 |
|
V377= V379; |
2481 |
|
goto T1022; |
2482 |
|
goto T1027; |
2483 |
|
T1027:;}{object V382; |
2484 |
if(!(type_of(V366)==t_cons)){ |
if(!(type_of(V366)==t_cons)){ |
2485 |
goto T1044;} |
goto T1043;} |
2486 |
goto T1042; |
goto T1041; |
2487 |
goto T1044; |
goto T1043; |
2488 |
T1044:; |
T1043:; |
2489 |
if((V366)==Cnil){ |
if((V366)==Cnil){ |
2490 |
goto T1042;} |
goto T1041;} |
2491 |
V382= Cnil; |
V382= Cnil; |
2492 |
|
goto T1040; |
2493 |
goto T1041; |
goto T1041; |
2494 |
goto T1042; |
T1041:;{object V384; |
|
T1042:;{object V384; |
|
2495 |
if(((V366))==Cnil){ |
if(((V366))==Cnil){ |
2496 |
goto T1048;} |
goto T1047;} |
2497 |
V384= Cnil; |
V384= Cnil; |
2498 |
goto T1047; |
goto T1046; |
|
goto T1048; |
|
|
T1048:; |
|
|
V384= (VV[131]->s.s_dbind); |
|
2499 |
goto T1047; |
goto T1047; |
2500 |
T1047:; |
T1047:; |
2501 |
if(V384==Cnil)goto T1046; |
V384= (VV[131]->s.s_dbind); |
|
V382= V384; |
|
|
goto T1041; |
|
2502 |
goto T1046; |
goto T1046; |
2503 |
T1046:;}{object V385; |
T1046:; |
2504 |
|
if(V384==Cnil)goto T1045; |
2505 |
|
V382= V384; |
2506 |
|
goto T1040; |
2507 |
|
goto T1045; |
2508 |
|
T1045:;}{object V385; |
2509 |
if(type_of((V366))==t_cons){ |
if(type_of((V366))==t_cons){ |
2510 |
goto T1052;} |
goto T1051;} |
2511 |
V385= Cnil; |
V385= Cnil; |
2512 |
goto T1051; |
goto T1050; |
|
goto T1052; |
|
|
T1052:; |
|
|
V385= (VV[148]->s.s_dbind); |
|
2513 |
goto T1051; |
goto T1051; |
2514 |
T1051:; |
T1051:; |
2515 |
if(V385==Cnil)goto T1050; |
V385= (VV[148]->s.s_dbind); |
|
V382= V385; |
|
|
goto T1041; |
|
2516 |
goto T1050; |
goto T1050; |
2517 |
T1050:;} |
T1050:; |
2518 |
|
if(V385==Cnil)goto T1049; |
2519 |
|
V382= V385; |
2520 |
|
goto T1040; |
2521 |
|
goto T1049; |
2522 |
|
T1049:;} |
2523 |
V382= (VV[147]->s.s_dbind); |
V382= (VV[147]->s.s_dbind); |
|
goto T1041; |
|
|
T1041:; |
|
|
if(V382==Cnil)goto T1040; |
|
|
V377= V382; |
|
|
goto T1023; |
|
2524 |
goto T1040; |
goto T1040; |
2525 |
T1040:;} |
T1040:; |
2526 |
|
if(V382==Cnil)goto T1039; |
2527 |
|
V377= V382; |
2528 |
|
goto T1022; |
2529 |
|
goto T1039; |
2530 |
|
T1039:;} |
2531 |
V377= (VV[146]->s.s_dbind); |
V377= (VV[146]->s.s_dbind); |
2532 |
goto T1023; |
goto T1022; |
2533 |
T1023:; |
T1022:; |
2534 |
if(V377==Cnil)goto T1022; |
if(V377==Cnil)goto T1021; |
2535 |
{object V386 = V377; |
{object V386 = V377; |
2536 |
VMR23(V386)} |
VMR23(V386)} |
2537 |
goto T1022; |
goto T1021; |
2538 |
T1022:;}{object V387; |
T1021:;}{object V387; |
2539 |
if(type_of((V366))==t_fixnum|| |
if(type_of((V366))==t_fixnum|| |
2540 |
type_of((V366))==t_bignum|| |
type_of((V366))==t_bignum|| |
2541 |
type_of((V366))==t_ratio|| |
type_of((V366))==t_ratio|| |
2542 |
type_of((V366))==t_shortfloat|| |
type_of((V366))==t_shortfloat|| |
2543 |
type_of((V366))==t_longfloat|| |
type_of((V366))==t_longfloat|| |
2544 |
type_of((V366))==t_complex){ |
type_of((V366))==t_complex){ |
2545 |
goto T1056;} |
goto T1055;} |
2546 |
V387= Cnil; |
V387= Cnil; |
2547 |
|
goto T1054; |
2548 |
goto T1055; |
goto T1055; |
2549 |
goto T1056; |
T1055:;{object V388; |
|
T1056:;{object V388; |
|
2550 |
base[0]= (V366); |
base[0]= (V366); |
2551 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2552 |
(void) (*Lnk239)(); |
(void) (*Lnk239)(); |
2553 |
vs_top=sup; |
vs_top=sup; |
2554 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2555 |
goto T1060;} |
goto T1059;} |
2556 |
V388= Cnil; |
V388= Cnil; |
2557 |
|
goto T1058; |
2558 |
goto T1059; |
goto T1059; |
2559 |
goto T1060; |
T1059:;{object V389; |
|
T1060:;{object V389; |
|
2560 |
if(type_of((V366))==t_ratio){ |
if(type_of((V366))==t_ratio){ |
2561 |
goto T1065;} |
goto T1064;} |
2562 |
V389= Cnil; |
V389= Cnil; |
2563 |
goto T1064; |
goto T1063; |
|
goto T1065; |
|
|
T1065:; |
|
|
V389= (VV[151]->s.s_dbind); |
|
2564 |
goto T1064; |
goto T1064; |
2565 |
T1064:; |
T1064:; |
2566 |
if(V389==Cnil)goto T1063; |
V389= (VV[151]->s.s_dbind); |
|
V388= V389; |
|
|
goto T1059; |
|
2567 |
goto T1063; |
goto T1063; |
2568 |
T1063:;}{object V390; |
T1063:; |
2569 |
|
if(V389==Cnil)goto T1062; |
2570 |
|
V388= V389; |
2571 |
|
goto T1058; |
2572 |
|
goto T1062; |
2573 |
|
T1062:;}{object V390; |
2574 |
if(type_of((V366))==t_fixnum||type_of((V366))==t_bignum){ |
if(type_of((V366))==t_fixnum||type_of((V366))==t_bignum){ |
2575 |
goto T1069;} |
goto T1068;} |
2576 |
V390= Cnil; |
V390= Cnil; |
2577 |
goto T1068; |
goto T1067; |
|
goto T1069; |
|
|
T1069:; |
|
|
V390= (VV[152]->s.s_dbind); |
|
2578 |
goto T1068; |
goto T1068; |
2579 |
T1068:; |
T1068:; |
2580 |
if(V390==Cnil)goto T1067; |
V390= (VV[152]->s.s_dbind); |
|
V388= V390; |
|
|
goto T1059; |
|
2581 |
goto T1067; |
goto T1067; |
2582 |
T1067:;} |
T1067:; |
2583 |
|
if(V390==Cnil)goto T1066; |
2584 |
|
V388= V390; |
2585 |
|
goto T1058; |
2586 |
|
goto T1066; |
2587 |
|
T1066:;} |
2588 |
V388= (VV[150]->s.s_dbind); |
V388= (VV[150]->s.s_dbind); |
|
goto T1059; |
|
|
T1059:; |
|
|
if(V388==Cnil)goto T1058; |
|
|
V387= V388; |
|
|
goto T1055; |
|
2589 |
goto T1058; |
goto T1058; |
2590 |
T1058:;}{object V391; |
T1058:; |
2591 |
|
if(V388==Cnil)goto T1057; |
2592 |
|
V387= V388; |
2593 |
|
goto T1054; |
2594 |
|
goto T1057; |
2595 |
|
T1057:;}{object V391; |
2596 |
if(type_of((V366))==t_shortfloat||type_of((V366))==t_longfloat){ |
if(type_of((V366))==t_shortfloat||type_of((V366))==t_longfloat){ |
2597 |
goto T1073;} |
goto T1072;} |
2598 |
V391= Cnil; |
V391= Cnil; |
2599 |
goto T1072; |
goto T1071; |
|
goto T1073; |
|
|
T1073:; |
|
|
V391= (VV[153]->s.s_dbind); |
|
2600 |
goto T1072; |
goto T1072; |
2601 |
T1072:; |
T1072:; |
2602 |
if(V391==Cnil)goto T1071; |
V391= (VV[153]->s.s_dbind); |
|
V387= V391; |
|
|
goto T1055; |
|
2603 |
goto T1071; |
goto T1071; |
2604 |
T1071:;}{object V392; |
T1071:; |
2605 |
|
if(V391==Cnil)goto T1070; |
2606 |
|
V387= V391; |
2607 |
|
goto T1054; |
2608 |
|
goto T1070; |
2609 |
|
T1070:;}{object V392; |
2610 |
base[0]= (V366); |
base[0]= (V366); |
2611 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2612 |
Lcomplexp(); |
Lcomplexp(); |
2613 |
vs_top=sup; |
vs_top=sup; |
2614 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2615 |
goto T1077;} |
goto T1076;} |
2616 |
V392= Cnil; |
V392= Cnil; |
2617 |
goto T1076; |
goto T1075; |
|
goto T1077; |
|
|
T1077:; |
|
|
V392= (VV[154]->s.s_dbind); |
|
2618 |
goto T1076; |
goto T1076; |
2619 |
T1076:; |
T1076:; |
2620 |
if(V392==Cnil)goto T1075; |
V392= (VV[154]->s.s_dbind); |
|
V387= V392; |
|
|
goto T1055; |
|
2621 |
goto T1075; |
goto T1075; |
2622 |
T1075:;} |
T1075:; |
2623 |
|
if(V392==Cnil)goto T1074; |
2624 |
|
V387= V392; |
2625 |
|
goto T1054; |
2626 |
|
goto T1074; |
2627 |
|
T1074:;} |
2628 |
V387= (VV[149]->s.s_dbind); |
V387= (VV[149]->s.s_dbind); |
2629 |
goto T1055; |
goto T1054; |
2630 |
T1055:; |
T1054:; |
2631 |
if(V387==Cnil)goto T1054; |
if(V387==Cnil)goto T1053; |
2632 |
{object V393 = V387; |
{object V393 = V387; |
2633 |
VMR23(V393)} |
VMR23(V393)} |
2634 |
goto T1054; |
goto T1053; |
2635 |
T1054:;} |
T1053:;} |
2636 |
{object V394 = (VV[38]->s.s_dbind); |
{object V394 = (VV[38]->s.s_dbind); |
2637 |
VMR23(V394)} |
VMR23(V394)} |
2638 |
base[0]=base[0]; |
base[0]=base[0]; |
2678 |
vs_top=sup; |
vs_top=sup; |
2679 |
V409= vs_base[0]; |
V409= vs_base[0]; |
2680 |
if(!(((VV[155]->s.s_dbind))==(VV[156]))){ |
if(!(((VV[155]->s.s_dbind))==(VV[156]))){ |
2681 |
goto T1084;} |
goto T1083;} |
2682 |
base[2]= (V409); |
base[2]= (V409); |
2683 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2684 |
(void) (*Lnk240)(Lclptr240); |
(void) (*Lnk240)(Lclptr240); |
2685 |
vs_top=sup; |
vs_top=sup; |
2686 |
V410= vs_base[0]; |
V410= vs_base[0]; |
2687 |
goto T1082; |
goto T1081; |
2688 |
goto T1084; |
goto T1083; |
2689 |
T1084:; |
T1083:; |
2690 |
if(type_of(V409)==t_structure){ |
if(type_of(V409)==t_structure){ |
2691 |
goto T1091;} |
goto T1090;} |
2692 |
goto T1089; |
goto T1088; |
2693 |
goto T1091; |
goto T1090; |
2694 |
T1091:; |
T1090:; |
2695 |
if(!(((V409)->str.str_def)==(VV[157]))){ |
if(!(((V409)->str.str_def)==(VV[157]))){ |
2696 |
goto T1089;} |
goto T1088;} |
2697 |
V411= STREF(object,(V409),4); |
V411= STREF(object,(V409),4); |
2698 |
goto T1087; |
goto T1086; |
2699 |
goto T1089; |
goto T1088; |
2700 |
T1089:;{object V413; |
T1088:;{object V413; |
2701 |
V413= (VV[45]->s.s_dbind); |
V413= (VV[45]->s.s_dbind); |
2702 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2703 |
base[3]= (V409); |
base[3]= (V409); |
2706 |
vs_top=sup; |
vs_top=sup; |
2707 |
V414= vs_base[0]; |
V414= vs_base[0]; |
2708 |
if(!((V413)==(CMPcar(V414)))){ |
if(!((V413)==(CMPcar(V414)))){ |
2709 |
goto T1094;}} |
goto T1093;}} |
2710 |
V411= CMPcar(((V409))->cc.cc_turbo[12]); |
V411= CMPcar(((V409))->cc.cc_turbo[12]); |
2711 |
goto T1087; |
goto T1086; |
2712 |
goto T1094; |
goto T1093; |
2713 |
T1094:; |
T1093:; |
2714 |
base[2]= VV[46]; |
base[2]= VV[46]; |
2715 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2716 |
Lerror(); |
Lerror(); |
2717 |
vs_top=sup; |
vs_top=sup; |
2718 |
V411= vs_base[0]; |
V411= vs_base[0]; |
2719 |
goto T1087; |
goto T1086; |
2720 |
T1087:; |
T1086:; |
2721 |
V410= (V411)->v.v_self[fix((VV[117]->s.s_dbind))]; |
V410= (V411)->v.v_self[fix((VV[117]->s.s_dbind))]; |
2722 |
goto T1082; |
goto T1081; |
2723 |
T1082:; |
T1081:; |
2724 |
if(((V410))!=Cnil){ |
if(((V410))!=Cnil){ |
2725 |
goto T1100;} |
goto T1099;} |
2726 |
if(((V407))==((VV[158]->s.s_dbind))){ |
if(((V407))==((VV[158]->s.s_dbind))){ |
2727 |
goto T1103;} |
goto T1102;} |
2728 |
{object V415; |
{object V415; |
2729 |
object V416; |
object V416; |
2730 |
object V417; |
object V417; |
2741 |
base[5]= (V409); |
base[5]= (V409); |
2742 |
base[6]= (V417); |
base[6]= (V417); |
2743 |
(void)simple_symlispcall(VV[214],base+5,2);} |
(void)simple_symlispcall(VV[214],base+5,2);} |
2744 |
goto T1103; |
goto T1102; |
2745 |
T1103:; |
T1102:; |
2746 |
{object V420; |
{object V420; |
2747 |
object V421; |
object V421; |
2748 |
object V422; |
object V422; |
2759 |
base[5]= (V409); |
base[5]= (V409); |
2760 |
base[6]= (V422); |
base[6]= (V422); |
2761 |
(void)simple_symlispcall(VV[214],base+5,2);} |
(void)simple_symlispcall(VV[214],base+5,2);} |
2762 |
goto T1100; |
goto T1099; |
2763 |
T1100:; |
T1099:; |
2764 |
{object V425 = (V409); |
{object V425 = (V409); |
2765 |
VMR26(V425)}} |
VMR26(V425)}} |
2766 |
base[0]=base[0]; |
base[0]=base[0]; |
2980 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2981 |
return;} |
return;} |
2982 |
base[1]=V442=MMcons(Cnil,Cnil); |
base[1]=V442=MMcons(Cnil,Cnil); |
2983 |
goto T1155; |
goto T1154; |
2984 |
T1155:; |
T1154:; |
2985 |
base[3]= (V443->c.c_car); |
base[3]= (V443->c.c_car); |
2986 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2987 |
(void) (*Lnk25)(); |
(void) (*Lnk25)(); |
2991 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2992 |
return;} |
return;} |
2993 |
V442=MMcdr(V442)=MMcons(Cnil,Cnil); |
V442=MMcdr(V442)=MMcons(Cnil,Cnil); |
2994 |
goto T1155;} |
goto T1154;} |
2995 |
} |
} |
2996 |
} |
} |
2997 |
/* local function SET-SLOT */ |
/* local function SET-SLOT */ |
3064 |
static void LnkT232(){ call_or_link(VV[232],(void **)(void *)&Lnk232);} /* STRUCTURE-SLOTD-INIT-FORM */ |
static void LnkT232(){ call_or_link(VV[232],(void **)(void *)&Lnk232);} /* STRUCTURE-SLOTD-INIT-FORM */ |
3065 |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */ |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */ |
3066 |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */ |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */ |
3067 |
static void LnkT229(){ call_or_link(VV[229],(void **)(void *)&Lnk229);} /* STRUCTURE-SLOTD-READER-FUNCTION */ |
static object LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */ |
3068 |
static object LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
static object LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
3069 |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */ |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */ |
3070 |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |