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

Diff of /gcl/cmpnew/cmpflet.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 96  goto T29; Line 96  goto T29;
96  T29:;  T29:;
97          {object V20;          {object V20;
98          V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));          V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));
99          (VV[2]->s.s_dbind)= make_cons((V20),(VV[2]->s.s_dbind));          (VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind));
100          V21= list(2,(V20),cdr((V19)));          {object V22;
101          V15= make_cons(/* INLINE-ARGS */V21,(V15));}          V22= list(2,(V20),cdr((V19)));
102            V15= make_cons((V22),(V15));}}
103          V18= cdr((V18));          V18= cdr((V18));
104          V19= car((V18));          V19= car((V18));
105          goto T24;}          goto T24;}
# Line 144  T20:; Line 145  T20:;
145          vs_top=sup;          vs_top=sup;
146          V14= vs_base[0];          V14= vs_base[0];
147          bds_unwind1;          bds_unwind1;
148          {register object V22;          {register object V23;
149          register object V23;          register object V24;
150          V22= reverse((V15));          V23= reverse((V15));
151          V23= car((V22));          V24= car((V23));
 goto T60;  
 T60:;  
         if(!(endp_prop((V22)))){  
         goto T61;}  
         goto T56;  
152  goto T61;  goto T61;
153  T61:;  T61:;
154          if((structure_ref(car((V23)),VV[0],2))==Cnil){          if(!(endp_prop((V23)))){
155          goto T65;}          goto T62;}
156            goto T57;
157    goto T62;
158    T62:;
159            if((structure_ref(car((V24)),VV[0],2))==Cnil){
160            goto T66;}
161          base[2]= make_cons(VV[8],symbol_value(VV[7]));          base[2]= make_cons(VV[8],symbol_value(VV[7]));
162          base[3]= make_cons(VV[8],symbol_value(VV[2]));          base[3]= make_cons(VV[8],symbol_value(VV[2]));
163          base[4]= make_cons(VV[8],symbol_value(VV[9]));          base[4]= make_cons(VV[8],symbol_value(VV[9]));
# Line 165  T61:; Line 166  T61:;
166          bds_bind(VV[2],base[3]);          bds_bind(VV[2],base[3]);
167          bds_bind(VV[9],base[4]);          bds_bind(VV[9],base[4]);
168          bds_bind(VV[10],base[5]);          bds_bind(VV[10],base[5]);
169          {object V24;          {object V25;
170          V25= cadr((V23));          V26= cadr((V24));
171          V26= structure_ref(car((V23)),VV[0],0);          V27= structure_ref(car((V24)),VV[0],0);
172          V24= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26));          V25= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V26,/* INLINE-ARGS */V27));
173          (void)((*(LnkLI51))((V14),cadr((V24))));          (void)((*(LnkLI51))((V14),cadr((V25))));
174          V27= list(2,car((V23)),(V24));          {object V28;
175          V17= make_cons(/* INLINE-ARGS */V27,(V17));          V28= list(2,car((V24)),(V25));
176            V17= make_cons((V28),(V17));
177          bds_unwind1;          bds_unwind1;
178          bds_unwind1;          bds_unwind1;
179          bds_unwind1;          bds_unwind1;
180          bds_unwind1;}          bds_unwind1;}}
181  goto T65;  goto T66;
182  T65:;  T66:;
183          if((structure_ref(car((V23)),VV[0],1))==Cnil){          if((structure_ref(car((V24)),VV[0],1))==Cnil){
184          goto T75;}          goto T77;}
185          base[2]= make_cons(VV[11],symbol_value(VV[9]));          base[2]= make_cons(VV[11],symbol_value(VV[9]));
186          base[3]= make_cons(VV[11],symbol_value(VV[10]));          base[3]= make_cons(VV[11],symbol_value(VV[10]));
187          base[4]= make_cons(VV[11],symbol_value(VV[7]));          base[4]= make_cons(VV[11],symbol_value(VV[7]));
188          bds_bind(VV[9],base[2]);          bds_bind(VV[9],base[2]);
189          bds_bind(VV[10],base[3]);          bds_bind(VV[10],base[3]);
190          bds_bind(VV[7],base[4]);          bds_bind(VV[7],base[4]);
191          {object V28;          {object V29;
192          V29= cadr((V23));          V30= cadr((V24));
193          V30= structure_ref(car((V23)),VV[0],0);          V31= structure_ref(car((V24)),VV[0],0);
194          V28= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V29,/* INLINE-ARGS */V30));          V29= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V30,/* INLINE-ARGS */V31));
195          (void)((*(LnkLI51))((V14),cadr((V28))));          (void)((*(LnkLI51))((V14),cadr((V29))));
196          V31= list(2,car((V23)),(V28));          {object V32;
197          V16= make_cons(/* INLINE-ARGS */V31,(V16));          V32= list(2,car((V24)),(V29));
198          bds_unwind1;          V16= make_cons((V32),(V16));
199          bds_unwind1;          bds_unwind1;
200          bds_unwind1;}          bds_unwind1;
201  goto T75;          bds_unwind1;}}
202  T75:;  goto T77;
203          if((structure_ref(car((V23)),VV[0],1))!=Cnil){  T77:;
204          goto T85;}          if((structure_ref(car((V24)),VV[0],1))!=Cnil){
205          if((structure_ref(car((V23)),VV[0],2))==Cnil){          goto T88;}
206          goto T84;}          if((structure_ref(car((V24)),VV[0],2))==Cnil){
207  goto T85;          goto T87;}
208  T85:;  goto T88;
209          V32= car((V23));  T88:;
210            V33= car((V24));
211          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
212          (void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12])));          (void)(structure_set(/* INLINE-ARGS */V33,VV[0],3,symbol_value(VV[12])));
213  goto T84;  goto T87;
214  T84:;  T87:;
215          V22= cdr((V22));          V23= cdr((V23));
216          V23= car((V22));          V24= car((V23));
217          goto T60;}          goto T61;}
218  goto T56;  goto T57;
219  T56:;  T57:;
220          if(((V16))!=Cnil){          if(((V16))!=Cnil){
221          goto T95;}          goto T98;}
222          if(((V17))==Cnil){          if(((V17))==Cnil){
223          goto T96;}          goto T99;}
224  goto T95;  goto T98;
225  T95:;  T98:;
226          V33= reverse((V16));          V34= reverse((V16));
227          {object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9));          {object V35 = list(5,VV[1],(V14),/* INLINE-ARGS */V34,reverse((V17)),(V9));
228          VMR2(V34)}          VMR2(V35)}
229  goto T96;  goto T99;
230  T96:;  T99:;
231          {object V35 = (V9);          {object V36 = (V9);
232          VMR2(V35)}}          VMR2(V36)}}
233          base[0]=base[0];          base[0]=base[0];
234          return Cnil;          return Cnil;
235  }  }
# Line 237  static void L3() Line 240  static void L3()
240          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
241          vs_reserve(VM3);          vs_reserve(VM3);
242          bds_check;          bds_check;
243          {object V36;          {object V37;
         object V37;  
244          object V38;          object V38;
245            object V39;
246          check_arg(3);          check_arg(3);
247          V36=(base[0]);          V37=(base[0]);
248          V37=(base[1]);          V38=(base[1]);
249          V38=(base[2]);          V39=(base[2]);
250          vs_top=sup;          vs_top=sup;
251  goto TTL;  goto TTL;
252  TTL:;  TTL:;
253          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],symbol_value(VV[13]));
254          bds_bind(VV[14],symbol_value(VV[14]));          bds_bind(VV[14],symbol_value(VV[14]));
255          bds_bind(VV[15],symbol_value(VV[15]));          bds_bind(VV[15],symbol_value(VV[15]));
256          {register object V39;          {register object V40;
257          object V40;          object V41;
258          V39= (V36);          V40= (V37);
259          V40= car((V39));          V41= car((V40));
260  goto T104;  goto T107;
261  T104:;  T107:;
262          if(!(endp_prop((V39)))){          if(!(endp_prop((V40)))){
263          goto T105;}          goto T108;}
264          goto T100;          goto T103;
265  goto T105;  goto T108;
266  T105:;  T108:;
267          (void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41;          (void)(structure_set(car((V41)),VV[0],4,symbol_value(VV[16])));
268          V41= (VV[14]->s.s_dbind);{object V42;          {object V42;{object V43;
269          V42= (VV[15]->s.s_dbind);          V43= (VV[14]->s.s_dbind);{object V44;
270          V43= list(5,Cnil,V41,V42,car((V40)),cadr((V40)));          V44= (VV[15]->s.s_dbind);
271          setq(VV[17],make_cons(/* INLINE-ARGS */V43,symbol_value(VV[17])));}}          V42= list(5,Cnil,V43,V44,car((V41)),cadr((V41)));}}
272          V39= cdr((V39));          setq(VV[17],make_cons((V42),symbol_value(VV[17])));}
273          V40= car((V39));          V40= cdr((V40));
274          goto T104;}          V41= car((V40));
275  goto T100;          goto T107;}
276  T100:;  goto T103;
277          {register object V44;  T103:;
278          register object V45;          {register object V45;
279          V44= (V37);          register object V46;
280          V45= car((V44));          V45= (V38);
281  goto T121;          V46= car((V45));
282  T121:;  goto T125;
283          if(!(endp_prop((V44)))){  T125:;
284          goto T122;}          if(!(endp_prop((V45)))){
285          goto T117;          goto T126;}
286  goto T122;          goto T121;
287  T122:;  goto T126;
288    T126:;
289            {object V47;
290          if(((VV[14]->s.s_dbind))!=Cnil){          if(((VV[14]->s.s_dbind))!=Cnil){
291          goto T130;}          goto T134;}
292          V46= Cnil;          V48= Cnil;
293          goto T128;          goto T132;
294  goto T130;  goto T134;
295  T130:;  T134:;
296          V46= make_cons(small_fixnum(0),small_fixnum(0));          V48= make_cons(small_fixnum(0),small_fixnum(0));
297  goto T128;  goto T132;
298  T128:;{object V47;  T132:;{object V49;
299          V47= (VV[15]->s.s_dbind);          V49= (VV[15]->s.s_dbind);
300          V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45)));          V47= list(5,VV[18],V48,V49,car((V46)),cadr((V46)));}
301          setq(VV[17],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[17])));}          setq(VV[17],make_cons((V47),symbol_value(VV[17])));}
302          setq(VV[19],make_cons(car((V45)),symbol_value(VV[19])));          {object V50;
303          {register object V49;          V50= car((V46));
304          V49= car((V45));          setq(VV[19],make_cons((V50),symbol_value(VV[19])));}
305          V50= (*(LnkLI52))();          {register object V51;
306          (void)(structure_set((V49),VV[0],1,/* INLINE-ARGS */V50));          V51= car((V46));
307            V52= (*(LnkLI52))();
308            (void)(structure_set((V51),VV[0],1,/* INLINE-ARGS */V52));
309          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
310          V51= structure_ref((V49),VV[0],1);          V53= structure_ref((V51),VV[0],1);
311          (void)((*(LnkLI53))(/* INLINE-ARGS */V51));          (void)((*(LnkLI53))(/* INLINE-ARGS */V53));
312          princ_str("=make_cclosure_new(LC",VV[20]);          princ_str("=make_cclosure_new(LC",VV[20]);
313          V52= structure_ref((V49),VV[0],3);          V54= structure_ref((V51),VV[0],3);
314          (void)((*(LnkLI54))(/* INLINE-ARGS */V52));          (void)((*(LnkLI54))(/* INLINE-ARGS */V54));
315          princ_str(",Cnil,",VV[20]);          princ_str(",Cnil,",VV[20]);
316          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
317          princ_str(",Cdata);",VV[20]);          princ_str(",Cdata);",VV[20]);
318          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
319          V53= structure_ref((V49),VV[0],1);          V55= structure_ref((V51),VV[0],1);
320          (void)((*(LnkLI53))(/* INLINE-ARGS */V53));          (void)((*(LnkLI53))(/* INLINE-ARGS */V55));
321          princ_str("=MMcons(",VV[20]);          princ_str("=MMcons(",VV[20]);
322          V54= structure_ref((V49),VV[0],1);          V56= structure_ref((V51),VV[0],1);
323          (void)((*(LnkLI53))(/* INLINE-ARGS */V54));          (void)((*(LnkLI53))(/* INLINE-ARGS */V56));
324          princ_char(44,VV[20]);          princ_char(44,VV[20]);
325          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
326          princ_str(");",VV[20]);          princ_str(");",VV[20]);
327          V55= structure_ref((V49),VV[0],1);          V57= structure_ref((V51),VV[0],1);
328          (void)((*(LnkLI56))(/* INLINE-ARGS */V55));          (void)((*(LnkLI56))(/* INLINE-ARGS */V57));
329          V56= (*(LnkLI57))();          V58= (*(LnkLI57))();
330          (void)(structure_set((V49),VV[0],2,/* INLINE-ARGS */V56));}          (void)(structure_set((V51),VV[0],2,/* INLINE-ARGS */V58));}
331          V44= cdr((V44));          V45= cdr((V45));
332          V45= car((V44));          V46= car((V45));
333          goto T121;}          goto T125;}
334  goto T117;  goto T121;
335  T117:;  T121:;
336          base[6]= (V38);          base[6]= (V39);
337          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
338          (void) (*Lnk58)();          (void) (*Lnk58)();
339          bds_unwind1;          bds_unwind1;
# Line 337  T117:; Line 344  T117:;
344  }  }
345  /*      local entry for function C1LABELS       */  /*      local entry for function C1LABELS       */
346    
347  static object LI4(V58)  static object LI4(V60)
348    
349  object V58;  object V60;
350  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
351          bds_check;          bds_check;
352  goto TTL;  goto TTL;
353  TTL:;  TTL:;
354          {object V59;          {object V61;
         object V60;  
         object V61;  
355          object V62;          object V62;
356          object V63;          object V63;
357          object V64;          object V64;
# Line 354  TTL:; Line 359  TTL:;
359          object V66;          object V66;
360          object V67;          object V67;
361          object V68;          object V68;
362          register object V69;          object V69;
363          V59= Cnil;          object V70;
364          V60= Cnil;          register object V71;
365          V61= Cnil;          V61= Cnil;
366          V62= Cnil;          V62= Cnil;
367          V63= Cnil;          V63= Cnil;
# Line 366  TTL:; Line 371  TTL:;
371          V67= Cnil;          V67= Cnil;
372          V68= Cnil;          V68= Cnil;
373          V69= Cnil;          V69= Cnil;
374            V70= Cnil;
375            V71= Cnil;
376          bds_bind(VV[2],symbol_value(VV[2]));          bds_bind(VV[2],symbol_value(VV[2]));
377          if(!(endp_prop((V58)))){          if(!(endp_prop((V60)))){
378          goto T174;}          goto T180;}
379          (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));
380  goto T174;  goto T180;
381  T174:;  T180:;
382          {object V70;          {object V72;
383          register object V71;          register object V73;
384          V70= car((V58));          V72= car((V60));
385          V71= car((V70));          V73= car((V72));
 goto T181;  
 T181:;  
         if(!(endp_prop((V70)))){  
         goto T182;}  
         goto T177;  
 goto T182;  
 T182:;  
         if(endp_prop((V71))){  
         goto T187;}  
         if(!(type_of(car((V71)))==t_symbol)){  
         goto T187;}  
         if(!(endp_prop(cdr((V71))))){  
         goto T186;}  
386  goto T187;  goto T187;
387  T187:;  T187:;
388          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71))));          if(!(endp_prop((V72)))){
389  goto T186;          goto T188;}
390  T186:;          goto T183;
391          {register object x= car((V71)),V72= (V68);  goto T188;
392          while(!endp(V72))  T188:;
393          if(eql(x,V72->c.c_car)){          if(endp_prop((V73))){
394          goto T195;          goto T193;}
395          }else V72=V72->c.c_cdr;          if(!(type_of(car((V73)))==t_symbol)){
396          goto T193;}          goto T193;}
397  goto T195;          if(!(endp_prop(cdr((V73))))){
398  T195:;          goto T192;}
         (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71)))));  
399  goto T193;  goto T193;
400  T193:;  T193:;
401          V68= make_cons(car((V71)),(V68));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V73))));
402          {object V73;  goto T192;
403          V73= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V71)),VV[5],Cnil,VV[6],Cnil));  T192:;
404          (VV[2]->s.s_dbind)= make_cons((V73),(VV[2]->s.s_dbind));          {register object x= car((V73)),V74= (V70);
405          V74= list(4,(V73),Cnil,Cnil,cdr((V71)));          while(!endp(V74))
406          V65= make_cons(/* INLINE-ARGS */V74,(V65));}          if(eql(x,V74->c.c_car)){
407          V70= cdr((V70));          goto T201;
408          V71= car((V70));          }else V74=V74->c.c_cdr;
409          goto T181;}          goto T199;}
410  goto T177;  goto T201;
411  T177:;  T201:;
412          V65= reverse((V65));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V73)))));
413          base[1]= cdr((V58));  goto T199;
414    T199:;
415            {object V75;
416            V75= car((V73));
417            V70= make_cons((V75),(V70));}
418            {object V76;
419            V76= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V73)),VV[5],Cnil,VV[6],Cnil));
420            (VV[2]->s.s_dbind)= make_cons(V76,(VV[2]->s.s_dbind));
421            {object V78;
422            V78= list(4,(V76),Cnil,Cnil,cdr((V73)));
423            V67= make_cons((V78),(V67));}}
424            V72= cdr((V72));
425            V73= car((V72));
426            goto T187;}
427    goto T183;
428    T183:;
429            V67= reverse((V67));
430            base[1]= cdr((V60));
431          base[2]= Ct;          base[2]= Ct;
432          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
433          (void) (*Lnk45)();          (void) (*Lnk45)();
434          if(vs_base<vs_top){          if(vs_base<vs_top){
         V59= vs_base[0];  
         vs_base++;  
         }else{  
         V59= Cnil;}  
         if(vs_base<vs_top){  
         V60= vs_base[0];  
         vs_base++;  
         }else{  
         V60= Cnil;}  
         if(vs_base<vs_top){  
435          V61= vs_base[0];          V61= vs_base[0];
436          vs_base++;          vs_base++;
437          }else{          }else{
# Line 443  T177:; Line 443  T177:;
443          V62= Cnil;}          V62= Cnil;}
444          if(vs_base<vs_top){          if(vs_base<vs_top){
445          V63= vs_base[0];          V63= vs_base[0];
446            vs_base++;
447          }else{          }else{
448          V63= Cnil;}          V63= Cnil;}
449            if(vs_base<vs_top){
450            V64= vs_base[0];
451            vs_base++;
452            }else{
453            V64= Cnil;}
454            if(vs_base<vs_top){
455            V65= vs_base[0];
456            }else{
457            V65= Cnil;}
458          vs_top=sup;          vs_top=sup;
459          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],symbol_value(VV[7]));
460          (void)((*(LnkLI46))((V60)));          (void)((*(LnkLI46))((V62)));
461          (void)((*(LnkLI47))(Cnil,(V61),(V62)));          (void)((*(LnkLI47))(Cnil,(V63),(V64)));
462          V59= (*(LnkLI48))((V63),(V59));          V61= (*(LnkLI48))((V65),(V61));
463          bds_unwind1;          bds_unwind1;
464          base[1]= cadr((V59));          base[1]= cadr((V61));
465          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
466          (void) (*Lnk49)();          (void) (*Lnk49)();
467          vs_top=sup;          vs_top=sup;
468          V64= vs_base[0];          V66= vs_base[0];
 goto T223;  
 T223:;  
         V69= Cnil;  
         {register object V75;  
         register object V76;  
         V75= (V65);  
         V76= car((V75));  
469  goto T231;  goto T231;
470  T231:;  T231:;
471          if(!(endp_prop((V75)))){          V71= Cnil;
472          goto T232;}          {register object V79;
473          goto T227;          register object V80;
474  goto T232;          V79= (V67);
475  T232:;          V80= car((V79));
476          if((structure_ref(car((V76)),VV[0],1))==Cnil){  goto T239;
477          goto T236;}  T239:;
478          if((cadr((V76)))!=Cnil){          if(!(endp_prop((V79)))){
479          goto T236;}          goto T240;}
480          V69= Ct;          goto T235;
481          if(type_of(cdr(V76))!=t_cons)FEwrong_type_argument(Scons,cdr(V76));  goto T240;
482          (cdr(V76))->c.c_car = Ct;  T240:;
483          (void)(cdr(V76));          if((structure_ref(car((V80)),VV[0],1))==Cnil){
484            goto T244;}
485            if((cadr((V80)))!=Cnil){
486            goto T244;}
487            V71= Ct;
488            if(type_of(cdr(V80))!=t_cons)FEwrong_type_argument(Scons,cdr(V80));
489            (cdr(V80))->c.c_car = Ct;
490            (void)(cdr(V80));
491          base[2]= make_cons(VV[11],symbol_value(VV[9]));          base[2]= make_cons(VV[11],symbol_value(VV[9]));
492          base[3]= make_cons(VV[11],symbol_value(VV[10]));          base[3]= make_cons(VV[11],symbol_value(VV[10]));
493          base[4]= make_cons(VV[11],symbol_value(VV[7]));          base[4]= make_cons(VV[11],symbol_value(VV[7]));
494          bds_bind(VV[9],base[2]);          bds_bind(VV[9],base[2]);
495          bds_bind(VV[10],base[3]);          bds_bind(VV[10],base[3]);
496          bds_bind(VV[7],base[4]);          bds_bind(VV[7],base[4]);
497          {object V79;          {object V83;
498          V80= cadddr((V76));          V84= cadddr((V80));
499          V81= structure_ref(car((V76)),VV[0],0);          V85= structure_ref(car((V80)),VV[0],0);
500          V79= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V80,/* INLINE-ARGS */V81));          V83= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V84,/* INLINE-ARGS */V85));
501          (void)((*(LnkLI51))((V64),cadr((V79))));          (void)((*(LnkLI51))((V66),cadr((V83))));
502          V82= list(2,car((V76)),(V79));          {object V86;
503          V66= make_cons(/* INLINE-ARGS */V82,(V66));          V86= list(2,car((V80)),(V83));
504          bds_unwind1;          V68= make_cons((V86),(V68));
505          bds_unwind1;          bds_unwind1;
506          bds_unwind1;}          bds_unwind1;
507  goto T236;          bds_unwind1;}}
508  T236:;  goto T244;
509          V75= cdr((V75));  T244:;
510          V76= car((V75));          V79= cdr((V79));
511          goto T231;}          V80= car((V79));
512  goto T227;          goto T239;}
513  T227:;  goto T235;
514          if(((V69))!=Cnil){  T235:;
515          goto T224;}          if(((V71))!=Cnil){
516          goto T221;          goto T232;}
517  goto T224;          goto T229;
518  T224:;  goto T232;
519          goto T223;  T232:;
520  goto T221;          goto T231;
521  T221:;  goto T229;
522  goto T261;  T229:;
 T261:;  
         V69= Cnil;  
         {register object V83;  
         register object V84;  
         V83= (V65);  
         V84= car((V83));  
 goto T269;  
 T269:;  
         if(!(endp_prop((V83)))){  
         goto T270;}  
         goto T265;  
523  goto T270;  goto T270;
524  T270:;  T270:;
525          if((structure_ref(car((V84)),VV[0],2))==Cnil){          V71= Cnil;
526          goto T274;}          {register object V87;
527          if((caddr((V84)))!=Cnil){          register object V88;
528          goto T274;}          V87= (V67);
529          V69= Ct;          V88= car((V87));
530          if(type_of(cddr(V84))!=t_cons)FEwrong_type_argument(Scons,cddr(V84));  goto T278;
531          (cddr(V84))->c.c_car = Ct;  T278:;
532          (void)(cddr(V84));          if(!(endp_prop((V87)))){
533            goto T279;}
534            goto T274;
535    goto T279;
536    T279:;
537            if((structure_ref(car((V88)),VV[0],2))==Cnil){
538            goto T283;}
539            if((caddr((V88)))!=Cnil){
540            goto T283;}
541            V71= Ct;
542            if(type_of(cddr(V88))!=t_cons)FEwrong_type_argument(Scons,cddr(V88));
543            (cddr(V88))->c.c_car = Ct;
544            (void)(cddr(V88));
545          base[2]= make_cons(VV[8],symbol_value(VV[7]));          base[2]= make_cons(VV[8],symbol_value(VV[7]));
546          base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));          base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));
547          base[4]= make_cons(VV[8],symbol_value(VV[9]));          base[4]= make_cons(VV[8],symbol_value(VV[9]));
# Line 539  T270:; Line 550  T270:;
550          bds_bind(VV[2],base[3]);          bds_bind(VV[2],base[3]);
551          bds_bind(VV[9],base[4]);          bds_bind(VV[9],base[4]);
552          bds_bind(VV[10],base[5]);          bds_bind(VV[10],base[5]);
553          {object V87;          {object V91;
554          V88= cadddr((V84));          V92= cadddr((V88));
555          V89= structure_ref(car((V84)),VV[0],0);          V93= structure_ref(car((V88)),VV[0],0);
556          V87= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V88,/* INLINE-ARGS */V89));          V91= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V92,/* INLINE-ARGS */V93));
557          (void)((*(LnkLI51))((V64),cadr((V87))));          (void)((*(LnkLI51))((V66),cadr((V91))));
558          V90= list(2,car((V84)),(V87));          {object V94;
559          V67= make_cons(/* INLINE-ARGS */V90,(V67));          V94= list(2,car((V88)),(V91));
560            V69= make_cons((V94),(V69));
561          bds_unwind1;          bds_unwind1;
562          bds_unwind1;          bds_unwind1;
563          bds_unwind1;          bds_unwind1;
564          bds_unwind1;}          bds_unwind1;}}
565    goto T283;
566    T283:;
567            V87= cdr((V87));
568            V88= car((V87));
569            goto T278;}
570  goto T274;  goto T274;
571  T274:;  T274:;
572          V83= cdr((V83));          if(((V71))!=Cnil){
573          V84= car((V83));          goto T271;}
574          goto T269;}          goto T268;
575  goto T265;  goto T271;
576  T265:;  T271:;
577          if(((V69))!=Cnil){          goto T270;
578          goto T262;}  goto T268;
579          goto T259;  T268:;
580  goto T262;          {object V95;
581  T262:;          object V96;
582          goto T261;          V95= (V67);
583  goto T259;          V96= car((V95));
584  T259:;  goto T312;
585          {object V91;  T312:;
586          object V92;          if(!(endp_prop((V95)))){
587          V91= (V65);          goto T313;}
588          V92= car((V91));          goto T308;
589  goto T302;  goto T313;
590  T302:;  T313:;
591          if(!(endp_prop((V91)))){          if((structure_ref(car((V96)),VV[0],1))!=Cnil){
         goto T303;}  
         goto T298;  
 goto T303;  
 T303:;  
         if((structure_ref(car((V92)),VV[0],1))!=Cnil){  
         goto T308;}  
         if((structure_ref(car((V92)),VV[0],2))==Cnil){  
         goto T307;}  
 goto T308;  
 T308:;  
         V93= car((V92));  
         setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));  
         (void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12])));  
 goto T307;  
 T307:;  
         V91= cdr((V91));  
         V92= car((V91));  
         goto T302;}  
 goto T298;  
 T298:;  
         if(((V66))!=Cnil){  
592          goto T318;}          goto T318;}
593          if(((V67))==Cnil){          if((structure_ref(car((V96)),VV[0],2))==Cnil){
594          goto T319;}          goto T317;}
595  goto T318;  goto T318;
596  T318:;  T318:;
597          V94= reverse((V66));          V97= car((V96));
598          {object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59));          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
599            (void)(structure_set(/* INLINE-ARGS */V97,VV[0],3,symbol_value(VV[12])));
600    goto T317;
601    T317:;
602            V95= cdr((V95));
603            V96= car((V95));
604            goto T312;}
605    goto T308;
606    T308:;
607            if(((V68))!=Cnil){
608            goto T328;}
609            if(((V69))==Cnil){
610            goto T329;}
611    goto T328;
612    T328:;
613            V98= reverse((V68));
614            {object V99 = list(5,VV[21],(V66),/* INLINE-ARGS */V98,reverse((V69)),(V61));
615          bds_unwind1;          bds_unwind1;
616          VMR4(V95)}          VMR4(V99)}
617  goto T319;  goto T329;
618  T319:;  T329:;
619          {object V96 = (V59);          {object V100 = (V61);
620          bds_unwind1;          bds_unwind1;
621          VMR4(V96)}}          VMR4(V100)}}
622          base[0]=base[0];          base[0]=base[0];
623          return Cnil;          return Cnil;
624  }  }
# Line 617  static void L5() Line 629  static void L5()
629          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
630          vs_reserve(VM5);          vs_reserve(VM5);
631          bds_check;          bds_check;
632          {object V97;          {object V101;
633          object V98;          object V102;
634          object V99;          object V103;
635          check_arg(3);          check_arg(3);
636          V97=(base[0]);          V101=(base[0]);
637          V98=(base[1]);          V102=(base[1]);
638          V99=(base[2]);          V103=(base[2]);
639          vs_top=sup;          vs_top=sup;
640  goto TTL;  goto TTL;
641  TTL:;  TTL:;
642          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],symbol_value(VV[13]));
643          bds_bind(VV[14],symbol_value(VV[14]));          bds_bind(VV[14],symbol_value(VV[14]));
644          {register object V100;          {register object V104;
645          object V101;          object V105;
646          V100= (V98);          V104= (V102);
647          V101= car((V100));          V105= car((V104));
648  goto T327;  goto T337;
649  T327:;  T337:;
650          if(!(endp_prop((V100)))){          if(!(endp_prop((V104)))){
651          goto T328;}          goto T338;}
652          goto T323;          goto T333;
653  goto T328;  goto T338;
654  T328:;  T338:;
655          {register object V102;          {register object V106;
656          V102= car((V101));          V106= car((V105));
657          V103= (*(LnkLI52))();          V107= (*(LnkLI52))();
658          (void)(structure_set((V102),VV[0],1,/* INLINE-ARGS */V103));          (void)(structure_set((V106),VV[0],1,/* INLINE-ARGS */V107));
659          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
660          V104= structure_ref((V102),VV[0],1);          V108= structure_ref((V106),VV[0],1);
661          (void)((*(LnkLI53))(/* INLINE-ARGS */V104));          (void)((*(LnkLI53))(/* INLINE-ARGS */V108));
662          princ_str("=MMcons(Cnil,",VV[20]);          princ_str("=MMcons(Cnil,",VV[20]);
663          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
664          princ_str(");",VV[20]);          princ_str(");",VV[20]);
665          V105= structure_ref((V102),VV[0],1);          V109= structure_ref((V106),VV[0],1);
666          (void)((*(LnkLI56))(/* INLINE-ARGS */V105));          (void)((*(LnkLI56))(/* INLINE-ARGS */V109));
667          V106= (*(LnkLI57))();          V110= (*(LnkLI57))();
668          (void)(structure_set((V102),VV[0],2,/* INLINE-ARGS */V106));}          (void)(structure_set((V106),VV[0],2,/* INLINE-ARGS */V110));}
669          V100= cdr((V100));          V104= cdr((V104));
670          V101= car((V100));          V105= car((V104));
671          goto T327;}          goto T337;}
672  goto T323;  goto T333;
673  T323:;  T333:;
674          {register object V107;          {register object V111;
675          object V108;          object V112;
676          V107= (V97);          V111= (V101);
677          V108= car((V107));          V112= car((V111));
678  goto T352;  goto T362;
679  T352:;  T362:;
680          if(!(endp_prop((V107)))){          if(!(endp_prop((V111)))){
681          goto T353;}          goto T363;}
682          goto T348;          goto T358;
683  goto T353;  goto T363;
684  T353:;  T363:;
685          (void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109;          (void)(structure_set(car((V112)),VV[0],4,symbol_value(VV[16])));
686          V109= (VV[14]->s.s_dbind);{object V110;          {object V113;{object V114;
687          V110= symbol_value(VV[15]);          V114= (VV[14]->s.s_dbind);{object V115;
         V111= list(5,Cnil,V109,V110,car((V108)),cadr((V108)));  
         setq(VV[17],make_cons(/* INLINE-ARGS */V111,symbol_value(VV[17])));}}  
         V107= cdr((V107));  
         V108= car((V107));  
         goto T352;}  
 goto T348;  
 T348:;  
         {register object V112;  
         register object V113;  
         V112= (V98);  
         V113= car((V112));  
 goto T369;  
 T369:;  
         if(!(endp_prop((V112)))){  
         goto T370;}  
         goto T365;  
 goto T370;  
 T370:;  
         if(((VV[14]->s.s_dbind))!=Cnil){  
         goto T378;}  
         V114= Cnil;  
         goto T376;  
 goto T378;  
 T378:;  
         V114= make_cons(small_fixnum(0),small_fixnum(0));  
 goto T376;  
 T376:;{object V115;  
688          V115= symbol_value(VV[15]);          V115= symbol_value(VV[15]);
689          V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113)));          V113= list(5,Cnil,V114,V115,car((V112)),cadr((V112)));}}
690          setq(VV[17],make_cons(/* INLINE-ARGS */V116,symbol_value(VV[17])));}          setq(VV[17],make_cons((V113),symbol_value(VV[17])));}
691          setq(VV[19],make_cons(car((V113)),symbol_value(VV[19])));          V111= cdr((V111));
692            V112= car((V111));
693            goto T362;}
694    goto T358;
695    T358:;
696            {register object V116;
697            register object V117;
698            V116= (V102);
699            V117= car((V116));
700    goto T380;
701    T380:;
702            if(!(endp_prop((V116)))){
703            goto T381;}
704            goto T376;
705    goto T381;
706    T381:;
707            {object V118;
708            if(((VV[14]->s.s_dbind))!=Cnil){
709            goto T389;}
710            V119= Cnil;
711            goto T387;
712    goto T389;
713    T389:;
714            V119= make_cons(small_fixnum(0),small_fixnum(0));
715    goto T387;
716    T387:;{object V120;
717            V120= symbol_value(VV[15]);
718            V118= list(5,VV[18],V119,V120,car((V117)),cadr((V117)));}
719            setq(VV[17],make_cons((V118),symbol_value(VV[17])));}
720            {object V121;
721            V121= car((V117));
722            setq(VV[19],make_cons((V121),symbol_value(VV[19])));}
723          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
724          V117= structure_ref(car((V113)),VV[0],1);          V122= structure_ref(car((V117)),VV[0],1);
725          (void)((*(LnkLI59))(/* INLINE-ARGS */V117));          (void)((*(LnkLI59))(/* INLINE-ARGS */V122));
726          princ_str("=make_cclosure_new(LC",VV[20]);          princ_str("=make_cclosure_new(LC",VV[20]);
727          V118= structure_ref(car((V113)),VV[0],3);          V123= structure_ref(car((V117)),VV[0],3);
728          (void)((*(LnkLI54))(/* INLINE-ARGS */V118));          (void)((*(LnkLI54))(/* INLINE-ARGS */V123));
729          princ_str(",Cnil,",VV[20]);          princ_str(",Cnil,",VV[20]);
730          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
731          princ_str(",Cdata);",VV[20]);          princ_str(",Cdata);",VV[20]);
732          V112= cdr((V112));          V116= cdr((V116));
733          V113= car((V112));          V117= car((V116));
734          goto T369;}          goto T380;}
735  goto T365;  goto T376;
736  T365:;  T376:;
737          base[5]= (V99);          base[5]= (V103);
738          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
739          (void) (*Lnk58)();          (void) (*Lnk58)();
740          bds_unwind1;          bds_unwind1;
# Line 728  T365:; Line 744  T365:;
744  }  }
745  /*      local entry for function C1MACROLET     */  /*      local entry for function C1MACROLET     */
746    
747  static object LI6(V120)  static object LI6(V125)
748    
749  object V120;  object V125;
750  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
751          bds_check;          bds_check;
752  goto TTL;  goto TTL;
753  TTL:;  TTL:;
754          {object V121;          {object V126;
755          object V122;          object V127;
756          object V123;          object V128;
757          object V124;          object V129;
758          object V125;          object V130;
759          V121= Cnil;          V126= Cnil;
760          V122= Cnil;          V127= Cnil;
761          V123= Cnil;          V128= Cnil;
762          V124= Cnil;          V129= Cnil;
763          V125= Cnil;          V130= Cnil;
764          bds_bind(VV[2],symbol_value(VV[2]));          bds_bind(VV[2],symbol_value(VV[2]));
765          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],symbol_value(VV[7]));
766          if(!(endp_prop((V120)))){          if(!(endp_prop((V125)))){
         goto T402;}  
         (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));  
 goto T402;  
 T402:;  
         {register object V126;  
         register object V127;  
         V126= car((V120));  
         V127= car((V126));  
 goto T409;  
 T409:;  
         if(!(endp_prop((V126)))){  
         goto T410;}  
         goto T405;  
 goto T410;  
 T410:;  
         if(endp_prop((V127))){  
         goto T415;}  
         if(!(type_of(car((V127)))==t_symbol)){  
767          goto T415;}          goto T415;}
768          if(!(endp_prop(cdr((V127))))){          (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));
         goto T414;}  
769  goto T415;  goto T415;
770  T415:;  T415:;
771          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127))));          {register object V131;
772  goto T414;          register object V132;
773  T414:;          V131= car((V125));
774          V128= car((V127));          V132= car((V131));
775          V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127)));  goto T422;
776          V130= list(2,/* INLINE-ARGS */V128,caddr(/* INLINE-ARGS */V129));  T422:;
777          (VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V130,(VV[2]->s.s_dbind));          if(!(endp_prop((V131)))){
778          V126= cdr((V126));          goto T423;}
779          V127= car((V126));          goto T418;
780          goto T409;}  goto T423;
781  goto T405;  T423:;
782  T405:;          if(endp_prop((V132))){
783          base[2]= cdr((V120));          goto T428;}
784            if(!(type_of(car((V132)))==t_symbol)){
785            goto T428;}
786            if(!(endp_prop(cdr((V132))))){
787            goto T427;}
788    goto T428;
789    T428:;
790            (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V132))));
791    goto T427;
792    T427:;
793            {register object V133;
794            V134= car((V132));
795            V135= (*(LnkLI60))(car((V132)),cadr((V132)),cddr((V132)));
796            V133= list(2,/* INLINE-ARGS */V134,caddr(/* INLINE-ARGS */V135));
797            (VV[2]->s.s_dbind)= make_cons((V133),(VV[2]->s.s_dbind));}
798            V131= cdr((V131));
799            V132= car((V131));
800            goto T422;}
801    goto T418;
802    T418:;
803            base[2]= cdr((V125));
804          base[3]= Ct;          base[3]= Ct;
805          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
806          (void) (*Lnk45)();          (void) (*Lnk45)();
807          if(vs_base<vs_top){          if(vs_base<vs_top){
808          V121= vs_base[0];          V126= vs_base[0];
809          vs_base++;          vs_base++;
810          }else{          }else{
811          V121= Cnil;}          V126= Cnil;}
812          if(vs_base<vs_top){          if(vs_base<vs_top){
813          V122= vs_base[0];          V127= vs_base[0];
814          vs_base++;          vs_base++;
815          }else{          }else{
816          V122= Cnil;}          V127= Cnil;}
817          if(vs_base<vs_top){          if(vs_base<vs_top){
818          V123= vs_base[0];          V128= vs_base[0];
819          vs_base++;          vs_base++;
820          }else{          }else{
821          V123= Cnil;}          V128= Cnil;}
822          if(vs_base<vs_top){          if(vs_base<vs_top){
823          V124= vs_base[0];          V129= vs_base[0];
824          vs_base++;          vs_base++;
825          }else{          }else{
826          V124= Cnil;}          V129= Cnil;}
827          if(vs_base<vs_top){          if(vs_base<vs_top){
828          V125= vs_base[0];          V130= vs_base[0];
829          }else{          }else{
830          V125= Cnil;}          V130= Cnil;}
831          vs_top=sup;          vs_top=sup;
832          (void)((*(LnkLI46))((V122)));          (void)((*(LnkLI46))((V127)));
833          (void)((*(LnkLI47))(Cnil,(V123),(V124)));          (void)((*(LnkLI47))(Cnil,(V128),(V129)));
834          {object V131 = (*(LnkLI48))((V125),(V121));          {object V136 = (*(LnkLI48))((V130),(V126));
835          bds_unwind1;          bds_unwind1;
836          bds_unwind1;          bds_unwind1;
837          VMR6(V131)}}          VMR6(V136)}}
838          base[0]=base[0];          base[0]=base[0];
839          return Cnil;          return Cnil;
840  }  }
841  /*      local entry for function C1LOCAL-FUN    */  /*      local entry for function C1LOCAL-FUN    */
842    
843  static object LI7(V133)  static object LI7(V138)
844    
845  register object V133;  register object V138;
846  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
847  goto TTL;  goto TTL;
848  TTL:;  TTL:;
849          {register object V134;          {register object V139;
850          V134= Cnil;          V139= Cnil;
851          {register object V135;          {register object V140;
852          register object V136;          register object V141;
853          V135= symbol_value(VV[2]);          V140= symbol_value(VV[2]);
854          V136= car((V135));          V141= car((V140));
855  goto T438;  goto T452;
856  T438:;  T452:;
857          if(!(endp_prop((V135)))){          if(!(endp_prop((V140)))){
858          goto T439;}          goto T453;}
859          {object V137 = Cnil;          {object V142 = Cnil;
860          VMR7(V137)}          VMR7(V142)}
861  goto T439;  goto T453;
862  T439:;  T453:;
863          if(!(((V136))==(VV[8]))){          if(!(((V141))==(VV[8]))){
864          goto T445;}          goto T459;}
865          V134= Ct;          V139= Ct;
866          goto T443;          goto T457;
867  goto T445;  goto T459;
868  T445:;  T459:;
869          if(!(type_of((V136))==t_cons)){          if(!(type_of((V141))==t_cons)){
870          goto T449;}          goto T463;}
871          if(!((car((V136)))==((V133)))){          if(!((car((V141)))==((V138)))){
         goto T443;}  
         {object V138 = cadr((V136));  
         VMR7(V138)}  
 goto T449;  
 T449:;  
         V139= structure_ref((V136),VV[0],0);  
         if(!((/* INLINE-ARGS */V139)==((V133)))){  
         goto T443;}  
         if(((V134))==Cnil){  
872          goto T457;}          goto T457;}
873          (void)(structure_set((V136),VV[0],2,Ct));          {object V143 = cadr((V141));
874          goto T455;          VMR7(V143)}
875    goto T463;
876    T463:;
877            V144= structure_ref((V141),VV[0],0);
878            if(!((/* INLINE-ARGS */V144)==((V138)))){
879            goto T457;}
880            if(((V139))==Cnil){
881            goto T471;}
882            (void)(structure_set((V141),VV[0],2,Ct));
883            goto T469;
884    goto T471;
885    T471:;
886            (void)(structure_set((V141),VV[0],1,Ct));
887    goto T469;
888    T469:;
889            {object V145 = list(4,VV[26],symbol_value(VV[27]),(V141),(V139));
890            VMR7(V145)}
891  goto T457;  goto T457;
892  T457:;  T457:;
893          (void)(structure_set((V136),VV[0],1,Ct));          V140= cdr((V140));
894  goto T455;          V141= car((V140));
895  T455:;          goto T452;}}
         {object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134));  
         VMR7(V140)}  
 goto T443;  
 T443:;  
         V135= cdr((V135));  
         V136= car((V135));  
         goto T438;}}  
896          base[0]=base[0];          base[0]=base[0];
897          return Cnil;          return Cnil;
898  }  }
899  /*      local entry for function SCH-LOCAL-FUN  */  /*      local entry for function SCH-LOCAL-FUN  */
900    
901  static object LI8(V142)  static object LI8(V147)
902    
903  register object V142;  register object V147;
904  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
905  goto TTL;  goto TTL;
906  TTL:;  TTL:;
907          {register object V143;          {register object V148;
908          register object V144;          register object V149;
909          V143= symbol_value(VV[2]);          V148= symbol_value(VV[2]);
910          V144= car((V143));          V149= car((V148));
911  goto T467;  goto T481;
912  T467:;  T481:;
913          if(!(endp_prop((V143)))){          if(!(endp_prop((V148)))){
914          goto T468;}          goto T482;}
915          {object V145 = (V142);          {object V150 = (V147);
916          VMR8(V145)}          VMR8(V150)}
917  goto T468;  goto T482;
918  T468:;  T482:;
919          if(((V144))==(VV[8])){          if(((V149))==(VV[8])){
920          goto T472;}          goto T486;}
921          if(type_of((V144))==t_cons){          if(type_of((V149))==t_cons){
922          goto T472;}          goto T486;}
923          V146= structure_ref((V144),VV[0],0);          V151= structure_ref((V149),VV[0],0);
924          if(!((/* INLINE-ARGS */V146)==((V142)))){          if(!((/* INLINE-ARGS */V151)==((V147)))){
925          goto T472;}          goto T486;}
926          {object V147 = (V144);          {object V152 = (V149);
927          VMR8(V147)}          VMR8(V152)}
928  goto T472;  goto T486;
929  T472:;  T486:;
930          V143= cdr((V143));          V148= cdr((V148));
931          V144= car((V143));          V149= car((V148));
932          goto T467;}          goto T481;}
933          base[0]=base[0];          base[0]=base[0];
934          return Cnil;          return Cnil;
935  }  }
936  /*      local entry for function C1LOCAL-CLOSURE        */  /*      local entry for function C1LOCAL-CLOSURE        */
937    
938  static object LI9(V149)  static object LI9(V154)
939    
940  register object V149;  register object V154;
941  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
942  goto TTL;  goto TTL;
943  TTL:;  TTL:;
944          {register object V150;          {register object V155;
945          V150= Cnil;          V155= Cnil;
946          {register object V151;          {register object V156;
947          register object V152;          register object V157;
948          V151= symbol_value(VV[2]);          V156= symbol_value(VV[2]);
949          V152= car((V151));          V157= car((V156));
950  goto T488;  goto T502;
951  T488:;  T502:;
952          if(!(endp_prop((V151)))){          if(!(endp_prop((V156)))){
953          goto T489;}          goto T503;}
954          {object V153 = Cnil;          {object V158 = Cnil;
955          VMR9(V153)}          VMR9(V158)}
956  goto T489;  goto T503;
957  T489:;  T503:;
958          if(!(((V152))==(VV[8]))){          if(!(((V157))==(VV[8]))){
959          goto T495;}          goto T509;}
960          V150= Ct;          V155= Ct;
961          goto T493;          goto T507;
962  goto T495;  goto T509;
963  T495:;  T509:;
964          if(!(type_of((V152))==t_cons)){          if(!(type_of((V157))==t_cons)){
965          goto T499;}          goto T513;}
966          if(!((car((V152)))==((V149)))){          if(!((car((V157)))==((V154)))){
967          goto T493;}          goto T507;}
968          {object V154 = cadr((V152));          {object V159 = cadr((V157));
969          VMR9(V154)}          VMR9(V159)}
970  goto T499;  goto T513;
971  T499:;  T513:;
972          V155= structure_ref((V152),VV[0],0);          V160= structure_ref((V157),VV[0],0);
973          if(!((/* INLINE-ARGS */V155)==((V149)))){          if(!((/* INLINE-ARGS */V160)==((V154)))){
974          goto T493;}          goto T507;}
975          (void)(structure_set((V152),VV[0],2,Ct));          (void)(structure_set((V157),VV[0],2,Ct));
976          {object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150));          {object V161 = list(4,VV[26],symbol_value(VV[27]),(V157),(V155));
977          VMR9(V156)}          VMR9(V161)}
978  goto T493;  goto T507;
979  T493:;  T507:;
980          V151= cdr((V151));          V156= cdr((V156));
981          V152= car((V151));          V157= car((V156));
982          goto T488;}}          goto T502;}}
983          base[0]=base[0];          base[0]=base[0];
984          return Cnil;          return Cnil;
985  }  }
986  /*      local entry for function C2CALL-LOCAL   */  /*      local entry for function C2CALL-LOCAL   */
987    
988  static object LI10(V159,V160)  static object LI10(V164,V165)
989    
990  register object V159;register object V160;  register object V164;register object V165;
991  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
992          bds_check;          bds_check;
993  goto TTL;  goto TTL;
994  TTL:;  TTL:;
995          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],symbol_value(VV[13]));
996          if((cadr((V159)))==Cnil){          if((cadr((V164)))==Cnil){
997          goto T513;}          goto T527;}
998          (void)((*(LnkLI61))((V160)));          (void)((*(LnkLI61))((V165)));
999          princ_str("\n   cclosure_call(",VV[20]);          princ_str("\n   cclosure_call(",VV[20]);
1000          V161= structure_ref(car((V159)),VV[0],2);          V166= structure_ref(car((V164)),VV[0],2);
1001          (void)((*(LnkLI62))(/* INLINE-ARGS */V161));          (void)((*(LnkLI62))(/* INLINE-ARGS */V166));
1002          princ_str(");",VV[20]);          princ_str(");",VV[20]);
1003          goto T511;          goto T525;
1004  goto T513;  goto T527;
1005  T513:;  T527:;
1006          if(!(type_of((V160))==t_cons||((V160))==Cnil)){          if(!(type_of((V165))==t_cons||((V165))==Cnil)){
1007          goto T521;}          goto T535;}
1008          if((symbol_value(VV[28]))==Cnil){          if((symbol_value(VV[28]))==Cnil){
1009          goto T521;}          goto T535;}
1010          if((symbol_value(VV[29]))==Cnil){          if((symbol_value(VV[29]))==Cnil){
1011          goto T521;}          goto T535;}
1012          if(!((car(symbol_value(VV[29])))==(car((V159))))){          if(!((car(symbol_value(VV[29])))==(car((V164))))){
1013          goto T521;}          goto T535;}
1014          if(!((symbol_value(VV[30]))==(VV[31]))){          if(!((symbol_value(VV[30]))==(VV[31]))){
1015          goto T521;}          goto T535;}
1016          if(((*(LnkLI63))())==Cnil){          if(((*(LnkLI63))())==Cnil){
1017          goto T521;}          goto T535;}
1018          if(!(((long)length((V160)))==((long)length(cdr(symbol_value(VV[29])))))){          if(!(((long)length((V165)))==((long)length(cdr(symbol_value(VV[29])))))){
1019          goto T521;}          goto T535;}
1020          bds_bind(VV[32],VV[33]);          bds_bind(VV[32],VV[33]);
1021          setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));          setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));
1022          bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil));          bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil));
1023          bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35])));          bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35])));
1024          {object V163;          {object V168;
1025          object V164= cdr(symbol_value(VV[29]));          object V169= cdr(symbol_value(VV[29]));
1026          if(endp(V164)){          if(endp(V169)){
1027          V162= Cnil;          V167= Cnil;
1028          goto T540;}          goto T554;}
1029          base[4]=V163=MMcons(Cnil,Cnil);          base[4]=V168=MMcons(Cnil,Cnil);
1030  goto T541;  goto T555;
1031  T541:;  T555:;
1032          (V163->c.c_car)= list(2,(V164->c.c_car),Cnil);          (V168->c.c_car)= list(2,(V169->c.c_car),Cnil);
1033          V164=MMcdr(V164);          V169=MMcdr(V169);
1034          if(endp(V164)){          if(endp(V169)){
1035          V162= base[4];          V167= base[4];
1036          goto T540;}          goto T554;}
1037          V163=MMcdr(V163)=MMcons(Cnil,Cnil);          V168=MMcdr(V168)=MMcons(Cnil,Cnil);
1038          goto T541;}          goto T555;}
1039  goto T540;  goto T554;
1040  T540:;  T554:;
1041          (void)((*(LnkLI64))(V162,(V160)));          (void)((*(LnkLI64))(V167,(V165)));
1042          if((cdr((VV[30]->s.s_dbind)))==Cnil){          if((cdr((VV[30]->s.s_dbind)))==Cnil){
1043          bds_unwind1;          bds_unwind1;
1044          bds_unwind1;          bds_unwind1;
1045          bds_unwind1;          bds_unwind1;
1046          goto T535;}          goto T549;}
1047          princ_str("\ngoto T",VV[20]);          princ_str("\ngoto T",VV[20]);
1048          (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));          (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));
1049          princ_char(59,VV[20]);          princ_char(59,VV[20]);
# Line 1036  T540:; Line 1053  T540:;
1053          bds_unwind1;          bds_unwind1;
1054          bds_unwind1;          bds_unwind1;
1055          bds_unwind1;          bds_unwind1;
1056  goto T535;  goto T549;
1057  T535:;  T549:;
1058          (void)((*(LnkLI65))(VV[36]));          (void)((*(LnkLI65))(VV[36]));
1059          princ_str("\n   goto TTL;",VV[20]);          princ_str("\n   goto TTL;",VV[20]);
1060          V166= structure_ref(car((V159)),VV[0],0);          V171= structure_ref(car((V164)),VV[0],0);
1061          (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166)));          (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V171)));
1062          goto T511;          goto T525;
1063  goto T521;  goto T535;
1064  T521:;  T535:;
1065          (void)((*(LnkLI61))((V160)));          (void)((*(LnkLI61))((V165)));
1066          princ_str("\n   L",VV[20]);          princ_str("\n   L",VV[20]);
1067          V167= structure_ref(car((V159)),VV[0],3);          V172= structure_ref(car((V164)),VV[0],3);
1068          (void)((*(LnkLI54))(/* INLINE-ARGS */V167));          (void)((*(LnkLI54))(/* INLINE-ARGS */V172));
1069          princ_char(40,VV[20]);          princ_char(40,VV[20]);
1070          {register long V168;          {register long V173;
1071          register long V169;          register long V174;
1072          V168= fix(structure_ref(car((V159)),VV[0],4));          V173= fix(structure_ref(car((V164)),VV[0],4));
1073          V169= 0;          V174= 0;
1074  goto T564;  goto T578;
1075  T564:;  T578:;
1076          if(!((V169)>=(V168))){          if(!((V174)>=(V173))){
1077          goto T565;}          goto T579;}
1078          goto T560;          goto T574;
1079  goto T565;  goto T579;
1080  T565:;  T579:;
1081          princ_str("base",VV[20]);          princ_str("base",VV[20]);
1082          V170 = make_fixnum(V169);          V175 = make_fixnum(V174);
1083          (void)((*(LnkLI54))(V170));          (void)((*(LnkLI54))(V175));
1084          princ_char(44,VV[20]);          princ_char(44,VV[20]);
1085          V169= (long)(V169)+1;          V174= (long)(V174)+1;
         goto T564;}  
 goto T560;  
 T560:;  
         princ_str("base",VV[20]);  
         V171= structure_ref(car((V159)),VV[0],4);  
         if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){  
1086          goto T578;}          goto T578;}
1087          V172= structure_ref(car((V159)),VV[0],4);  goto T574;
1088          (void)((*(LnkLI54))(/* INLINE-ARGS */V172));  T574:;
1089  goto T578;          princ_str("base",VV[20]);
1090  T578:;          V176= structure_ref(car((V164)),VV[0],4);
1091            if(number_compare(/* INLINE-ARGS */V176,symbol_value(VV[16]))==0){
1092            goto T592;}
1093            V177= structure_ref(car((V164)),VV[0],4);
1094            (void)((*(LnkLI54))(/* INLINE-ARGS */V177));
1095    goto T592;
1096    T592:;
1097          princ_str(");",VV[20]);          princ_str(");",VV[20]);
1098          setq(VV[38],Ct);          setq(VV[38],Ct);
1099  goto T511;  goto T525;
1100  T511:;  T525:;
1101          {object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));          {object V178 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));
1102          bds_unwind1;          bds_unwind1;
1103          VMR10(V173)}          VMR10(V178)}
1104          base[0]=base[0];          base[0]=base[0];
1105          return Cnil;          return Cnil;
1106  }  }

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

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