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

Diff of /gcl/cmpnew/cmplet.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 32  TTL:; Line 32  TTL:;
32          V11= Cnil;          V11= Cnil;
33          V12= Cnil;          V12= Cnil;
34          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],symbol_value(VV[1]));
35          if(!(endp((V2)))){          if(!(endp_prop((V2)))){
36          goto T11;}          goto T11;}
37          (void)((*(LnkLI40))(VV[2],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI40))(VV[2],small_fixnum(1),small_fixnum(0)));
38  goto T11;  goto T11;
# Line 73  T11:; Line 73  T11:;
73          V14= car((V13));          V14= car((V13));
74  goto T23;  goto T23;
75  T23:;  T23:;
76          if(!(endp((V13)))){          if(!(endp_prop((V13)))){
77          goto T24;}          goto T24;}
78          goto T19;          goto T19;
79  goto T24;  goto T24;
# Line 92  goto T30; Line 92  goto T30;
92  T30:;  T30:;
93          if(!(type_of((V14))==t_cons)){          if(!(type_of((V14))==t_cons)){
94          goto T39;}          goto T39;}
95          if(endp(cdr((V14)))){          if(endp_prop(cdr((V14)))){
96          goto T38;}          goto T38;}
97          if(endp(cddr((V14)))){          if(endp_prop(cddr((V14)))){
98          goto T38;}          goto T38;}
99  goto T39;  goto T39;
100  T39:;  T39:;
# Line 105  T38:; Line 105  T38:;
105          V18= (*(LnkLI43))(car((V14)),(V8),(V9),(V10));          V18= (*(LnkLI43))(car((V14)),(V8),(V9),(V10));
106          V7= make_cons(car((V14)),(V7));          V7= make_cons(car((V14)),(V7));
107          V6= make_cons((V18),(V6));          V6= make_cons((V18),(V6));
108          if(!(endp(cdr((V14))))){          if(!(endp_prop(cdr((V14))))){
109          goto T53;}          goto T53;}
110          V20= structure_ref((V18),VV[3],5);          V20= structure_ref((V18),VV[3],5);
111          V19= (*(LnkLI44))(/* INLINE-ARGS */V20);          V19= (*(LnkLI44))(/* INLINE-ARGS */V20);
# Line 131  T19:; Line 131  T19:;
131          V24= car((V23));          V24= car((V23));
132  goto T64;  goto T64;
133  T64:;  T64:;
134          if(!(endp((V23)))){          if(!(endp_prop((V23)))){
135          goto T65;}          goto T65;}
136          goto T60;          goto T60;
137  goto T65;  goto T65;
# Line 153  T60:; Line 153  T60:;
153          V27= car((V26));          V27= car((V26));
154  goto T85;  goto T85;
155  T85:;  T85:;
156          if(!(endp((V26)))){          if(!(endp_prop((V26)))){
157          goto T86;}          goto T86;}
158          goto T81;          goto T81;
159  goto T86;  goto T86;
# Line 206  TTL:; Line 206  TTL:;
206          V41= Cnil;          V41= Cnil;
207  goto T104;  goto T104;
208  T104:;  T104:;
209          if(!(endp((V39)))){          if(!(endp_prop((V39)))){
210          goto T105;}          goto T105;}
211          goto T102;          goto T102;
212  goto T105;  goto T105;
# Line 411  T102:; Line 411  T102:;
411          V79= car((V78));          V79= car((V78));
412  goto T191;  goto T191;
413  T191:;  T191:;
414          if(!(endp((V78)))){          if(!(endp_prop((V78)))){
415          goto T192;}          goto T192;}
416          goto T187;          goto T187;
417  goto T192;  goto T192;
# Line 431  T187:; Line 431  T187:;
431          V82= car((V81));          V82= car((V81));
432  goto T207;  goto T207;
433  T207:;  T207:;
434          if(!(endp((V81)))){          if(!(endp_prop((V81)))){
435          goto T208;}          goto T208;}
436          goto T203;          goto T203;
437  goto T208;  goto T208;
# Line 504  TTL:; Line 504  TTL:;
504          V95= Cnil;          V95= Cnil;
505          V96= (VFUN_NARGS=0,(*(LnkLI39))());          V96= (VFUN_NARGS=0,(*(LnkLI39))());
506          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],symbol_value(VV[1]));
507          if(!(endp((V86)))){          if(!(endp_prop((V86)))){
508          goto T237;}          goto T237;}
509          (void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0)));
510  goto T237;  goto T237;
# Line 545  T237:; Line 545  T237:;
545          V98= car((V97));          V98= car((V97));
546  goto T249;  goto T249;
547  T249:;  T249:;
548          if(!(endp((V97)))){          if(!(endp_prop((V97)))){
549          goto T250;}          goto T250;}
550          goto T245;          goto T245;
551  goto T250;  goto T250;
# Line 565  goto T256; Line 565  goto T256;
565  T256:;  T256:;
566          if(!(type_of((V98))==t_cons)){          if(!(type_of((V98))==t_cons)){
567          goto T266;}          goto T266;}
568          if(endp(cdr((V98)))){          if(endp_prop(cdr((V98)))){
569          goto T267;}          goto T267;}
570          if(endp(cddr((V98)))){          if(endp_prop(cddr((V98)))){
571          goto T267;}          goto T267;}
572  goto T266;  goto T266;
573  T266:;  T266:;
# Line 578  T267:; Line 578  T267:;
578          {register object V102;          {register object V102;
579          V102= (*(LnkLI43))(car((V98)),(V91),(V92),(V93));          V102= (*(LnkLI43))(car((V98)),(V91),(V92),(V93));
580          V89= make_cons(car((V98)),(V89));          V89= make_cons(car((V98)),(V89));
581          if(!(endp(cdr((V98))))){          if(!(endp_prop(cdr((V98))))){
582          goto T280;}          goto T280;}
583          V104= structure_ref((V102),VV[3],5);          V104= structure_ref((V102),VV[3],5);
584          V103= (*(LnkLI44))(/* INLINE-ARGS */V104);          V103= (*(LnkLI44))(/* INLINE-ARGS */V104);
# Line 611  T245:; Line 611  T245:;
611          V109= car((V108));          V109= car((V108));
612  goto T299;  goto T299;
613  T299:;  T299:;
614          if(!(endp((V108)))){          if(!(endp_prop((V108)))){
615          goto T300;}          goto T300;}
616          goto T295;          goto T295;
617  goto T300;  goto T300;
# Line 658  TTL:; Line 658  TTL:;
658          V120= (V116);          V120= (V116);
659  goto T316;  goto T316;
660  T316:;  T316:;
661          if(!(endp((V119)))){          if(!(endp_prop((V119)))){
662          goto T317;}          goto T317;}
663          goto T314;          goto T314;
664  goto T317;  goto T317;
# Line 963  T416:; Line 963  T416:;
963          V179= car((V178));          V179= car((V178));
964  goto T421;  goto T421;
965  T421:;  T421:;
966          if(!(endp((V178)))){          if(!(endp_prop((V178)))){
967          goto T422;}          goto T422;}
968          {object V180 = Ct;          {object V180 = Ct;
969          VMR6(V180)}          VMR6(V180)}
# Line 1004  TTL:; Line 1004  TTL:;
1004          V188= car((V187));          V188= car((V187));
1005  goto T438;  goto T438;
1006  T438:;  T438:;
1007          if(!(endp((V187)))){          if(!(endp_prop((V187)))){
1008          goto T439;}          goto T439;}
1009          goto T434;          goto T434;
1010  goto T439;  goto T439;
# Line 1076  TTL:; Line 1076  TTL:;
1076          V199= car((V198));          V199= car((V198));
1077  goto T467;  goto T467;
1078  T467:;  T467:;
1079          if(!(endp((V198)))){          if(!(endp_prop((V198)))){
1080          goto T468;}          goto T468;}
1081          goto T463;          goto T463;
1082  goto T468;  goto T468;

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