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

Diff of /gcl/lsp/module.c

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

revision 1.9 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.10 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 41  static object LI2(object V4,object first Line 41  static object LI2(object V4,object first
41          else {          else {
42          V6= first;}          V6= first;}
43          --narg; goto T7;          --narg; goto T7;
44  goto T6;          goto T6;
45  T6:;  T6:;
46          base[0]= coerce_to_string((V5));          base[0]= coerce_to_string((V5));
47          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
48          Lstring_downcase();          Lstring_downcase();
49          vs_top=sup;          vs_top=sup;
50          V6= vs_base[0];          V6= vs_base[0];
51  goto T7;          goto T7;
52  T7:;  T7:;
53          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
54          base[1]= coerce_to_string((V5));          base[1]= coerce_to_string((V5));
# Line 69  T7:; Line 69  T7:;
69          {object V7 = vs_base[0];          {object V7 = vs_base[0];
70          bds_unwind1;          bds_unwind1;
71          VMR2(V7)}          VMR2(V7)}
72  goto T18;          goto T18;
73  T18:;  T18:;
74          {register object V8;          {register object V8;
75          V8= (V6);          V8= (V6);
76  goto T22;          goto T22;
77  T22:;  T22:;
78          if(!(endp_prop((V8)))){          if(!(endp_prop((V8)))){
79          goto T23;}          goto T23;}
80          {object V9 = Cnil;          {object V9 = Cnil;
81          bds_unwind1;          bds_unwind1;
82          VMR2(V9)}          VMR2(V9)}
83  goto T23;          goto T23;
84  T23:;  T23:;
85          base[1]= car((V8));          base[1]= car((V8));
86          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 88  T23:; Line 88  T23:;
88          vs_top=sup;          vs_top=sup;
89          V8= cdr((V8));          V8= cdr((V8));
90          goto T22;}          goto T22;}
91  goto T11;          goto T11;
92  T11:;  T11:;
93          {object V10 = Cnil;          {object V10 = Cnil;
94          bds_unwind1;          bds_unwind1;
# Line 109  TTL:; Line 109  TTL:;
109          if((V15!= VV[15]))goto T32;          if((V15!= VV[15]))goto T32;
110          {object V16 = get((V13),VV[4],Cnil);          {object V16 = get((V13),VV[4],Cnil);
111          VMR3(V16)}          VMR3(V16)}
112  goto T32;          goto T32;
113  T32:;  T32:;
114          if((V15!= VV[16]))goto T33;          if((V15!= VV[16]))goto T33;
115          {object V17 = get((V13),VV[5],Cnil);          {object V17 = get((V13),VV[5],Cnil);
116          VMR3(V17)}          VMR3(V17)}
117  goto T33;          goto T33;
118  T33:;  T33:;
119          if((V15!= VV[17]))goto T34;          if((V15!= VV[17]))goto T34;
120          {object V18 = get((V13),VV[6],Cnil);          {object V18 = get((V13),VV[6],Cnil);
121          VMR3(V18)}          VMR3(V18)}
122  goto T34;          goto T34;
123  T34:;  T34:;
124          if((V15!= VV[18]))goto T35;          if((V15!= VV[18]))goto T35;
125          {object V19 = get((V13),VV[7],Cnil);          {object V19 = get((V13),VV[7],Cnil);
126          VMR3(V19)}          VMR3(V19)}
127  goto T35;          goto T35;
128  T35:;  T35:;
129          if((V15!= VV[19]))goto T36;          if((V15!= VV[19]))goto T36;
130          {object V20 = get((V13),VV[8],Cnil);          {object V20 = get((V13),VV[8],Cnil);
131          VMR3(V20)}          VMR3(V20)}
132  goto T36;          goto T36;
133  T36:;  T36:;
134          base[0]= (V13);          base[0]= (V13);
135          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 149  T36:; Line 149  T36:;
149          V21= vs_base[0];          V21= vs_base[0];
150          {object V22 = get(V21,VV[10],Cnil);          {object V22 = get(V21,VV[10],Cnil);
151          VMR3(V22)}          VMR3(V22)}
152  goto T38;          goto T38;
153  T38:;  T38:;
154          base[0]= VV[11];          base[0]= VV[11];
155          base[1]= (V14);          base[1]= (V14);
# Line 173  TTL:; Line 173  TTL:;
173          goto T47;}          goto T47;}
174          if(!(endp_prop(cdr((V25))))){          if(!(endp_prop(cdr((V25))))){
175          goto T48;}          goto T48;}
176  goto T47;          goto T47;
177  T47:;  T47:;
178          {object V26 = Cnil;          {object V26 = Cnil;
179          VMR4(V26)}          VMR4(V26)}
180  goto T48;          goto T48;
181  T48:;  T48:;
182          {register object V27;          {register object V27;
183          base[0]= car((V25));          base[0]= car((V25));
# Line 189  T48:; Line 189  T48:;
189          goto T55;}          goto T55;}
190          {object V28 = (V27);          {object V28 = (V27);
191          VMR4(V28)}          VMR4(V28)}
192  goto T55;          goto T55;
193  T55:;  T55:;
194          if(!(type_of((V27))==t_cons)){          if(!(type_of((V27))==t_cons)){
195          goto T58;}          goto T58;}
# Line 197  T55:; Line 197  T55:;
197          goto T58;}          goto T58;}
198          V25= cdr((V25));          V25= cdr((V25));
199          goto TTL;          goto TTL;
200  goto T58;          goto T58;
201  T58:;  T58:;
202          {object V29 = Cnil;          {object V29 = Cnil;
203          VMR4(V29)}}          VMR4(V29)}}

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

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