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

Diff of /gcl/cmpnew/cmpspecial.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 10  register object V2; Line 10  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11  goto TTL;  goto TTL;
12  TTL:;  TTL:;
13          if(!(endp((V2)))){          if(!(endp_prop((V2)))){
14          goto T1;}          goto T1;}
15          (void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[0],small_fixnum(1),small_fixnum(0)));
16  goto T1;  goto T1;
17  T1:;  T1:;
18          if(endp(cdr((V2)))){          if(endp_prop(cdr((V2)))){
19          goto T4;}          goto T4;}
20          V3 = make_fixnum((long)length((V2)));          V3 = make_fixnum((long)length((V2)));
21          (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));          (void)((*(LnkLI46))(VV[0],small_fixnum(1),V3));
# Line 33  register object V6; Line 33  register object V6;
33  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
34  goto TTL;  goto TTL;
35  TTL:;  TTL:;
36          if(!(endp((V6)))){          if(!(endp_prop((V6)))){
37          goto T7;}          goto T7;}
38          (void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[1],small_fixnum(1),small_fixnum(0)));
39  goto T7;  goto T7;
# Line 44  T7:; Line 44  T7:;
44          V8= car((V7));          V8= car((V7));
45  goto T13;  goto T13;
46  T13:;  T13:;
47          if(!(endp((V7)))){          if(!(endp_prop((V7)))){
48          goto T14;}          goto T14;}
49          {object V9 = (*(LnkLI48))();          {object V9 = (*(LnkLI48))();
50          VMR2(V9)}          VMR2(V9)}
# Line 97  TTL:; Line 97  TTL:;
97          V18= Cnil;          V18= Cnil;
98          V19= Cnil;          V19= Cnil;
99          V20= Cnil;          V20= Cnil;
100          if(endp((V17))){          if(endp_prop((V17))){
101          goto T30;}          goto T30;}
102          if(!(endp(cdr((V17))))){          if(!(endp_prop(cdr((V17))))){
103          goto T29;}          goto T29;}
104  goto T30;  goto T30;
105  T30:;  T30:;
# Line 107  T30:; Line 107  T30:;
107          (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));          (void)((*(LnkLI45))(VV[5],small_fixnum(2),V21));
108  goto T29;  goto T29;
109  T29:;  T29:;
110          if(endp(cddr((V17)))){          if(endp_prop(cddr((V17)))){
111          goto T34;}          goto T34;}
112          V22 = make_fixnum((long)length((V17)));          V22 = make_fixnum((long)length((V17)));
113          (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));          (void)((*(LnkLI46))(VV[5],small_fixnum(2),V22));
# Line 146  TTL:; Line 146  TTL:;
146          register object V30;          register object V30;
147          V29= Cnil;          V29= Cnil;
148          V30= Cnil;          V30= Cnil;
149          if(!(endp((V28)))){          if(!(endp_prop((V28)))){
150          goto T50;}          goto T50;}
151          (void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[8],small_fixnum(1),small_fixnum(0)));
152  goto T50;  goto T50;
# Line 157  T50:; Line 157  T50:;
157          V32= car((V31));          V32= car((V31));
158  goto T57;  goto T57;
159  T57:;  T57:;
160          if(!(endp((V31)))){          if(!(endp_prop((V31)))){
161          goto T58;}          goto T58;}
162          goto T53;          goto T53;
163  goto T58;  goto T58;
# Line 166  T58:; Line 166  T58:;
166          goto T64;}          goto T64;}
167          if(!(type_of(car((V32)))==t_symbol)){          if(!(type_of(car((V32)))==t_symbol)){
168          goto T67;}          goto T67;}
169          if(endp(cdr((V32)))){          if(endp_prop(cdr((V32)))){
170          goto T66;}          goto T66;}
171          if(endp(cddr((V32)))){          if(endp_prop(cddr((V32)))){
172          goto T66;}          goto T66;}
173  goto T67;  goto T67;
174  T67:;  T67:;
# Line 176  T67:; Line 176  T67:;
176  goto T66;  goto T66;
177  T66:;  T66:;
178          V29= make_cons(car((V32)),(V29));          V29= make_cons(car((V32)),(V29));
179          if(!(endp(cdr((V32))))){          if(!(endp_prop(cdr((V32))))){
180          goto T78;}          goto T78;}
181          V33= Cnil;          V33= Cnil;
182          goto T76;          goto T76;
# Line 278  goto TTL; Line 278  goto TTL;
278  TTL:;  TTL:;
279          {object V43;          {object V43;
280          V43= Cnil;          V43= Cnil;
281          if(!(endp((V42)))){          if(!(endp_prop((V42)))){
282          goto T104;}          goto T104;}
283          (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0)));
284  goto T104;  goto T104;
285  T104:;  T104:;
286          if(endp(cdr((V42)))){          if(endp_prop(cdr((V42)))){
287          goto T107;}          goto T107;}
288          V44 = make_fixnum((long)length((V42)));          V44 = make_fixnum((long)length((V42)));
289          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));          (void)((*(LnkLI46))(VV[11],small_fixnum(1),V44));
# Line 313  T112:; Line 313  T112:;
313          goto T123;}          goto T123;}
314          if(!((car((V45)))==(VV[17]))){          if(!((car((V45)))==(VV[17]))){
315          goto T123;}          goto T123;}
316          if(!(endp(cdr((V45))))){          if(!(endp_prop(cdr((V45))))){
317          goto T127;}          goto T127;}
318          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V45))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V45))));
319  goto T127;  goto T127;

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