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

Diff of /gcl/cmpnew/gcl_cmplet.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:27 2003 UTC
# Line 22  TTL:; Line 22  TTL:;
22          object V11;          object V11;
23          object V12;          object V12;
24          V3= (VFUN_NARGS=0,(*(LnkLI39))());          V3= (VFUN_NARGS=0,(*(LnkLI39))());
25          V4= symbol_value(VV[0]);          V4= (VV[0]->s.s_dbind);
26          V5= Cnil;          V5= Cnil;
27          V6= Cnil;          V6= Cnil;
28          V7= Cnil;          V7= Cnil;
# Line 31  TTL:; Line 31  TTL:;
31          V10= Cnil;          V10= Cnil;
32          V11= Cnil;          V11= Cnil;
33          V12= Cnil;          V12= Cnil;
34          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],(VV[1]->s.s_dbind));
35          if(!(endp_prop((V2)))){          if(!(((V2))==Cnil)){
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;
39  T11:;  T11:;
40          base[2]= cdr((V2));          base[2]= CMPcdr((V2));
41          base[3]= Cnil;          base[3]= Cnil;
42          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
43          (void) (*Lnk41)();          (void) (*Lnk41)();
# Line 69  T11:; Line 69  T11:;
69          (void)((*(LnkLI42))((V8)));          (void)((*(LnkLI42))((V8)));
70          {register object V13;          {register object V13;
71          register object V14;          register object V14;
72          V13= car((V2));          V13= CMPcar((V2));
73          V14= car((V13));          V14= CMPcar((V13));
74          goto T23;          goto T23;
75  T23:;  T23:;
76          if(!(endp_prop((V13)))){          if(!(((V13))==Cnil)){
77          goto T24;}          goto T24;}
78          goto T19;          goto T19;
79          goto T24;          goto T24;
# Line 85  T24:; Line 85  T24:;
85          V7= make_cons(V14,(V7));          V7= make_cons(V14,(V7));
86          V6= make_cons(V15,(V6));          V6= make_cons(V15,(V6));
87          {object V18;          {object V18;
88          V19= structure_ref((V15),VV[3],5);          V18= (*(LnkLI44))(STREF(object,(V15),20));
         V18= (*(LnkLI44))(/* INLINE-ARGS */V19);  
89          V5= make_cons((V18),(V5));          V5= make_cons((V18),(V5));
90          goto T28;}}          goto T28;}}
91          goto T30;          goto T30;
92  T30:;  T30:;
93          if(!(type_of((V14))==t_cons)){          if(!(type_of((V14))==t_cons)){
94          goto T40;}          goto T40;}
95          if(endp_prop(cdr((V14)))){          if((CMPcdr((V14)))==Cnil){
96          goto T39;}          goto T39;}
97          if(endp_prop(cddr((V14)))){          if((CMPcddr((V14)))==Cnil){
98          goto T39;}          goto T39;}
99          goto T40;          goto T40;
100  T40:;  T40:;
101          (void)((VFUN_NARGS=2,(*(LnkLI45))(VV[4],(V14))));          (void)((VFUN_NARGS=2,(*(LnkLI45))(VV[4],(V14))));
102          goto T39;          goto T39;
103  T39:;  T39:;
104            {object V19;
105            V19= (*(LnkLI43))(CMPcar((V14)),(V8),(V9),(V10));
106          {object V20;          {object V20;
107          V20= (*(LnkLI43))(car((V14)),(V8),(V9),(V10));          V20= CMPcar((V14));
108          {object V21;          V7= make_cons((V20),(V7));}
109          V21= car((V14));          V6= make_cons(V19,(V6));
110          V7= make_cons((V21),(V7));}          {object V22;
111          V6= make_cons(V20,(V6));          if(!((CMPcdr((V14)))==Cnil)){
         {object V23;  
         if(!(endp_prop(cdr((V14))))){  
112          goto T54;}          goto T54;}
113          V24= structure_ref((V20),VV[3],5);          V22= (*(LnkLI44))(STREF(object,(V19),20));
         V23= (*(LnkLI44))(/* INLINE-ARGS */V24);  
114          goto T52;          goto T52;
115          goto T54;          goto T54;
116  T54:;  T54:;
117          V25= structure_ref((V20),VV[3],5);          V23= (*(LnkLI47))(CMPcadr((V14)),(V3));
118          V26= (*(LnkLI47))(cadr((V14)),(V3));          V22= (*(LnkLI46))(STREF(object,(V19),20),/* INLINE-ARGS */V23,CMPcadr((V14)));
         V23= (*(LnkLI46))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26,cadr((V14)));  
119          goto T52;          goto T52;
120  T52:;  T52:;
121          V5= make_cons((V23),(V5));}}          V5= make_cons((V22),(V5));}}
122          goto T28;          goto T28;
123  T28:;  T28:;
124          V13= cdr((V13));          V13= CMPcdr((V13));
125          V14= car((V13));          V14= CMPcar((V13));
126          goto T23;}          goto T23;}
127          goto T19;          goto T19;
128  T19:;  T19:;
129          {register object V27;          {register object V24;
130          object V28;          object V25;
131          V27= reverse((V6));          V24= reverse((V6));
132          V28= car((V27));          V25= CMPcar((V24));
133          goto T66;          goto T66;
134  T66:;  T66:;
135          if(!(endp_prop((V27)))){          if(!(((V24))==Cnil)){
136          goto T67;}          goto T67;}
137          goto T62;          goto T62;
138          goto T67;          goto T67;
139  T67:;  T67:;
140          (VV[1]->s.s_dbind)= make_cons(V28,(VV[1]->s.s_dbind));          (VV[1]->s.s_dbind)= make_cons(V25,(VV[1]->s.s_dbind));
141          V27= cdr((V27));          V24= CMPcdr((V24));
142          V28= car((V27));          V25= CMPcar((V24));
143          goto T66;}          goto T66;}
144          goto T62;          goto T62;
145  T62:;  T62:;
146          (void)((*(LnkLI48))((V7),(V10),(V9)));          (void)((*(LnkLI48))((V7),(V10),(V9)));
147          V11= (*(LnkLI49))((V12),(V11));          V11= (*(LnkLI49))((V12),(V11));
148          (void)((*(LnkLI50))((V3),cadr((V11))));          (void)((*(LnkLI50))((V3),CMPcadr((V11))));
149          V30= structure_ref(cadr((V11)),VV[5],2);          V27= Ct;
150          (void)(structure_set((V3),VV[5],2,/* INLINE-ARGS */V30));          STSET(object,(V3),8, STREF(object,CMPcadr((V11)),8));
151          {register object V31;          (void)(STREF(object,CMPcadr((V11)),8));
152          object V32;          {register object V28;
153          V31= (V6);          object V29;
154          V32= car((V31));          V28= (V6);
155            V29= CMPcar((V28));
156          goto T87;          goto T87;
157  T87:;  T87:;
158          if(!(endp_prop((V31)))){          if(!(((V28))==Cnil)){
159          goto T88;}          goto T88;}
160          goto T83;          goto T83;
161          goto T88;          goto T88;
162  T88:;  T88:;
163          (void)((*(LnkLI51))((V32)));          (void)((*(LnkLI51))((V29)));
164          V31= cdr((V31));          V28= CMPcdr((V28));
165          V32= car((V31));          V29= CMPcar((V28));
166          goto T87;}          goto T87;}
167          goto T83;          goto T83;
168  T83:;  T83:;
169          if(!(eql((V4),symbol_value(VV[0])))){          if(!(eql((V4),(VV[0]->s.s_dbind)))){
170          goto T99;}          goto T99;}
171          goto T98;          goto T98;
172          goto T99;          goto T99;
173  T99:;  T99:;
174          (void)(structure_set((V3),VV[5],4,Ct));          V30= Ct;
175            STSET(object,(V3),16, Ct);
176            (void)(Ct);
177          goto T98;          goto T98;
178  T98:;  T98:;
179          V33= reverse((V6));          V31= reverse((V6));
180          {object V34 = list(5,VV[2],(V3),/* INLINE-ARGS */V33,reverse((V5)),(V11));          {object V32 = list(5,VV[2],(V3),/* INLINE-ARGS */V31,reverse((V5)),(V11));
181          bds_unwind1;          bds_unwind1;
182          VMR1(V34)}}          VMR1(V32)}}
183          base[0]=base[0];          base[0]=base[0];
184          return Cnil;          return Cnil;
185  }  }
186  /*      local entry for function C2LET  */  /*      local entry for function C2LET  */
187    
188  static object LI2(V38,V39,V40)  static object LI2(V36,V37,V38)
189    
190  object V38;object V39;object V40;  object V36;object V37;object V38;
191  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
192          bds_check;          bds_check;
193          goto TTL;          goto TTL;
194  TTL:;  TTL:;
195          {object V41;          {object V39;
196          register object V42;          register object V40;
197          register object V43;          register object V41;
198            V39= Cnil;
199            V40= Cnil;
200          V41= Cnil;          V41= Cnil;
201          V42= Cnil;          bds_bind(VV[6],(VV[6]->s.s_dbind));
202          V43= Cnil;          bds_bind(VV[7],(VV[7]->s.s_dbind));
203          bds_bind(VV[6],symbol_value(VV[6]));          bds_bind(VV[8],(VV[8]->s.s_dbind));
204          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[9],(VV[9]->s.s_dbind));
205          bds_bind(VV[8],symbol_value(VV[8]));          {object V42;
206          bds_bind(VV[9],symbol_value(VV[9]));          object V43;
207          {object V44;          object V44;
208          object V45;          V42= (V36);
209          object V46;          V43= (V37);
210          V44= (V38);          V44= Cnil;
         V45= (V39);  
         V46= Cnil;  
211          goto T106;          goto T106;
212  T106:;  T106:;
213          if(!(endp_prop((V44)))){          if(!(((V42))==Cnil)){
214          goto T107;}          goto T107;}
215          goto T104;          goto T104;
216          goto T107;          goto T107;
217  T107:;  T107:;
218          {register object V47;          {register object V45;
219          register object V48;          register object V46;
220          object V49;          object V47;
221          V47= car((V45));          V45= CMPcar((V43));
222          V48= car((V44));          V46= CMPcar((V42));
223          V49= (*(LnkLI52))((V48));          V47= (*(LnkLI52))((V46));
224          if(((V49))==Cnil){          if(((V47))==Cnil){
225          goto T117;}          goto T117;}
226          (void)(structure_set((V48),VV[3],1,(V49)));          V48= Ct;
227          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          STSET(object,(V46),4, (V47));
228          (void)(structure_set((V48),VV[3],4,symbol_value(VV[10])));          (void)((V47));
229            (VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1));
230            V49= Ct;
231            STSET(object,(V46),16, (VV[10]->s.s_dbind));
232            (void)((VV[10]->s.s_dbind));
233          goto T115;          goto T115;
234          goto T117;          goto T117;
235  T117:;  T117:;
236          V50= structure_ref((V48),VV[3],1);          if(!((STREF(object,(V46),4))==(VV[11]))){
237          if(!((/* INLINE-ARGS */V50)==(VV[11]))){          goto T122;}{object V50;
238          goto T122;}{object V51;          base[7]= STREF(object,(V46),16);
         base[7]= structure_ref((V48),VV[3],4);  
239          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
240          (void) (*Lnk53)();          (void) (*Lnk53)();
241          vs_top=sup;          vs_top=sup;
242          V51= vs_base[0];          V50= vs_base[0];
243          if(V51==Cnil)goto T124;          if(V50==Cnil)goto T124;
244          goto T115;          goto T115;
245          goto T124;          goto T124;
246  T124:;}  T124:;}
# Line 245  T124:;} Line 248  T124:;}
248          goto T115;          goto T115;
249          goto T122;          goto T122;
250  T122:;  T122:;
251          V52= (*(LnkLI55))();          V51= (*(LnkLI55))();
252          (void)(structure_set((V48),VV[3],2,/* INLINE-ARGS */V52));          V52= Ct;
253            STSET(object,(V46),8, /* INLINE-ARGS */V51);
254            (void)(/* INLINE-ARGS */V51);
255          goto T115;          goto T115;
256  T115:;  T115:;
257          V54= structure_ref((V48),VV[3],1);          {object V53= STREF(object,(V46),4);
         {object V53= /* INLINE-ARGS */V54;  
258          if((V53!= VV[56])          if((V53!= VV[56])
259          && (V53!= VV[57])          && (V53!= VV[57])
260          && (V53!= VV[58])          && (V53!= VV[58])
261          && (V53!= VV[59])          && (V53!= VV[59])
262          && (V53!= VV[60]))goto T128;          && (V53!= VV[60]))goto T128;
263          {object V55;          {object V54;
264          V55= list(3,VV[12],list(3,VV[3],(V48),Cnil),(V47));          V54= list(3,VV[12],list(3,VV[3],(V46),Cnil),(V45));
265          V43= make_cons((V55),(V43));          V41= make_cons((V54),(V41));
266          goto T127;}          goto T127;}
267          goto T128;          goto T128;
268  T128:;  T128:;
269          {object V56= car((V47));          {object V55= CMPcar((V45));
270          if((V56!= VV[61]))goto T131;          if((V55!= VV[61]))goto T131;
271          if(((*(LnkLI62))((V48),(V40)))==Cnil){          if(((*(LnkLI62))((V46),(V38)))==Cnil){
272          goto T133;}          goto T133;}
273          (void)(structure_set((V48),VV[3],1,VV[13]));          V56= Ct;
274          (void)(structure_set((V48),VV[3],4,caddr((V47))));          STSET(object,(V46),4, VV[13]);
275            (void)(VV[13]);
276            V57= CMPcaddr((V45));
277            V58= Ct;
278            STSET(object,(V46),16, /* INLINE-ARGS */V57);
279            (void)(/* INLINE-ARGS */V57);
280          goto T127;          goto T127;
281          goto T133;          goto T133;
282  T133:;  T133:;
283          {object V57;          {object V59;
284          V57= list(2,(V48),caddr((V47)));          V59= list(2,(V46),CMPcaddr((V45)));
285          V42= make_cons((V57),(V42));          V40= make_cons((V59),(V40));
286          goto T127;}          goto T127;}
287          goto T131;          goto T131;
288  T131:;  T131:;
289          if((V56!= VV[3]))goto T138;          if((V55!= VV[3]))goto T138;
290          {register object V58;          {register object V60;
291          V58= caaddr((V47));          V60= CMPcaaddr((V45));
292          if(((*(LnkLI63))((V58),cdr((V45))))!=Cnil){          if(((*(LnkLI63))((V60),CMPcdr((V43))))!=Cnil){
293          goto T140;}          goto T140;}
294          V60= structure_ref((V58),VV[3],1);          {register object x= STREF(object,(V60),4),V61= VV[14];
295          {register object x= /* INLINE-ARGS */V60,V59= VV[14];          while(V61!=Cnil)
296          while(!endp(V59))          if(eql(x,V61->c.c_car)){
         if(eql(x,V59->c.c_car)){  
297          goto T145;          goto T145;
298          }else V59=V59->c.c_cdr;          }else V61=V61->c.c_cdr;
299          goto T141;}          goto T141;}
300          goto T145;          goto T145;
301  T145:;  T145:;
302          V62= structure_ref((V58),VV[3],0);          {register object x= STREF(object,(V60),0),V62= (V44);
303          {register object x= /* INLINE-ARGS */V62,V61= (V46);          while(V62!=Cnil)
304          while(!endp(V61))          if(eql(x,V62->c.c_car)){
         if(eql(x,V61->c.c_car)){  
305          goto T146;          goto T146;
306          }else V61=V61->c.c_cdr;          }else V62=V62->c.c_cdr;
307          goto T141;}          goto T141;}
308          goto T146;          goto T146;
309  T146:;  T146:;
310          goto T140;          goto T140;
311  T140:;  T140:;
312          {object V63;          {object V63;
313          V65= structure_ref((V48),VV[3],1);          if(!((STREF(object,(V46),4))==(VV[15]))){
         if(!((/* INLINE-ARGS */V65)==(VV[15]))){  
314          goto T150;}          goto T150;}
315          V64= list(3,VV[3],(V48),Cnil);          V64= list(3,VV[3],(V46),Cnil);
316          goto T148;          goto T148;
317          goto T150;          goto T150;
318  T150:;  T150:;
319          V66= structure_ref((V48),VV[3],1);          if(!((STREF(object,(V46),4))==(VV[11]))){
         if(!((/* INLINE-ARGS */V66)==(VV[11]))){  
320          goto T153;}          goto T153;}
321          V64= list(2,VV[11],structure_ref((V48),VV[3],4));          V64= list(2,VV[11],STREF(object,(V46),16));
322          goto T148;          goto T148;
323          goto T153;          goto T153;
324  T153:;  T153:;
325          {object V67;          {object V65;
326          V67= make_cons((V48),Cnil);          V65= make_cons((V46),Cnil);
327          V42= make_cons((V67),(V42));}          V40= make_cons((V65),(V40));}
328          V64= list(2,VV[16],structure_ref((V48),VV[3],2));          V64= list(2,VV[16],STREF(object,(V46),8));
329          goto T148;          goto T148;
330  T148:;  T148:;
331          V63= list(3,VV[12],V64,(V47));          V63= list(3,VV[12],V64,(V45));
332          V43= make_cons((V63),(V43));          V41= make_cons((V63),(V41));
333          goto T127;}          goto T127;}
334          goto T141;          goto T141;
335  T141:;  T141:;
336          if(((*(LnkLI62))((V48),(V40)))==Cnil){          if(((*(LnkLI62))((V46),(V38)))==Cnil){
337          goto T160;}          goto T160;}
338          V69= structure_ref((V58),VV[3],1);          {register object x= STREF(object,(V60),4),V66= VV[17];
339          {register object x= /* INLINE-ARGS */V69,V68= VV[17];          while(V66!=Cnil)
340          while(!endp(V68))          if(eql(x,V66->c.c_car)){
         if(eql(x,V68->c.c_car)){  
341          goto T164;          goto T164;
342          }else V68=V68->c.c_cdr;          }else V66=V66->c.c_cdr;
343          goto T160;}          goto T160;}
344          goto T164;          goto T164;
345  T164:;  T164:;
346          if((structure_ref((V58),VV[3],3))!=Cnil){          if((STREF(object,(V60),12))!=Cnil){
347          goto T160;}          goto T160;}
348          V71= structure_ref(cadr((V40)),VV[5],0);          {register object x= (V60),V67= STREF(object,CMPcadr((V38)),0);
349          {register object x= (V58),V70= /* INLINE-ARGS */V71;          while(V67!=Cnil)
350          while(!endp(V70))          if(eql(x,V67->c.c_car)){
         if(eql(x,V70->c.c_car)){  
351          goto T160;          goto T160;
352          }else V70=V70->c.c_cdr;}          }else V67=V67->c.c_cdr;}
353          (void)(structure_set((V48),VV[3],1,VV[13]));          V68= Ct;
354          V74= structure_ref((V58),VV[3],1);          STSET(object,(V46),4, VV[13]);
355          {object V73= /* INLINE-ARGS */V74;          (void)(VV[13]);
356          if((V73!= VV[28]))goto T170;          {object V70= STREF(object,(V60),4);
357          V72= list(2,VV[16],structure_ref((V58),VV[3],2));          if((V70!= VV[28]))goto T170;
358            V69= list(2,VV[16],STREF(object,(V60),8));
359          goto T169;          goto T169;
360          goto T170;          goto T170;
361  T170:;  T170:;
362          if((V73!= VV[13]))goto T171;          if((V70!= VV[13]))goto T171;
363          V72= structure_ref((V58),VV[3],4);          V69= STREF(object,(V60),16);
364          goto T169;          goto T169;
365          goto T171;          goto T171;
366  T171:;  T171:;
367          if((V73!= VV[15]))goto T172;          if((V70!= VV[15]))goto T172;
368          V72= list(2,VV[18],structure_ref((V58),VV[3],4));          V69= list(2,VV[18],STREF(object,(V60),16));
369          goto T169;          goto T169;
370          goto T172;          goto T172;
371  T172:;  T172:;
372          V72= (*(LnkLI64))();}          V69= (*(LnkLI64))();}
373          goto T169;          goto T169;
374  T169:;  T169:;
375          (void)(structure_set((V48),VV[3],4,V72));          V71= Ct;
376            STSET(object,(V46),16, V69);
377            (void)(V69);
378          goto T127;          goto T127;
379          goto T160;          goto T160;
380  T160:;  T160:;
381          {object V75;          {object V72;
382          V75= list(2,(V48),list(3,VV[3],(V58),cadr(caddr((V47)))));          V72= list(2,(V46),list(3,VV[3],(V60),CMPcadr(CMPcaddr((V45)))));
383          V42= make_cons((V75),(V42));          V40= make_cons((V72),(V40));
384          goto T127;}}          goto T127;}}
385          goto T138;          goto T138;
386  T138:;  T138:;
387          {object V76;          {object V73;
388          V78= structure_ref((V48),VV[3],1);          if(!((STREF(object,(V46),4))==(VV[15]))){
         if(!((/* INLINE-ARGS */V78)==(VV[15]))){  
389          goto T178;}          goto T178;}
390          V77= list(3,VV[3],(V48),Cnil);          V74= list(3,VV[3],(V46),Cnil);
391          goto T176;          goto T176;
392          goto T178;          goto T178;
393  T178:;  T178:;
394          V79= structure_ref((V48),VV[3],1);          if(!((STREF(object,(V46),4))==(VV[11]))){
         if(!((/* INLINE-ARGS */V79)==(VV[11]))){  
395          goto T181;}          goto T181;}
396          V77= list(2,VV[11],structure_ref((V48),VV[3],4));          V74= list(2,VV[11],STREF(object,(V46),16));
397          goto T176;          goto T176;
398          goto T181;          goto T181;
399  T181:;  T181:;
400          {object V80;          {object V75;
401          V80= make_cons((V48),Cnil);          V75= make_cons((V46),Cnil);
402          V42= make_cons((V80),(V42));}          V40= make_cons((V75),(V40));}
403          V77= list(2,VV[16],structure_ref((V48),VV[3],2));          V74= list(2,VV[16],STREF(object,(V46),8));
404          goto T176;          goto T176;
405  T176:;  T176:;
406          V76= list(3,VV[12],V77,(V47));          V73= list(3,VV[12],V74,(V45));
407          V43= make_cons((V76),(V43));}}}          V41= make_cons((V73),(V41));}}}
408          goto T127;          goto T127;
409  T127:;  T127:;
410          V81= structure_ref((V48),VV[3],1);          if(!((STREF(object,(V46),4))==(VV[19]))){
         if(!((/* INLINE-ARGS */V81)==(VV[19]))){  
411          goto T111;}          goto T111;}
412          {object V82;          {object V76;
413          V82= structure_ref((V48),VV[3],0);          V76= STREF(object,(V46),0);
414          V46= make_cons((V82),(V46));}}          V44= make_cons((V76),(V44));}}
415          goto T111;          goto T111;
416  T111:;  T111:;
417          V44= cdr((V44));          V42= CMPcdr((V42));
418          V45= cdr((V45));          V43= CMPcdr((V43));
419          goto T106;}          goto T106;}
420          goto T104;          goto T104;
421  T104:;  T104:;
422          V41= (*(LnkLI65))((V38));          V39= (*(LnkLI65))((V36));
423          {object V83;          {object V77;
424          object V84;          object V78;
425          V83= reverse((V43));          V77= reverse((V41));
426          V84= car((V83));          V78= CMPcar((V77));
427          goto T201;          goto T201;
428  T201:;  T201:;
429          if(!(endp_prop((V83)))){          if(!(((V77))==Cnil)){
430          goto T202;}          goto T202;}
431          goto T197;          goto T197;
432          goto T202;          goto T202;
433  T202:;  T202:;
434          base[6]= cadr((V84));          base[6]= CMPcadr((V78));
435          bds_bind(VV[20],base[6]);          bds_bind(VV[20],base[6]);
436          V85= (*(LnkLI12))(caddr((V84)));          V79= (*(LnkLI12))(CMPcaddr((V78)));
437          bds_unwind1;          bds_unwind1;
438          V83= cdr((V83));          V77= CMPcdr((V77));
439          V84= car((V83));          V78= CMPcar((V77));
440          goto T201;}          goto T201;}
441          goto T197;          goto T197;
442  T197:;  T197:;
443          {object V86;          {object V80;
444          object V87;          object V81;
445          V86= reverse((V42));          V80= reverse((V40));
446          V87= car((V86));          V81= CMPcar((V80));
447          goto T217;          goto T217;
448  T217:;  T217:;
449          if(!(endp_prop((V86)))){          if(!(((V80))==Cnil)){
450          goto T218;}          goto T218;}
451          goto T213;          goto T213;
452          goto T218;          goto T218;
453  T218:;  T218:;
454          if((cdr((V87)))==Cnil){          if((CMPcdr((V81)))==Cnil){
455          goto T224;}          goto T224;}
456          (void)((*(LnkLI66))(car((V87)),cadr((V87))));          (void)((*(LnkLI66))(CMPcar((V81)),CMPcadr((V81))));
457          goto T222;          goto T222;
458          goto T224;          goto T224;
459  T224:;  T224:;
460          (void)((*(LnkLI67))(car((V87))));          (void)((*(LnkLI67))(CMPcar((V81))));
461          goto T222;          goto T222;
462  T222:;  T222:;
463          V86= cdr((V86));          V80= CMPcdr((V80));
464          V87= car((V86));          V81= CMPcar((V80));
465          goto T217;}          goto T217;}
466          goto T213;          goto T213;
467  T213:;  T213:;
468          base[4]= (V40);          base[4]= (V38);
469          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
470          (void) (*Lnk68)();          (void) (*Lnk68)();
471          vs_top=sup;          vs_top=sup;
472          if(((V41))==Cnil){          if(((V39))==Cnil){
473          goto T234;}          goto T234;}
474          princ_char(125,VV[21]);          princ_char(125,VV[21]);
475          {object V88 = Cnil;          {object V82 = Cnil;
476          bds_unwind1;          bds_unwind1;
477          bds_unwind1;          bds_unwind1;
478          bds_unwind1;          bds_unwind1;
479          bds_unwind1;          bds_unwind1;
480          VMR2(V88)}          VMR2(V82)}
481          goto T234;          goto T234;
482  T234:;  T234:;
483          {object V89 = Cnil;          {object V83 = Cnil;
484          bds_unwind1;          bds_unwind1;
485          bds_unwind1;          bds_unwind1;
486          bds_unwind1;          bds_unwind1;
487          bds_unwind1;          bds_unwind1;
488          VMR2(V89)}}          VMR2(V83)}}
489          base[0]=base[0];          base[0]=base[0];
490          return Cnil;          return Cnil;
491  }  }
492  /*      local entry for function C1LET* */  /*      local entry for function C1LET* */
493    
494  static object LI3(V91)  static object LI3(V85)
495    
496  object V91;  object V85;
497  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
498          bds_check;          bds_check;
499          goto TTL;          goto TTL;
500  TTL:;  TTL:;
501          {register object V92;          {register object V86;
502          register object V93;          register object V87;
503          register object V94;          register object V88;
504            object V89;
505            object V90;
506            object V91;
507            object V92;
508            object V93;
509            object V94;
510          object V95;          object V95;
511          object V96;          V86= Cnil;
512          object V97;          V87= Cnil;
513          object V98;          V88= Cnil;
514          object V99;          V89= (VV[0]->s.s_dbind);
515          object V100;          V90= Cnil;
516          object V101;          V91= Cnil;
517          V92= Cnil;          V92= Cnil;
518          V93= Cnil;          V93= Cnil;
519          V94= Cnil;          V94= Cnil;
520          V95= symbol_value(VV[0]);          V95= (VFUN_NARGS=0,(*(LnkLI39))());
521          V96= Cnil;          bds_bind(VV[1],(VV[1]->s.s_dbind));
522          V97= Cnil;          if(!(((V85))==Cnil)){
         V98= Cnil;  
         V99= Cnil;  
         V100= Cnil;  
         V101= (VFUN_NARGS=0,(*(LnkLI39))());  
         bds_bind(VV[1],symbol_value(VV[1]));  
         if(!(endp_prop((V91)))){  
523          goto T247;}          goto T247;}
524          (void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0)));
525          goto T247;          goto T247;
526  T247:;  T247:;
527          base[2]= cdr((V91));          base[2]= CMPcdr((V85));
528          base[3]= Cnil;          base[3]= Cnil;
529          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
530          (void) (*Lnk41)();          (void) (*Lnk41)();
531          if(vs_base<vs_top){          if(vs_base<vs_top){
532          V99= vs_base[0];          V93= vs_base[0];
533          vs_base++;          vs_base++;
534          }else{          }else{
535          V99= Cnil;}          V93= Cnil;}
536          if(vs_base<vs_top){          if(vs_base<vs_top){
537          V96= vs_base[0];          V90= vs_base[0];
538          vs_base++;          vs_base++;
539          }else{          }else{
540          V96= Cnil;}          V90= Cnil;}
541          if(vs_base<vs_top){          if(vs_base<vs_top){
542          V98= vs_base[0];          V92= vs_base[0];
543          vs_base++;          vs_base++;
544          }else{          }else{
545          V98= Cnil;}          V92= Cnil;}
546          if(vs_base<vs_top){          if(vs_base<vs_top){
547          V97= vs_base[0];          V91= vs_base[0];
548          vs_base++;          vs_base++;
549          }else{          }else{
550          V97= Cnil;}          V91= Cnil;}
551          if(vs_base<vs_top){          if(vs_base<vs_top){
552          V100= vs_base[0];          V94= vs_base[0];
553          }else{          }else{
554          V100= Cnil;}          V94= Cnil;}
555          vs_top=sup;          vs_top=sup;
556          (void)((*(LnkLI42))((V96)));          (void)((*(LnkLI42))((V90)));
557          {register object V102;          {register object V96;
558          register object V103;          register object V97;
559          V102= car((V91));          V96= CMPcar((V85));
560          V103= car((V102));          V97= CMPcar((V96));
561          goto T259;          goto T259;
562  T259:;  T259:;
563          if(!(endp_prop((V102)))){          if(!(((V96))==Cnil)){
564          goto T260;}          goto T260;}
565          goto T255;          goto T255;
566          goto T260;          goto T260;
567  T260:;  T260:;
568          if(!(type_of((V103))==t_symbol)){          if(!(type_of((V97))==t_symbol)){
569          goto T266;}          goto T266;}
570          {object V104;          {object V98;
571          V104= (*(LnkLI43))((V103),(V96),(V97),(V98));          V98= (*(LnkLI43))((V97),(V90),(V91),(V92));
572          V94= make_cons(V103,(V94));          V88= make_cons(V97,(V88));
573          {object V106;          {object V100;
574          V107= structure_ref((V104),VV[3],5);          V100= (*(LnkLI44))(STREF(object,(V98),20));
575          V106= (*(LnkLI44))(/* INLINE-ARGS */V107);          V86= make_cons((V100),(V86));}
576          V92= make_cons((V106),(V92));}          V87= make_cons(V98,(V87));
577          V93= make_cons(V104,(V93));          (VV[1]->s.s_dbind)= make_cons(V98,(VV[1]->s.s_dbind));
         (VV[1]->s.s_dbind)= make_cons(V104,(VV[1]->s.s_dbind));  
578          goto T264;}          goto T264;}
579          goto T266;          goto T266;
580  T266:;  T266:;
581          if(!(type_of((V103))==t_cons)){          if(!(type_of((V97))==t_cons)){
582          goto T277;}          goto T277;}
583          if(endp_prop(cdr((V103)))){          if((CMPcdr((V97)))==Cnil){
584          goto T278;}          goto T278;}
585          if(endp_prop(cddr((V103)))){          if((CMPcddr((V97)))==Cnil){
586          goto T278;}          goto T278;}
587          goto T277;          goto T277;
588  T277:;  T277:;
589          (void)((VFUN_NARGS=2,(*(LnkLI45))(VV[23],(V103))));          (void)((VFUN_NARGS=2,(*(LnkLI45))(VV[23],(V97))));
590          goto T264;          goto T264;
591          goto T278;          goto T278;
592  T278:;  T278:;
593          {register object V110;          {register object V103;
594          V110= (*(LnkLI43))(car((V103)),(V96),(V97),(V98));          V103= (*(LnkLI43))(CMPcar((V97)),(V90),(V91),(V92));
595          {object V111;          {object V104;
596          V111= car((V103));          V104= CMPcar((V97));
597          V94= make_cons((V111),(V94));}          V88= make_cons((V104),(V88));}
598          {object V112;          {object V105;
599          if(!(endp_prop(cdr((V103))))){          if(!((CMPcdr((V97)))==Cnil)){
600          goto T291;}          goto T291;}
601          V113= structure_ref((V110),VV[3],5);          V105= (*(LnkLI44))(STREF(object,(V103),20));
         V112= (*(LnkLI44))(/* INLINE-ARGS */V113);  
602          goto T289;          goto T289;
603          goto T291;          goto T291;
604  T291:;  T291:;
605          V114= structure_ref((V110),VV[3],5);          V106= (*(LnkLI47))(CMPcadr((V97)),(V95));
606          V115= (*(LnkLI47))(cadr((V103)),(V101));          V105= (*(LnkLI46))(STREF(object,(V103),20),/* INLINE-ARGS */V106,CMPcadr((V97)));
         V112= (*(LnkLI46))(/* INLINE-ARGS */V114,/* INLINE-ARGS */V115,cadr((V103)));  
607          goto T289;          goto T289;
608  T289:;  T289:;
609          V92= make_cons((V112),(V92));}          V86= make_cons((V105),(V86));}
610          V93= make_cons(V110,(V93));          V87= make_cons(V103,(V87));
611          (VV[1]->s.s_dbind)= make_cons(V110,(VV[1]->s.s_dbind));}          (VV[1]->s.s_dbind)= make_cons(V103,(VV[1]->s.s_dbind));}
612          goto T264;          goto T264;
613  T264:;  T264:;
614          V102= cdr((V102));          V96= CMPcdr((V96));
615          V103= car((V102));          V97= CMPcar((V96));
616          goto T259;}          goto T259;}
617          goto T255;          goto T255;
618  T255:;  T255:;
619          (void)((*(LnkLI48))((V94),(V98),(V97)));          (void)((*(LnkLI48))((V88),(V92),(V91)));
620          V99= (*(LnkLI49))((V100),(V99));          V93= (*(LnkLI49))((V94),(V93));
621          (void)((*(LnkLI50))((V101),cadr((V99))));          (void)((*(LnkLI50))((V95),CMPcadr((V93))));
622          V118= structure_ref(cadr((V99)),VV[5],2);          V109= Ct;
623          (void)(structure_set((V101),VV[5],2,/* INLINE-ARGS */V118));          STSET(object,(V95),8, STREF(object,CMPcadr((V93)),8));
624          {register object V119;          (void)(STREF(object,CMPcadr((V93)),8));
625          object V120;          {register object V110;
626          V119= (V93);          object V111;
627          V120= car((V119));          V110= (V87);
628            V111= CMPcar((V110));
629          goto T311;          goto T311;
630  T311:;  T311:;
631          if(!(endp_prop((V119)))){          if(!(((V110))==Cnil)){
632          goto T312;}          goto T312;}
633          goto T307;          goto T307;
634          goto T312;          goto T312;
635  T312:;  T312:;
636          (void)((*(LnkLI51))((V120)));          (void)((*(LnkLI51))((V111)));
637          V119= cdr((V119));          V110= CMPcdr((V110));
638          V120= car((V119));          V111= CMPcar((V110));
639          goto T311;}          goto T311;}
640          goto T307;          goto T307;
641  T307:;  T307:;
642          if(!(eql((V95),symbol_value(VV[0])))){          if(!(eql((V89),(VV[0]->s.s_dbind)))){
643          goto T323;}          goto T323;}
644          goto T322;          goto T322;
645          goto T323;          goto T323;
646  T323:;  T323:;
647          (void)(structure_set((V101),VV[5],4,Ct));          V112= Ct;
648            STSET(object,(V95),16, Ct);
649            (void)(Ct);
650          goto T322;          goto T322;
651  T322:;  T322:;
652          V121= reverse((V93));          V113= reverse((V87));
653          {object V122 = list(5,VV[22],(V101),/* INLINE-ARGS */V121,reverse((V92)),(V99));          {object V114 = list(5,VV[22],(V95),/* INLINE-ARGS */V113,reverse((V86)),(V93));
654          bds_unwind1;          bds_unwind1;
655          VMR3(V122)}}          VMR3(V114)}}
656          base[0]=base[0];          base[0]=base[0];
657          return Cnil;          return Cnil;
658  }  }
659  /*      local entry for function C2LET* */  /*      local entry for function C2LET* */
660    
661  static object LI4(V126,V127,V128)  static object LI4(V118,V119,V120)
662    
663  object V126;object V127;object V128;  object V118;object V119;object V120;
664  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
665          bds_check;          bds_check;
666          goto TTL;          goto TTL;
667  TTL:;  TTL:;
668          {object V129;          {object V121;
669          V129= Cnil;          V121= Cnil;
670          bds_bind(VV[6],symbol_value(VV[6]));          bds_bind(VV[6],(VV[6]->s.s_dbind));
671          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],(VV[7]->s.s_dbind));
672          bds_bind(VV[8],symbol_value(VV[8]));          bds_bind(VV[8],(VV[8]->s.s_dbind));
673          bds_bind(VV[9],symbol_value(VV[9]));          bds_bind(VV[9],(VV[9]->s.s_dbind));
674          {object V130;          {object V122;
675          register object V131;          register object V123;
676          V130= (V126);          V122= (V118);
677          V131= (V127);          V123= (V119);
678          goto T328;          goto T328;
679  T328:;  T328:;
680          if(!(endp_prop((V130)))){          if(!(((V122))==Cnil)){
681          goto T329;}          goto T329;}
682          goto T326;          goto T326;
683          goto T329;          goto T329;
684  T329:;  T329:;
685          {object V132;          {object V124;
686          register object V133;          register object V125;
687          object V134;          object V126;
688          V132= car((V131));          V124= CMPcar((V123));
689          V133= car((V130));          V125= CMPcar((V122));
690          V134= (*(LnkLI52))((V133));          V126= (*(LnkLI52))((V125));
691          if(((V134))==Cnil){          if(((V126))==Cnil){
692          goto T337;}          goto T337;}
693          (void)(structure_set((V133),VV[3],1,(V134)));          V127= Ct;
694          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          STSET(object,(V125),4, (V126));
695          (void)(structure_set((V133),VV[3],4,symbol_value(VV[10])));          (void)((V126));
696            (VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1));
697            V128= Ct;
698            STSET(object,(V125),16, (VV[10]->s.s_dbind));
699            (void)((VV[10]->s.s_dbind));
700          goto T337;          goto T337;
701  T337:;  T337:;
702          V136= structure_ref((V133),VV[3],1);          {register object x= STREF(object,(V125),4),V129= VV[24];
703          {register object x= /* INLINE-ARGS */V136,V135= VV[24];          while(V129!=Cnil)
704          while(!endp(V135))          if(eql(x,V129->c.c_car)){
         if(eql(x,V135->c.c_car)){  
705          goto T344;          goto T344;
706          }else V135=V135->c.c_cdr;          }else V129=V129->c.c_cdr;
707          goto T343;}          goto T343;}
708          goto T344;          goto T344;
709  T344:;  T344:;
710          goto T333;          goto T333;
711          goto T343;          goto T343;
712  T343:;  T343:;
713          {object V137= car((V132));          {object V130= CMPcar((V124));
714          if((V137!= VV[61]))goto T345;          if((V130!= VV[61]))goto T345;
715          if(((*(LnkLI69))((V133),(V128),cdr((V131))))==Cnil){          if(((*(LnkLI69))((V125),(V120),CMPcdr((V123))))==Cnil){
716          goto T347;}          goto T347;}
717          (void)(structure_set((V133),VV[3],1,VV[13]));          V131= Ct;
718          (void)(structure_set((V133),VV[3],4,caddr((V132))));          STSET(object,(V125),4, VV[13]);
719            (void)(VV[13]);
720            V132= CMPcaddr((V124));
721            V133= Ct;
722            STSET(object,(V125),16, /* INLINE-ARGS */V132);
723            (void)(/* INLINE-ARGS */V132);
724          goto T333;          goto T333;
725          goto T347;          goto T347;
726  T347:;  T347:;
727          {object V138;          {object V134;
728          V139= structure_ref((V133),VV[3],1);          V134= ((STREF(object,(V125),4))==(VV[15])?Ct:Cnil);
729          V138= ((/* INLINE-ARGS */V139)==(VV[15])?Ct:Cnil);          if(((V134))==Cnil){
         if(((V138))==Cnil){  
730          goto T352;}          goto T352;}
731          goto T333;          goto T333;
732          goto T352;          goto T352;
733  T352:;  T352:;
734          V140= structure_ref((V133),VV[3],1);          if(!((STREF(object,(V125),4))==(VV[11]))){
735          if(!((/* INLINE-ARGS */V140)==(VV[11]))){          goto T355;}{object V135;
736          goto T355;}{object V141;          base[7]= STREF(object,(V125),16);
         base[7]= structure_ref((V133),VV[3],4);  
737          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
738          (void) (*Lnk53)();          (void) (*Lnk53)();
739          vs_top=sup;          vs_top=sup;
740          V141= vs_base[0];          V135= vs_base[0];
741          if(V141==Cnil)goto T357;          if(V135==Cnil)goto T357;
742          goto T333;          goto T333;
743          goto T357;          goto T357;
744  T357:;}  T357:;}
# Line 737  T357:;} Line 746  T357:;}
746          goto T333;          goto T333;
747          goto T355;          goto T355;
748  T355:;  T355:;
749          V142= (*(LnkLI55))();          V136= (*(LnkLI55))();
750          (void)(structure_set((V133),VV[3],2,/* INLINE-ARGS */V142));          V137= Ct;
751            STSET(object,(V125),8, /* INLINE-ARGS */V136);
752            (void)(/* INLINE-ARGS */V136);
753          goto T333;}          goto T333;}
754          goto T345;          goto T345;
755  T345:;  T345:;
756          if((V137!= VV[3]))goto T360;          if((V130!= VV[3]))goto T360;
757          {register object V143;          {register object V138;
758          V143= caaddr((V132));          V138= CMPcaaddr((V124));
759          if(((*(LnkLI69))((V133),(V128),cdr((V131))))==Cnil){          if(((*(LnkLI69))((V125),(V120),CMPcdr((V123))))==Cnil){
760          goto T363;}          goto T363;}
761          V145= structure_ref((V143),VV[3],1);          {register object x= STREF(object,(V138),4),V139= VV[25];
762          {register object x= /* INLINE-ARGS */V145,V144= VV[25];          while(V139!=Cnil)
763          while(!endp(V144))          if(eql(x,V139->c.c_car)){
         if(eql(x,V144->c.c_car)){  
764          goto T367;          goto T367;
765          }else V144=V144->c.c_cdr;          }else V139=V139->c.c_cdr;
766          goto T363;}          goto T363;}
767          goto T367;          goto T367;
768  T367:;  T367:;
769          if((structure_ref((V143),VV[3],3))!=Cnil){          if((STREF(object,(V138),12))!=Cnil){
770          goto T363;}          goto T363;}
771          if(((*(LnkLI63))((V143),cdr((V131))))!=Cnil){          if(((*(LnkLI63))((V138),CMPcdr((V123))))!=Cnil){
772          goto T363;}          goto T363;}
773          V147= structure_ref(cadr((V128)),VV[5],0);          {register object x= (V138),V140= STREF(object,CMPcadr((V120)),0);
774          {register object x= (V143),V146= /* INLINE-ARGS */V147;          while(V140!=Cnil)
775          while(!endp(V146))          if(eql(x,V140->c.c_car)){
         if(eql(x,V146->c.c_car)){  
776          goto T363;          goto T363;
777          }else V146=V146->c.c_cdr;}          }else V140=V140->c.c_cdr;}
778          (void)(structure_set((V133),VV[3],1,VV[13]));          V141= Ct;
779          V150= structure_ref((V143),VV[3],1);          STSET(object,(V125),4, VV[13]);
780          {object V149= /* INLINE-ARGS */V150;          (void)(VV[13]);
781          if((V149!= VV[28]))goto T375;          {object V143= STREF(object,(V138),4);
782          V148= list(2,VV[16],structure_ref((V143),VV[3],2));          if((V143!= VV[28]))goto T375;
783            V142= list(2,VV[16],STREF(object,(V138),8));
784          goto T374;          goto T374;
785          goto T375;          goto T375;
786  T375:;  T375:;
787          if((V149!= VV[13]))goto T376;          if((V143!= VV[13]))goto T376;
788          V148= structure_ref((V143),VV[3],4);          V142= STREF(object,(V138),16);
789          goto T374;          goto T374;
790          goto T376;          goto T376;
791  T376:;  T376:;
792          if((V149!= VV[15]))goto T377;          if((V143!= VV[15]))goto T377;
793          V148= list(2,VV[18],structure_ref((V143),VV[3],4));          V142= list(2,VV[18],STREF(object,(V138),16));
794          goto T374;          goto T374;
795          goto T377;          goto T377;
796  T377:;  T377:;
797          V148= (*(LnkLI64))();}          V142= (*(LnkLI64))();}
798          goto T374;          goto T374;
799  T374:;  T374:;
800          (void)(structure_set((V133),VV[3],4,V148));          V144= Ct;
801            STSET(object,(V125),16, V142);
802            (void)(V142);
803          goto T333;          goto T333;
804          goto T363;          goto T363;
805  T363:;  T363:;
806          {object V151;          {object V145;
807          V152= structure_ref((V133),VV[3],1);          V145= ((STREF(object,(V125),4))==(VV[15])?Ct:Cnil);
808          V151= ((/* INLINE-ARGS */V152)==(VV[15])?Ct:Cnil);          if(((V145))==Cnil){
         if(((V151))==Cnil){  
809          goto T380;}          goto T380;}
810          goto T333;          goto T333;
811          goto T380;          goto T380;
812  T380:;  T380:;
813          V153= (*(LnkLI55))();          V146= (*(LnkLI55))();
814          (void)(structure_set((V133),VV[3],2,/* INLINE-ARGS */V153));          V147= Ct;
815            STSET(object,(V125),8, /* INLINE-ARGS */V146);
816            (void)(/* INLINE-ARGS */V146);
817          goto T333;}}          goto T333;}}
818          goto T360;          goto T360;
819  T360:;  T360:;
820          if((V137!= VV[70])          if((V130!= VV[70])
821          && !eql(V137,VV[26])          && !eql(V130,VV[26])
822          && !eql(V137,VV[27]))goto T382;          && !eql(V130,VV[27]))goto T382;
823          goto T333;          goto T333;
824          goto T382;          goto T382;
825  T382:;  T382:;
826          V154= (*(LnkLI55))();          V148= (*(LnkLI55))();
827          (void)(structure_set((V133),VV[3],2,/* INLINE-ARGS */V154));}}          V149= Ct;
828            STSET(object,(V125),8, /* INLINE-ARGS */V148);
829            (void)(/* INLINE-ARGS */V148);}}
830          goto T333;          goto T333;
831  T333:;  T333:;
832          V130= cdr((V130));          V122= CMPcdr((V122));
833          V131= cdr((V131));          V123= CMPcdr((V123));
834          goto T328;}          goto T328;}
835          goto T326;          goto T326;
836  T326:;  T326:;
837          V129= (*(LnkLI65))((V126));          V121= (*(LnkLI65))((V118));
838          {object V155;          {object V150;
839          object V156;          object V151;
840          register object V157;          register object V152;
841          register object V158;          register object V153;
842          V155= (V126);          V150= (V118);
843          V156= (V127);          V151= (V119);
844          V157= Cnil;          V152= Cnil;
845          V158= Cnil;          V153= Cnil;
846          goto T391;          goto T391;
847  T391:;  T391:;
848          if(((V155))!=Cnil){          if(((V150))!=Cnil){
849          goto T392;}          goto T392;}
850          goto T389;          goto T389;
851          goto T392;          goto T392;
852  T392:;  T392:;
853          V157= car((V155));          V152= CMPcar((V150));
854          V158= car((V156));          V153= CMPcar((V151));
855          V160= structure_ref((V157),VV[3],1);          {object V154= STREF(object,(V152),4);
856          {object V159= /* INLINE-ARGS */V160;          if((V154== VV[56])
857          if((V159== VV[56])          || (V154== VV[57])
858          || (V159== VV[57])          || (V154== VV[58])
859          || (V159== VV[58])          || (V154== VV[59])
860          || (V159== VV[59])          || (V154== VV[15]))goto T402;
861          || (V159== VV[15]))goto T402;          if((V154!= VV[60]))goto T401;
         if((V159!= VV[60]))goto T401;  
862          goto T402;          goto T402;
863  T402:;  T402:;
864          base[4]= list(3,VV[3],(V157),Cnil);          base[4]= list(3,VV[3],(V152),Cnil);
865          bds_bind(VV[20],base[4]);          bds_bind(VV[20],base[4]);
866          V161= (*(LnkLI12))((V158));          V155= (*(LnkLI12))((V153));
867          bds_unwind1;          bds_unwind1;
868          goto T400;          goto T400;
869          goto T401;          goto T401;
870  T401:;  T401:;
871          if((V159!= VV[13]))goto T404;          if((V154!= VV[13]))goto T404;
872          goto T400;          goto T400;
873          goto T404;          goto T404;
874  T404:;  T404:;
875          {object V162= car((V158));          {object V156= CMPcar((V153));
876          if((V162!= VV[61]))goto T405;          if((V156!= VV[61]))goto T405;
877          (void)((*(LnkLI66))((V157),caddr((V158))));          (void)((*(LnkLI66))((V152),CMPcaddr((V153))));
878          goto T400;          goto T400;
879          goto T405;          goto T405;
880  T405:;  T405:;
881          if((V162!= VV[3]))goto T406;          if((V156!= VV[3]))goto T406;
882          V163= list(3,VV[3],caaddr((V158)),cadr(caddr((V158))));          V157= list(3,VV[3],CMPcaaddr((V153)),CMPcadr(CMPcaddr((V153))));
883          (void)((*(LnkLI66))((V157),/* INLINE-ARGS */V163));          (void)((*(LnkLI66))((V152),/* INLINE-ARGS */V157));
884          goto T400;          goto T400;
885          goto T406;          goto T406;
886  T406:;  T406:;
887          (void)((*(LnkLI71))((V157),(V158)));}}          (void)((*(LnkLI71))((V152),(V153)));}}
888          goto T400;          goto T400;
889  T400:;  T400:;
890          V155= cdr((V155));          V150= CMPcdr((V150));
891          V156= cdr((V156));          V151= CMPcdr((V151));
892          goto T391;}          goto T391;}
893          goto T389;          goto T389;
894  T389:;  T389:;
895          base[4]= (V128);          base[4]= (V120);
896          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
897          (void) (*Lnk68)();          (void) (*Lnk68)();
898          vs_top=sup;          vs_top=sup;
899          if(((V129))==Cnil){          if(((V121))==Cnil){
900          goto T414;}          goto T414;}
901          princ_char(125,VV[21]);          princ_char(125,VV[21]);
902          {object V164 = Cnil;          {object V158 = Cnil;
903          bds_unwind1;          bds_unwind1;
904          bds_unwind1;          bds_unwind1;
905          bds_unwind1;          bds_unwind1;
906          bds_unwind1;          bds_unwind1;
907          VMR4(V164)}          VMR4(V158)}
908          goto T414;          goto T414;
909  T414:;  T414:;
910          {object V165 = Cnil;          {object V159 = Cnil;
911          bds_unwind1;          bds_unwind1;
912          bds_unwind1;          bds_unwind1;
913          bds_unwind1;          bds_unwind1;
914          bds_unwind1;          bds_unwind1;
915          VMR4(V165)}}          VMR4(V159)}}
916          base[0]=base[0];          base[0]=base[0];
917          return Cnil;          return Cnil;
918  }  }
919  /*      local entry for function CAN-BE-REPLACED        */  /*      local entry for function CAN-BE-REPLACED        */
920    
921  static object LI5(V168,V169)  static object LI5(V162,V163)
922    
923  register object V168;object V169;  register object V162;object V163;
924  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
925          goto TTL;          goto TTL;
926  TTL:;  TTL:;
927          V170= structure_ref((V168),VV[3],1);          if(!((STREF(object,(V162),4))==(VV[28]))){
         if(!((/* INLINE-ARGS */V170)==(VV[28]))){  
928          goto T419;}          goto T419;}
929          goto T417;          goto T417;
930          goto T419;          goto T419;
931  T419:;  T419:;
932          V171= structure_ref((V168),VV[3],1);          if((STREF(object,(V162),4))==(VV[15])){
         if((/* INLINE-ARGS */V171)==(VV[15])){  
933          goto T421;}          goto T421;}
934          goto T418;          goto T418;
935          goto T421;          goto T421;
936  T421:;  T421:;
937          {long V172= fix(structure_ref((V168),VV[3],6));          if((fix(STREF(object,(V162),24)))<(fix((VV[29]->s.s_dbind)))){
938          if((/* INLINE-ARGS */V172)<(fix(symbol_value(VV[29])))){          goto T417;}
         goto T417;}}  
939          goto T418;          goto T418;
940  T418:;  T418:;
941          {object V173 = Cnil;          {object V164 = Cnil;
942          VMR5(V173)}          VMR5(V164)}
943          goto T417;          goto T417;
944  T417:;  T417:;
945          V174= structure_ref((V168),VV[3],3);          if((STREF(object,(V162),12))==Cnil){
         if((/* INLINE-ARGS */V174)==Cnil){  
946          goto T423;}          goto T423;}
947          {object V175 = Cnil;          {object V165 = Cnil;
948          VMR5(V175)}          VMR5(V165)}
949          goto T423;          goto T423;
950  T423:;  T423:;
951          V176= structure_ref((V168),VV[3],4);          if((((STREF(object,(V162),16))==(VV[30])?Ct:Cnil))==Cnil){
         if((((/* INLINE-ARGS */V176)==(VV[30])?Ct:Cnil))==Cnil){  
952          goto T425;}          goto T425;}
953          {object V177 = Cnil;          {object V166 = Cnil;
954          VMR5(V177)}          VMR5(V166)}
955          goto T425;          goto T425;
956  T425:;  T425:;
957          V180= structure_ref(cadr((V169)),VV[5],0);          {register object x= (V162),V168= STREF(object,CMPcadr((V163)),0);
958          {register object x= (V168),V179= /* INLINE-ARGS */V180;          while(V168!=Cnil)
959          while(!endp(V179))          if(eql(x,V168->c.c_car)){
960          if(eql(x,V179->c.c_car)){          V167= V168;
         V178= V179;  
961          goto T427;          goto T427;
962          }else V179=V179->c.c_cdr;          }else V168=V168->c.c_cdr;
963          V178= Cnil;}          V167= Cnil;}
964          goto T427;          goto T427;
965  T427:;  T427:;
966          {object V181 = ((V178)==Cnil?Ct:Cnil);          {object V169 = ((V167)==Cnil?Ct:Cnil);
967          VMR5(V181)}          VMR5(V169)}
968          return Cnil;          return Cnil;
969  }  }
970  /*      local entry for function CAN-BE-REPLACED*       */  /*      local entry for function CAN-BE-REPLACED*       */
971    
972  static object LI6(V185,V186,V187)  static object LI6(V173,V174,V175)
973    
974  register object V185;object V186;object V187;  register object V173;object V174;object V175;
975  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
976          goto TTL;          goto TTL;
977  TTL:;  TTL:;
978          if(((*(LnkLI62))((V185),(V186)))!=Cnil){          if(((*(LnkLI62))((V173),(V174)))!=Cnil){
979          goto T428;}          goto T428;}
980          {object V188 = Cnil;          {object V176 = Cnil;
981          VMR6(V188)}          VMR6(V176)}
982          goto T428;          goto T428;
983  T428:;  T428:;
984          {register object V189;          {register object V177;
985          register object V190;          register object V178;
986          V189= (V187);          V177= (V175);
987          V190= car((V189));          V178= CMPcar((V177));
988          goto T433;          goto T433;
989  T433:;  T433:;
990          if(!(endp_prop((V189)))){          if(!(((V177))==Cnil)){
991          goto T434;}          goto T434;}
992          {object V191 = Ct;          {object V179 = Ct;
993          VMR6(V191)}          VMR6(V179)}
994          goto T434;          goto T434;
995  T434:;  T434:;
996          V193= structure_ref(cadr((V190)),VV[5],0);          {register object x= (V173),V180= STREF(object,CMPcadr((V178)),0);
997          {register object x= (V185),V192= /* INLINE-ARGS */V193;          while(V180!=Cnil)
998          while(!endp(V192))          if(eql(x,V180->c.c_car)){
         if(eql(x,V192->c.c_car)){  
999          goto T440;          goto T440;
1000          }else V192=V192->c.c_cdr;          }else V180=V180->c.c_cdr;
1001          goto T438;}          goto T438;}
1002          goto T440;          goto T440;
1003  T440:;  T440:;
1004          {object V194 = Cnil;          {object V181 = Cnil;
1005          VMR6(V194)}          VMR6(V181)}
1006          goto T438;          goto T438;
1007  T438:;  T438:;
1008          V189= cdr((V189));          V177= CMPcdr((V177));
1009          V190= car((V189));          V178= CMPcar((V177));
1010          goto T433;}          goto T433;}
1011          base[0]=base[0];          base[0]=base[0];
1012          return Cnil;          return Cnil;
1013  }  }
1014  /*      local entry for function WRITE-BLOCK-OPEN       */  /*      local entry for function WRITE-BLOCK-OPEN       */
1015    
1016  static object LI7(V196)  static object LI7(V183)
1017    
1018  object V196;  object V183;
1019  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
1020          goto TTL;          goto TTL;
1021  TTL:;  TTL:;
1022          {register object V197;          {register object V184;
1023          V197= Cnil;          V184= Cnil;
1024          {register object V198;          {register object V185;
1025          register object V199;          register object V186;
1026          V198= (V196);          V185= (V183);
1027          V199= car((V198));          V186= CMPcar((V185));
1028          goto T450;          goto T450;
1029  T450:;  T450:;
1030          if(!(endp_prop((V198)))){          if(!(((V185))==Cnil)){
1031          goto T451;}          goto T451;}
1032          goto T446;          goto T446;
1033          goto T451;          goto T451;
1034  T451:;  T451:;
1035          {register object V200;          {register object V187;
1036          V200= structure_ref((V199),VV[3],1);          V187= STREF(object,(V186),4);
1037          {register object x= (V200),V201= VV[31];          {register object x= (V187),V188= VV[31];
1038          while(!endp(V201))          while(V188!=Cnil)
1039          if(eql(x,V201->c.c_car)){          if(eql(x,V188->c.c_car)){
1040          goto T458;          goto T458;
1041          }else V201=V201->c.c_cdr;          }else V188=V188->c.c_cdr;
1042          goto T455;}          goto T455;}
1043          goto T458;          goto T458;
1044  T458:;  T458:;
1045          princ_str("\n   ",VV[21]);          princ_str("\n   ",VV[21]);
1046          if(((V197))!=Cnil){          if(((V184))!=Cnil){
1047          goto T460;}          goto T460;}
1048          princ_char(123,VV[21]);          princ_char(123,VV[21]);
1049          V197= Ct;          V184= Ct;
1050          goto T460;          goto T460;
1051  T460:;  T460:;
1052          base[1]= (V199);          (void)((*(LnkLI72))((V186)));}
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk72)();  
         vs_top=sup;}  
1053          goto T455;          goto T455;
1054  T455:;  T455:;
1055          V198= cdr((V198));          V185= CMPcdr((V185));
1056          V199= car((V198));          V186= CMPcar((V185));
1057          goto T450;}          goto T450;}
1058          goto T446;          goto T446;
1059  T446:;  T446:;
1060          {object V202 = (V197);          {object V189 = (V184);
1061          VMR7(V202)}}          VMR7(V189)}}
1062          base[0]=base[0];          base[0]=base[0];
1063          return Cnil;          return Cnil;
1064  }  }
# Line 1063  T446:; Line 1067  T446:;
1067  static void L8()  static void L8()
1068  {register object *base=vs_base;  {register object *base=vs_base;
1069          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
1070          vs_reserve(VM8);          vs_check;
         check_arg(2);  
1071          vs_top=sup;          vs_top=sup;
1072          {object V203=base[0]->c.c_cdr;          {object V190=base[0]->c.c_cdr;
1073          base[2]= V203;}          base[2]= V190;}
1074          base[3]= make_cons(VV[2],base[2]);          base[3]= make_cons(VV[2],base[2]);
1075          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1076          return;          return;
1077  }  }
1078  /*      local entry for function C1STACK-LET    */  /*      local entry for function C1STACK-LET    */
1079    
1080  static object LI9(V205)  static object LI9(V192)
1081    
1082  object V205;  object V192;
1083  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1084          goto TTL;          goto TTL;
1085  TTL:;  TTL:;
1086          {object V206;          {object V193;
1087          register object V207;          register object V194;
1088          V206= Cnil;          V193= Cnil;
1089          V207= Cnil;          V194= Cnil;
1090          {object V208;          {object V195;
1091          V208= car((V205));          V195= CMPcar((V192));
1092          {register object V209;          {register object V196;
1093          register object V210;          register object V197;
1094          V209= (V208);          V196= (V195);
1095          V210= car((V209));          V197= CMPcar((V196));
1096            goto T478;
1097    T478:;
1098            if(!(((V196))==Cnil)){
1099            goto T479;}
1100            goto T474;
1101          goto T479;          goto T479;
1102  T479:;  T479:;
1103          if(!(endp_prop((V209)))){          {object V198;
1104          goto T480;}          if(!(type_of((V197))!=t_cons)){
1105          goto T475;          goto T486;}
1106          goto T480;          V198= (V197);
1107  T480:;          goto T484;
1108          {object V211;          goto T486;
1109          if(!(type_of((V210))!=t_cons)){  T486:;
1110          goto T487;}          {register object V199;
1111          V211= (V210);          {object V200;
1112          goto T485;          register object V201;
1113          goto T487;          V200= CMPcar((V197));
1114  T487:;          V201= CMPcadr((V197));
1115          {register object V212;          if(type_of((V201))==t_cons){
1116          {object V213;          goto T491;}
1117          register object V214;          V199= Cnil;
1118          V213= car((V210));          goto T488;
1119          V214= cadr((V210));          goto T491;
1120          if(type_of((V214))==t_cons){  T491:;
1121          goto T492;}          if(!((CMPcar((V201)))==(VV[32]))){
1122          V212= Cnil;          goto T495;}
1123          goto T489;          goto T493;
         goto T492;  
 T492:;  
         if(!((car((V214)))==(VV[32]))){  
         goto T496;}  
         goto T494;  
         goto T496;  
 T496:;  
         if((car((V214)))==(VV[33])){  
         goto T498;}  
         goto T495;  
         goto T498;  
 T498:;  
         if((cddr((V214)))==Cnil){  
         goto T500;}  
         goto T495;  
         goto T500;  
 T500:;  
         V214= list(3,VV[32],cadr((V214)),Cnil);  
         if(((V214))!=Cnil){  
         goto T494;}  
1124          goto T495;          goto T495;
1125  T495:;  T495:;
1126          V212= Cnil;          if((CMPcar((V201)))==(VV[33])){
1127          goto T489;          goto T497;}
1128            goto T494;
1129            goto T497;
1130    T497:;
1131            if((CMPcddr((V201)))==Cnil){
1132            goto T499;}
1133            goto T494;
1134            goto T499;
1135    T499:;
1136            V201= list(3,VV[32],CMPcadr((V201)),Cnil);
1137            if(((V201))!=Cnil){
1138            goto T493;}
1139          goto T494;          goto T494;
1140  T494:;  T494:;
1141          {object V215;          V199= Cnil;
1142          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          goto T488;
1143          V215= symbol_value(VV[10]);          goto T493;
1144          V207= make_cons((V215),(V207));}  T493:;
1145          V212= list(2,(V213),listA(3,VV[34],car((V207)),cdr((V214))));}          {object V202;
1146          goto T489;          (VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1));
1147  T489:;          V202= (VV[10]->s.s_dbind);
1148          if(((V212))==Cnil){          V194= make_cons((V202),(V194));}
1149          goto T508;}          V199= list(2,(V200),listA(3,VV[34],CMPcar((V194)),CMPcdr((V201))));}
1150          V211= (V212);          goto T488;
1151          goto T485;  T488:;
1152          goto T508;          if(((V199))==Cnil){
1153  T508:;          goto T507;}
1154          (void)((VFUN_NARGS=3,(*(LnkLI73))(VV[35],(V210),cdr((V205)))));          V198= (V199);
1155          V211= (V210);}          goto T484;
1156          goto T485;          goto T507;
1157  T485:;  T507:;
1158          V206= make_cons((V211),(V206));}          (void)((VFUN_NARGS=3,(*(LnkLI73))(VV[35],(V197),CMPcdr((V192)))));
1159          V209= cdr((V209));          V198= (V197);}
1160          V210= car((V209));          goto T484;
1161          goto T479;}  T484:;
1162          goto T475;          V193= make_cons((V198),(V193));}
1163  T475:;          V196= CMPcdr((V196));
1164          {object V216;          V197= CMPcar((V196));
1165          V217= nreverse((V206));          goto T478;}
1166          V218= listA(3,VV[2],/* INLINE-ARGS */V217,cdr((V205)));          goto T474;
1167          V216= (*(LnkLI74))(/* INLINE-ARGS */V218);  T474:;
1168          {object V219 = list(4,VV[36],cadr((V216)),(V207),(V216));          {object V203;
1169          VMR9(V219)}}}}          V204= nreverse((V193));
1170            V205= listA(3,VV[2],/* INLINE-ARGS */V204,CMPcdr((V192)));
1171            V203= (*(LnkLI74))(/* INLINE-ARGS */V205);
1172            {object V206 = list(4,VV[36],CMPcadr((V203)),(V194),(V203));
1173            VMR9(V206)}}}}
1174          base[0]=base[0];          base[0]=base[0];
1175          return Cnil;          return Cnil;
1176  }  }
1177  /*      local entry for function C2STACK-LET    */  /*      local entry for function C2STACK-LET    */
1178    
1179  static object LI10(V222,V223)  static object LI10(V209,V210)
1180    
1181  object V222;object V223;  object V209;object V210;
1182  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
1183          goto TTL;          goto TTL;
1184  TTL:;  TTL:;
1185          {object V224;          {object V211;
1186          setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));          (VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1));
1187          V224= symbol_value(VV[10]);          V211= (VV[10]->s.s_dbind);
1188          princ_str("\n   {Cons_Macro",VV[21]);          princ_str("\n   {Cons_Macro",VV[21]);
1189          (void)((*(LnkLI75))((V224)));          (void)((*(LnkLI75))((V211)));
1190          princ_char(59,VV[21]);          princ_char(59,VV[21]);
1191          base[0]= (V223);          base[0]= (V210);
1192          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1193          (void) (*Lnk68)();          (void) (*Lnk68)();
1194          vs_top=sup;          vs_top=sup;
1195          princ_char(125,VV[21]);          princ_char(125,VV[21]);
1196          princ_str("\n#define Cons_Macro",VV[37]);          princ_str("\n#define Cons_Macro",VV[37]);
1197          (void)((*(LnkLI76))((V224)));          (void)((*(LnkLI76))((V211)));
1198          base[0]= Cnil;          base[0]= Cnil;
1199          base[1]= VV[38];          base[1]= VV[38];
1200          base[2]= (V222);          base[2]= (V209);
1201          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1202          Lformat();          Lformat();
1203          vs_top=sup;          vs_top=sup;
1204          V225= vs_base[0];          V212= vs_base[0];
1205          (void)((*(LnkLI76))(V225));          (void)((*(LnkLI76))(V212));
1206          {object V226 = Cnil;          {object V213 = Cnil;
1207          VMR10(V226)}}          VMR10(V213)}}
1208          base[0]=base[0];          base[0]=base[0];
1209          return Cnil;          return Cnil;
1210  }  }
# Line 1209  static object  LnkTLI76(object first,... Line 1212  static object  LnkTLI76(object first,...
1212  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* WT1 */
1213  static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C1EXPR */  static object  LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
1214  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* CMPWARN */
1215  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* WT-VAR-DECL */  static object  LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */
1216  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
1217  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED* */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED* */
1218  static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* C2EXPR */  static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* C2EXPR */

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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