/[gcl]/gcl/cmpnew/cmpcatch.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpcatch.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 15  TTL:; Line 15  TTL:;
15          V3= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));          V3= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));
16          V4= Cnil;          V4= Cnil;
17          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));
18          if(!(endp((V2)))){          if(!(endp_prop((V2)))){
19          goto T5;}          goto T5;}
20          (void)((*(LnkLI24))(VV[2],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI24))(VV[2],small_fixnum(1),small_fixnum(0)));
21  goto T5;  goto T5;
# Line 90  TTL:; Line 90  TTL:;
90          V17= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));          V17= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct));
91          V18= Cnil;          V18= Cnil;
92          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));
93          if(!(endp((V16)))){          if(!(endp_prop((V16)))){
94          goto T35;}          goto T35;}
95          (void)((*(LnkLI24))(VV[11],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI24))(VV[11],small_fixnum(1),small_fixnum(0)));
96  goto T35;  goto T35;
# Line 191  TTL:; Line 191  TTL:;
191          object V33;          object V33;
192          V32= (VFUN_NARGS=0,(*(LnkLI23))());          V32= (VFUN_NARGS=0,(*(LnkLI23))());
193          V33= Cnil;          V33= Cnil;
194          if(endp((V31))){          if(endp_prop((V31))){
195          goto T100;}          goto T100;}
196          if(!(endp(cdr((V31))))){          if(!(endp_prop(cdr((V31))))){
197          goto T99;}          goto T99;}
198  goto T100;  goto T100;
199  T100:;  T100:;
# Line 201  T100:; Line 201  T100:;
201          (void)((*(LnkLI24))(VV[21],small_fixnum(2),V34));          (void)((*(LnkLI24))(VV[21],small_fixnum(2),V34));
202  goto T99;  goto T99;
203  T99:;  T99:;
204          if(endp(cddr((V31)))){          if(endp_prop(cddr((V31)))){
205          goto T104;}          goto T104;}
206          V35 = make_fixnum((long)length((V31)));          V35 = make_fixnum((long)length((V31)));
207          (void)((*(LnkLI34))(VV[21],small_fixnum(2),V35));          (void)((*(LnkLI34))(VV[21],small_fixnum(2),V35));

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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