/[gcl]/gcl/pcl/pcl_braid.c
ViewVC logotype

Diff of /gcl/pcl/pcl_braid.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.4.1.4.1 by camm, Tue Sep 2 20:18:18 2003 UTC revision 1.1.4.1.4.2 by camm, Tue Sep 23 18:39:20 2003 UTC
# Line 2209  TTL:; Line 2209  TTL:;
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;
# Line 2261  static void L38() Line 2257  static void L38()
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];
# Line 2272  TTL:; Line 2268  TTL:;
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;
# Line 2326  register object V366; Line 2322  register object V366;
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];
# Line 2682  TTL:; Line 2678  TTL:;
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);
# Line 2710  T1089:;{object V413; Line 2706  T1089:;{object V413;
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;
# Line 2745  T1082:; Line 2741  T1082:;
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;
# Line 2763  T1103:; Line 2759  T1103:;
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];
# Line 2984  TTL:; Line 2980  TTL:;
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)();
# Line 2995  T1155:; Line 2991  T1155:;
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 */
# Line 3068  static object  LnkTLI233(object first,.. Line 3064  static object  LnkTLI233(object first,..
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 */

Legend:
Removed from v.1.1.4.1.4.1  
changed lines
  Added in v.1.1.4.1.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26