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

Diff of /gcl/lsp/loop.c

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

revision 1.7 by camm, Mon Aug 5 20:36:08 2002 UTC revision 1.8 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 900  T215:; Line 900  T215:;
900          V103= car((V102));          V103= car((V102));
901  goto T225;  goto T225;
902  T225:;  T225:;
903          if(!(endp((V102)))){          if(!(endp_prop((V102)))){
904          goto T226;}          goto T226;}
905          goto T221;          goto T221;
906  goto T226;  goto T226;
# Line 1618  T513:; Line 1618  T513:;
1618          V180= car((V179));          V180= car((V179));
1619  goto T524;  goto T524;
1620  T524:;  T524:;
1621          if(!(endp((V179)))){          if(!(endp_prop((V179)))){
1622          goto T525;}          goto T525;}
1623          base[4]= make_fixnum(V173);          base[4]= make_fixnum(V173);
1624          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2080  T673:; Line 2080  T673:;
2080          V216= car((V215));          V216= car((V215));
2081  goto T693;  goto T693;
2082  T693:;  T693:;
2083          if(!(endp((V215)))){          if(!(endp_prop((V215)))){
2084          goto T694;}          goto T694;}
2085          goto T689;          goto T689;
2086  goto T694;  goto T694;
# Line 2099  T694:; Line 2099  T694:;
2099          V222= car((V221));          V222= car((V221));
2100  goto T707;  goto T707;
2101  T707:;  T707:;
2102          if(!(endp((V221)))){          if(!(endp_prop((V221)))){
2103          goto T708;}          goto T708;}
2104          goto T703;          goto T703;
2105  goto T708;  goto T708;
# Line 4933  T1682:; Line 4933  T1682:;
4933  goto T1714;  goto T1714;
4934  T1714:;  T1714:;
4935          (V460->c.c_car)= symbol_name((V461->c.c_car));          (V460->c.c_car)= symbol_name((V461->c.c_car));
4936          if(endp(V461=MMcdr(V461))){          V461=MMcdr(V461);
4937            if(endp(V461)){
4938          base[10]= base[11];          base[10]= base[11];
4939          goto T1713;}          goto T1713;}
4940          V460=MMcdr(V460)=MMcons(Cnil,Cnil);          V460=MMcdr(V460)=MMcons(Cnil,Cnil);
# Line 4962  T1725:; Line 4963  T1725:;
4963          (V462->c.c_car)= make_cons((V463->c.c_car),Cnil);          (V462->c.c_car)= make_cons((V463->c.c_car),Cnil);
4964  goto T1723;  goto T1723;
4965  T1723:;  T1723:;
4966          if(endp(V463=MMcdr(V463))){          V463=MMcdr(V463);
4967            if(endp(V463)){
4968          base[16]= base[17];          base[16]= base[17];
4969          goto T1721;}          goto T1721;}
4970          V462=MMcdr(V462)=MMcons(Cnil,Cnil);          V462=MMcdr(V462)=MMcons(Cnil,Cnil);
# Line 4981  T1721:; Line 4983  T1721:;
4983          V466= car((V465));          V466= car((V465));
4984  goto T1733;  goto T1733;
4985  T1733:;  T1733:;
4986          if(!(endp((V465)))){          if(!(endp_prop((V465)))){
4987          goto T1734;}          goto T1734;}
4988          goto T1729;          goto T1729;
4989  goto T1734;  goto T1734;
# Line 5336  T1877:; Line 5338  T1877:;
5338          Lcopy_list();          Lcopy_list();
5339          vs_top=sup;          vs_top=sup;
5340          (V501->c.c_cdr)= vs_base[0];          (V501->c.c_cdr)= vs_base[0];
5341          while(!endp(MMcdr(V501)))V501=MMcdr(V501);          {object cdr_V501=MMcdr(V501);while(!endp(cdr_V501)) {cdr_V501=MMcdr(cdr_V501);V501=MMcdr(V501);}}
5342          if(endp(V502=MMcdr(V502))){          V502=MMcdr(V502);
5343            if(endp(V502)){
5344          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
5345          V499= base[4];          V499= base[4];
5346          goto T1876;}          goto T1876;}
# Line 5353  T1876:; Line 5356  T1876:;
5356  goto T1882;  goto T1882;
5357  T1882:;  T1882:;
5358          (V506->c.c_car)= car((V507->c.c_car));          (V506->c.c_car)= car((V507->c.c_car));
5359          if(endp(V507=MMcdr(V507))){          V507=MMcdr(V507);
5360            if(endp(V507)){
5361          V500= base[4];          V500= base[4];
5362          goto T1881;}          goto T1881;}
5363          V506=MMcdr(V506)=MMcons(Cnil,Cnil);          V506=MMcdr(V506)=MMcons(Cnil,Cnil);
# Line 5380  T1886:; Line 5384  T1886:;
5384          V509= car((V508));          V509= car((V508));
5385  goto T1896;  goto T1896;
5386  T1896:;  T1896:;
5387          if(!(endp((V508)))){          if(!(endp_prop((V508)))){
5388          goto T1897;}          goto T1897;}
5389          goto T1892;          goto T1892;
5390  goto T1897;  goto T1897;
# Line 7018  TTL:; Line 7022  TTL:;
7022          V648= car((V647));          V648= car((V647));
7023  goto T2557;  goto T2557;
7024  T2557:;  T2557:;
7025          if(!(endp((V647)))){          if(!(endp_prop((V647)))){
7026          goto T2558;}          goto T2558;}
7027          base[2]= make_fixnum(V646);          base[2]= make_fixnum(V646);
7028          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 7135  TTL:; Line 7139  TTL:;
7139          V666= car((V665));          V666= car((V665));
7140  goto T2592;  goto T2592;
7141  T2592:;  T2592:;
7142          if(!(endp((V665)))){          if(!(endp_prop((V665)))){
7143          goto T2593;}          goto T2593;}
7144          goto T2588;          goto T2588;
7145  goto T2593;  goto T2593;
# Line 7281  T2642:; Line 7285  T2642:;
7285          (V675->c.c_cdr)= make_cons((V677),Cnil);}          (V675->c.c_cdr)= make_cons((V677),Cnil);}
7286  goto T2639;  goto T2639;
7287  T2639:;  T2639:;
7288          while(!endp(MMcdr(V675)))V675=MMcdr(V675);          {object cdr_V675=MMcdr(V675);while(!endp(cdr_V675)) {cdr_V675=MMcdr(cdr_V675);V675=MMcdr(V675);}}
7289          if(endp(V676=MMcdr(V676))){          V676=MMcdr(V676);
7290            if(endp(V676)){
7291          base[3]=base[3]->c.c_cdr;          base[3]=base[3]->c.c_cdr;
7292          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7293          return;}          return;}
# Line 7437  T2693:; Line 7442  T2693:;
7442          V698= car((V697));          V698= car((V697));
7443  goto T2703;  goto T2703;
7444  T2703:;  T2703:;
7445          if(!(endp((V697)))){          if(!(endp_prop((V697)))){
7446          goto T2704;}          goto T2704;}
7447          goto T2699;          goto T2699;
7448  goto T2704;  goto T2704;

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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