/[gcl]/gcl/lsp/sloop.c
ViewVC logotype

Diff of /gcl/lsp/sloop.c

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

revision 1.10 by camm, Sun Feb 9 22:35:15 2003 UTC revision 1.11 by camm, Wed Feb 26 22:21:37 2003 UTC
# Line 100  static object LI2(V17,V18) Line 100  static object LI2(V17,V18)
100    
101  register object V17;register object V18;  register object V17;register object V18;
102  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
103  goto TTL;          goto TTL;
104  TTL:;  TTL:;
105          if(!(type_of((V17))==t_symbol)){          if(!(type_of((V17))==t_symbol)){
106          goto T36;}          goto T36;}
# Line 346  static object LI13(V47,V48) Line 346  static object LI13(V47,V48)
346    
347  object V47;register object V48;  object V47;register object V48;
348  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
349  goto TTL;          goto TTL;
350  TTL:;  TTL:;
351          if(type_of((V47))==t_symbol){          if(type_of((V47))==t_symbol){
352          goto T55;}          goto T55;}
# Line 386  static object LI14(V56) Line 386  static object LI14(V56)
386    
387  object V56;  object V56;
388  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
389  goto TTL;          goto TTL;
390  TTL:;{object V57;  TTL:;{object V57;
391          base[0]= (V56);          base[0]= (V56);
392          base[1]= VV[31];          base[1]= VV[31];
# Line 412  static object LI15(V61) Line 412  static object LI15(V61)
412    
413  object V61;  object V61;
414  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
415  goto TTL;          goto TTL;
416  TTL:;  TTL:;
417          {object V62;          {object V62;
418          if(type_of((V61))==t_symbol){          if(type_of((V61))==t_symbol){
# Line 450  T84:; Line 450  T84:;
450  static object LI16()  static object LI16()
451    
452  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
453  goto TTL;          goto TTL;
454  TTL:;  TTL:;
455          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
456          goto T87;}          goto T87;}
# Line 472  T87:; Line 472  T87:;
472  static object LI17()  static object LI17()
473    
474  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
475  goto TTL;          goto TTL;
476  TTL:;  TTL:;
477          {object V69= symbol_value(VV[35]);          {object V69= symbol_value(VV[35]);
478          if((V69!= VV[36]))goto T95;          if((V69!= VV[36]))goto T95;
# Line 503  T96:; Line 503  T96:;
503  static object LI18()  static object LI18()
504    
505  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
506  goto TTL;          goto TTL;
507  TTL:;  TTL:;
508          {object V74 = car(symbol_value(VV[34]));          {object V74 = car(symbol_value(VV[34]));
509          VMR18(V74)}          VMR18(V74)}
# Line 515  static object LI19(V76) Line 515  static object LI19(V76)
515    
516  register object V76;  register object V76;
517  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
518  goto TTL;          goto TTL;
519  TTL:;  TTL:;
520          {register object V77;          {register object V77;
521          V77= car((V76));          V77= car((V76));
# Line 552  static object LI20(V83) Line 552  static object LI20(V83)
552  object V83;  object V83;
553  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
554          bds_check;          bds_check;
555  goto TTL;          goto TTL;
556  TTL:;  TTL:;
557          {register object V84;          {register object V84;
558          V84= Cnil;          V84= Cnil;
# Line 726  T173:; Line 726  T173:;
726  static object LI21()  static object LI21()
727    
728  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
729  goto TTL;          goto TTL;
730  TTL:;  TTL:;
731          {object V103;          {object V103;
732          V104= (*(LnkLI254))();          V104= (*(LnkLI254))();
# Line 821  static object LI22(V117) Line 821  static object LI22(V117)
821    
822  object V117;  object V117;
823  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
824  goto TTL;          goto TTL;
825  TTL:;  TTL:;
826          {register object V118;          {register object V118;
827          register object V119;          register object V119;
# Line 1010  T317:; Line 1010  T317:;
1010  static object LI24()  static object LI24()
1011    
1012  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1013  goto TTL;          goto TTL;
1014  TTL:;  TTL:;
1015          {register object V140;          {register object V140;
1016          V140= Cnil;          V140= Cnil;
# Line 1055  static object LI25(V145) Line 1055  static object LI25(V145)
1055    
1056  object V145;  object V145;
1057  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1058  goto TTL;          goto TTL;
1059  TTL:;  TTL:;
1060          {object V146;          {object V146;
1061          V146= (*(LnkLI13))((V145));          V146= (*(LnkLI13))((V145));
# Line 1161  T386:; Line 1161  T386:;
1161  static object LI26()  static object LI26()
1162    
1163  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1164  goto TTL;          goto TTL;
1165  TTL:;  TTL:;
1166          {register object V157;          {register object V157;
1167          register object V158;          register object V158;
# Line 1283  T446:; Line 1283  T446:;
1283  static object LI27()  static object LI27()
1284    
1285  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1286  goto TTL;          goto TTL;
1287  TTL:;  TTL:;
1288          {object V166;          {object V166;
1289          object V167;          object V167;
# Line 1333  static object LI28(V180) Line 1333  static object LI28(V180)
1333    
1334  object V180;  object V180;
1335  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1336  goto TTL;          goto TTL;
1337  TTL:;{object V181;  TTL:;{object V181;
1338          {register object x= (V180),V183= symbol_value(VV[52]);          {register object x= (V180),V183= symbol_value(VV[52]);
1339          while(!endp(V183))          while(!endp(V183))
# Line 1370  T466:;} Line 1370  T466:;}
1370  static object LI29()  static object LI29()
1371    
1372  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1373  goto TTL;          goto TTL;
1374  TTL:;  TTL:;
1375          {register object V189;          {register object V189;
1376          register object V190;          register object V190;
# Line 1538  static object LI30(V219,V220,V221) Line 1538  static object LI30(V219,V220,V221)
1538  object V219;object V220;object V221;  object V219;object V220;object V221;
1539  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1540          bds_check;          bds_check;
1541  goto TTL;          goto TTL;
1542  TTL:;  TTL:;
1543          {register object V222;          {register object V222;
1544          V222= Cnil;          V222= Cnil;
# Line 1600  static object LI31(V232,V233) Line 1600  static object LI31(V232,V233)
1600    
1601  object V232;register object V233;  object V232;register object V233;
1602  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1603  goto TTL;          goto TTL;
1604  TTL:;  TTL:;
1605          if(symbol_value(VV[47])==Cnil){          if(symbol_value(VV[47])==Cnil){
1606          goto T582;}          goto T582;}
# Line 1659  T599:; Line 1659  T599:;
1659  static object LI32()  static object LI32()
1660    
1661  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1662  goto TTL;          goto TTL;
1663  TTL:;  TTL:;
1664          base[0]= VV[124];          base[0]= VV[124];
1665          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1676  static object LI33(V240,V241) Line 1676  static object LI33(V240,V241)
1676    
1677  register object V240;object V241;  register object V240;object V241;
1678  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1679  goto TTL;          goto TTL;
1680  TTL:;  TTL:;
1681          {register object V242;          {register object V242;
1682          V242= Cnil;          V242= Cnil;
# Line 2338  static object LI39() Line 2338  static object LI39()
2338    
2339  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
2340          bds_check;          bds_check;
2341  goto TTL;          goto TTL;
2342  TTL:;  TTL:;
2343          {register object V324;          {register object V324;
2344          register object V325;          register object V325;
# Line 2827  static object LI41(V388,V389) Line 2827  static object LI41(V388,V389)
2827    
2828  object V388;object V389;  object V388;object V389;
2829  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2830  goto TTL;          goto TTL;
2831  TTL:;  TTL:;
2832          if(symbol_value(VV[53])==Cnil){          if(symbol_value(VV[53])==Cnil){
2833          goto T1079;}          goto T1079;}
# Line 2932  static object LI42(V405) Line 2932  static object LI42(V405)
2932    
2933  register object V405;  register object V405;
2934  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2935  goto TTL;          goto TTL;
2936  TTL:;  TTL:;
2937          if((symbol_value(VV[53]))==Cnil){          if((symbol_value(VV[53]))==Cnil){
2938          goto T1128;}          goto T1128;}
# Line 3104  static object LI44(V436,V437) Line 3104  static object LI44(V436,V437)
3104    
3105  object V436;object V437;  object V436;object V437;
3106  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
3107  goto TTL;          goto TTL;
3108  TTL:;  TTL:;
3109          V438= list(3,VV[195],(V436),small_fixnum(0));          V438= list(3,VV[195],(V436),small_fixnum(0));
3110          {object V439 = list(4,VV[97],/* INLINE-ARGS */V438,VV[56],list(3,VV[195],(V436),list(3,VV[144],(V436),(V437))));          {object V439 = list(4,VV[97],/* INLINE-ARGS */V438,VV[56],list(3,VV[195],(V436),list(3,VV[144],(V436),(V437))));
# Line 3117  static object LI45(V442,V443) Line 3117  static object LI45(V442,V443)
3117    
3118  register object V442;object V443;  register object V442;object V443;
3119  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
3120  goto TTL;          goto TTL;
3121  TTL:;  TTL:;
3122          V444= list(3,VV[15],(V442),small_fixnum(0));          V444= list(3,VV[15],(V442),small_fixnum(0));
3123          V445= list(3,VV[15],(V442),list(3,VV[196],(V442),(V443)));          V445= list(3,VV[15],(V442),list(3,VV[196],(V442),(V443)));
# Line 3131  static object LI46(V449,V450) Line 3131  static object LI46(V449,V450)
3131    
3132  register object V449;object V450;  register object V449;object V450;
3133  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
3134  goto TTL;          goto TTL;
3135  TTL:;  TTL:;
3136          V451= list(3,VV[195],(V449),Cnil);          V451= list(3,VV[195],(V449),Cnil);
3137          V452= list(3,VV[15],(V449),list(3,VV[198],(V449),(V450)));          V452= list(3,VV[15],(V449),list(3,VV[198],(V449),(V450)));
# Line 3145  static object LI47(V456,V457) Line 3145  static object LI47(V456,V457)
3145    
3146  register object V456;object V457;  register object V456;object V457;
3147  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
3148  goto TTL;          goto TTL;
3149  TTL:;  TTL:;
3150          V458= list(3,VV[195],(V456),Cnil);          V458= list(3,VV[195],(V456),Cnil);
3151          V459= list(3,VV[15],(V456),list(3,VV[199],(V456),(V457)));          V459= list(3,VV[15],(V456),list(3,VV[199],(V456),(V457)));
# Line 3159  static object LI48(V463,V464) Line 3159  static object LI48(V463,V464)
3159    
3160  object V463;object V464;  object V463;object V464;
3161  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
3162  goto TTL;          goto TTL;
3163  TTL:;  TTL:;
3164          V465= list(3,VV[195],(V463),small_fixnum(0));          V465= list(3,VV[195],(V463),small_fixnum(0));
3165          {object V466 = list(4,VV[97],/* INLINE-ARGS */V465,VV[56],list(3,VV[5],(V464),list(3,VV[15],(V463),list(2,VV[200],(V463)))));          {object V466 = list(4,VV[97],/* INLINE-ARGS */V465,VV[56],list(3,VV[5],(V464),list(3,VV[15],(V463),list(2,VV[200],(V463)))));
# Line 3172  static object LI49(V469,V470) Line 3172  static object LI49(V469,V470)
3172    
3173  object V469;object V470;  object V469;object V470;
3174  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
3175  goto TTL;          goto TTL;
3176  TTL:;  TTL:;
3177          {object V471 = list(2,VV[56],list(3,VV[197],(V470),list(2,VV[59],(V470))));          {object V471 = list(2,VV[56],list(3,VV[197],(V470),list(2,VV[59],(V470))));
3178          VMR49(V471)}          VMR49(V471)}
# Line 3184  static object LI50(V474,V475) Line 3184  static object LI50(V474,V475)
3184    
3185  object V474;object V475;  object V474;object V475;
3186  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
3187  goto TTL;          goto TTL;
3188  TTL:;  TTL:;
3189          V476= list(3,VV[195],(V474),Ct);          V476= list(3,VV[195],(V474),Ct);
3190          {object V477 = list(4,VV[97],/* INLINE-ARGS */V476,VV[56],list(3,VV[5],list(2,VV[140],(V475)),VV[201]));          {object V477 = list(4,VV[97],/* INLINE-ARGS */V476,VV[56],list(3,VV[5],list(2,VV[140],(V475)),VV[201]));
# Line 3197  static object LI51(V480,V481) Line 3197  static object LI51(V480,V481)
3197    
3198  object V480;object V481;  object V480;object V481;
3199  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
3200  goto TTL;          goto TTL;
3201  TTL:;  TTL:;
3202          V482= list(3,VV[195],(V480),Ct);          V482= list(3,VV[195],(V480),Ct);
3203          {object V483 = list(4,VV[97],/* INLINE-ARGS */V482,VV[56],list(3,VV[5],(V481),VV[202]));          {object V483 = list(4,VV[97],/* INLINE-ARGS */V482,VV[56],list(3,VV[5],(V481),VV[202]));
# Line 3210  static object LI52(V485) Line 3210  static object LI52(V485)
3210    
3211  object V485;  object V485;
3212  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
3213  goto TTL;          goto TTL;
3214  TTL:;  TTL:;
3215          base[0]= VV[91];          base[0]= VV[91];
3216          base[1]= VV[203];          base[1]= VV[203];
# Line 3242  static object LI53(V488) Line 3242  static object LI53(V488)
3242    
3243  object V488;  object V488;
3244  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3245  goto TTL;          goto TTL;
3246  TTL:;  TTL:;
3247          {object V489;          {object V489;
3248          vs_base=vs_top;          vs_base=vs_top;
# Line 3260  static object LI54(V492) Line 3260  static object LI54(V492)
3260    
3261  register object V492;  register object V492;
3262  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3263  goto TTL;          goto TTL;
3264  TTL:;  TTL:;
3265          if(!(type_of((V492))==t_cons)){          if(!(type_of((V492))==t_cons)){
3266          goto T1196;}          goto T1196;}
# Line 3283  static object LI55(V497,V498) Line 3283  static object LI55(V497,V498)
3283    
3284  object V497;object V498;  object V497;object V498;
3285  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3286  goto TTL;          goto TTL;
3287  TTL:;  TTL:;
3288          {object V499 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V497),VV[215])),(V498));          {object V499 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V497),VV[215])),(V498));
3289          VMR55(V499)}          VMR55(V499)}
# Line 3295  static object LI56(V502,V503) Line 3295  static object LI56(V502,V503)
3295    
3296  object V502;object V503;  object V502;object V503;
3297  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3298  goto TTL;          goto TTL;
3299  TTL:;  TTL:;
3300          {object V504 = list(3,VV[216],list(2,(V502),list(2,VV[217],(V503))),VV[181]);          {object V504 = list(3,VV[216],list(2,(V502),list(2,VV[217],(V503))),VV[181]);
3301          VMR56(V504)}          VMR56(V504)}
# Line 3406  static object LI58(V527,V528) Line 3406  static object LI58(V527,V528)
3406    
3407  register object V527;object V528;  register object V527;object V528;
3408  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3409  goto TTL;          goto TTL;
3410  TTL:;  TTL:;
3411          {object V529;          {object V529;
3412          V530= (*(LnkLI254))();          V530= (*(LnkLI254))();
# Line 3430  static object LI59(V535) Line 3430  static object LI59(V535)
3430  VOL object V535;  VOL object V535;
3431  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
3432          bds_check;          bds_check;
3433  goto TTL;          goto TTL;
3434  TTL:;  TTL:;
3435          {object V536;          {object V536;
3436          V536= (*(LnkLI13))(car((V535)));          V536= (*(LnkLI13))(car((V535)));
# Line 3779  static object LI60(V621,V622) Line 3779  static object LI60(V621,V622)
3779    
3780  object V621;object V622;  object V621;object V622;
3781  {        VMB60 VMS60 VMV60  {        VMB60 VMS60 VMV60
3782  goto TTL;          goto TTL;
3783  TTL:;  TTL:;
3784          {register object V623;          {register object V623;
3785          base[0]= VV[228];          base[0]= VV[228];
# Line 3814  static object LI61(V629,V630,V631,V632) Line 3814  static object LI61(V629,V630,V631,V632)
3814    
3815  object V629;object V630;object V631;object V632;  object V629;object V630;object V631;object V632;
3816  {        VMB61 VMS61 VMV61  {        VMB61 VMS61 VMV61
3817  goto TTL;          goto TTL;
3818  TTL:;{object V633;  TTL:;{object V633;
3819          V633= (*(LnkLI10))((V631),VV[223]);          V633= (*(LnkLI10))((V631),VV[223]);
3820          if(V633==Cnil)goto T1557;          if(V633==Cnil)goto T1557;
# Line 3839  static object LI62(V640,V641,V642,V643) Line 3839  static object LI62(V640,V641,V642,V643)
3839    
3840  register object V640;object V641;object V642;object V643;  register object V640;object V641;object V642;object V643;
3841  {        VMB62 VMS62 VMV62  {        VMB62 VMS62 VMV62
3842  goto TTL;          goto TTL;
3843  TTL:;{object V644;  TTL:;{object V644;
3844          V644= (*(LnkLI10))((V642),VV[223]);          V644= (*(LnkLI10))((V642),VV[223]);
3845          if(V644==Cnil)goto T1561;          if(V644==Cnil)goto T1561;
# Line 3940  static object LI64(V658,V659) Line 3940  static object LI64(V658,V659)
3940    
3941  object V658;object V659;  object V658;object V659;
3942  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
3943  goto TTL;          goto TTL;
3944  TTL:;  TTL:;
3945          V660= list(3,VV[236],(V659),(V658));          V660= list(3,VV[236],(V659),(V658));
3946          V661= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V659),VV[240])));          V661= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V659),VV[240])));
# Line 3954  static object LI65(V665,V666) Line 3954  static object LI65(V665,V666)
3954    
3955  register object V665;object V666;  register object V665;object V666;
3956  {        VMB65 VMS65 VMV65  {        VMB65 VMS65 VMV65
3957  goto TTL;          goto TTL;
3958  TTL:;  TTL:;
3959          {register object V667;          {register object V667;
3960          vs_base=vs_top;          vs_base=vs_top;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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