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

Diff of /gcl/lsp/gcl_trace.c

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:33 2003 UTC
# Line 7  void init_gcl_trace(){do_init(VV);} Line 7  void init_gcl_trace(){do_init(VV);}
7  static void L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
         check_arg(2);  
11          vs_top=sup;          vs_top=sup;
12          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
13          base[2]= V1;}          base[2]= V1;}
# Line 28  T2:; Line 27  T2:;
27  static void L2()  static void L2()
28  {register object *base=vs_base;  {register object *base=vs_base;
29          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
30          vs_reserve(VM2);          vs_check;
         check_arg(2);  
31          vs_top=sup;          vs_top=sup;
32          {object V2=base[0]->c.c_cdr;          {object V2=base[0]->c.c_cdr;
33          base[2]= V2;}          base[2]= V2;}
# Line 67  T8:; Line 65  T8:;
65          register object V11;          register object V11;
66          register object V12;          register object V12;
67          register object V13;          register object V13;
68          V5= cdr((V4));          V5= CMPcdr((V4));
69          V7= list(3,VV[12],list(2,VV[7],car((V4))),VV[13]);          V7= list(3,VV[12],list(2,VV[7],CMPcar((V4))),VV[13]);
70          V8= list(3,VV[12],list(2,VV[7],car((V4))),VV[14]);          V8= list(3,VV[12],list(2,VV[7],CMPcar((V4))),VV[14]);
71          V6= Cnil;          V6= Cnil;
72          V9= Ct;          V9= Ct;
73          V10= Ct;          V10= Ct;
# Line 101  T25:; Line 99  T25:;
99          V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));          V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));
100          goto T20;          goto T20;
101  T20:;  T20:;
102          V15= car((V4));          V15= CMPcar((V4));
103          V16= list(2,VV[7],(V9));          V16= list(2,VV[7],(V9));
104          V17= list(2,VV[7],(V10));          V17= list(2,VV[7],(V10));
105          V18= list(2,VV[7],(V7));          V18= list(2,VV[7],(V7));
# Line 110  T20:; Line 108  T20:;
108          VMR3(V20)}          VMR3(V20)}
109          goto T17;          goto T17;
110  T17:;  T17:;
111          {object V21= car((V5));          {object V21= CMPcar((V5));
112          if((V21!= VV[29]))goto T38;          if((V21!= VV[29]))goto T38;
113          {register object V22;          {register object V22;
114          register object V23;          register object V23;
115          V22= cadr((V5));          V22= CMPcadr((V5));
116          V23= Cnil;          V23= Cnil;
117          goto T42;          goto T42;
118  T42:;  T42:;
# Line 124  T42:; Line 122  T42:;
122          goto T39;          goto T39;
123          goto T43;          goto T43;
124  T43:;  T43:;
125          if(!(type_of(car((V22)))==t_symbol)){          if(!(type_of(CMPcar((V22)))==t_symbol)){
126          goto T51;}          goto T51;}
127          V24= make_cons(car((V22)),Cnil);          V24= make_cons(CMPcar((V22)),Cnil);
128          goto T49;          goto T49;
129          goto T51;          goto T51;
130  T51:;  T51:;
131          V25= caar((V22));          V25= CMPcaar((V22));
132          base[0]= cadar((V22));          base[0]= CMPcadar((V22));
133          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
134          Leval();          Leval();
135          vs_top=sup;          vs_top=sup;
# Line 140  T51:; Line 138  T51:;
138          goto T49;          goto T49;
139  T49:;  T49:;
140          V23= make_cons(V24,(V23));          V23= make_cons(V24,(V23));
141          V22= cdr((V22));          V22= CMPcdr((V22));
142          goto T42;}          goto T42;}
143          goto T39;          goto T39;
144  T39:;  T39:;
# Line 148  T39:; Line 146  T39:;
146          goto T38;          goto T38;
147  T38:;  T38:;
148          if((V21!= VV[98]))goto T58;          if((V21!= VV[98]))goto T58;
149          V9= cadr((V5));          V9= CMPcadr((V5));
150          goto T37;          goto T37;
151          goto T58;          goto T58;
152  T58:;  T58:;
153          if((V21!= VV[99]))goto T60;          if((V21!= VV[99]))goto T60;
154          V10= cadr((V5));          V10= CMPcadr((V5));
155          goto T37;          goto T37;
156          goto T60;          goto T60;
157  T60:;  T60:;
158          if((V21!= VV[100]))goto T62;          if((V21!= VV[100]))goto T62;
159          V7= cadr((V5));          V7= CMPcadr((V5));
160          goto T37;          goto T37;
161          goto T62;          goto T62;
162  T62:;  T62:;
163          if((V21!= VV[101]))goto T64;          if((V21!= VV[101]))goto T64;
164          V11= cadr((V5));          V11= CMPcadr((V5));
165          goto T37;          goto T37;
166          goto T64;          goto T64;
167  T64:;  T64:;
168          if((V21!= VV[102]))goto T66;          if((V21!= VV[102]))goto T66;
169          V8= cadr((V5));          V8= CMPcadr((V5));
170          goto T37;          goto T37;
171          goto T66;          goto T66;
172  T66:;  T66:;
173          if((V21!= VV[28]))goto T68;          if((V21!= VV[28]))goto T68;
174          V12= cadr((V5));          V12= CMPcadr((V5));
175          goto T37;          goto T37;
176          goto T68;          goto T68;
177  T68:;}  T68:;}
178          goto T37;          goto T37;
179  T37:;  T37:;
180          V5= cddr((V5));          V5= CMPcddr((V5));
181          goto T16;}          goto T16;}
182          base[0]=base[0];          base[0]=base[0];
183          return Cnil;          return Cnil;
# Line 205  T73:; Line 203  T73:;
203          Llast();          Llast();
204          vs_top=sup;          vs_top=sup;
205          V30= vs_base[0];          V30= vs_base[0];
206          if((cdr(V30))!=Cnil){          if((CMPcdr(V30))!=Cnil){
207          goto T76;}          goto T76;}
208          {object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);          {object V31 = (*(LnkLI103))((V28),CMPcdr((V28)),Cnil);
209          VMR4(V31)}          VMR4(V31)}
210          goto T76;          goto T76;
211  T76:;  T76:;
# Line 233  TTL:; Line 231  TTL:;
231          V35= Cnil;          V35= Cnil;
232          if(!(type_of((V34))==t_cons)){          if(!(type_of((V34))==t_cons)){
233          goto T86;}          goto T86;}
234          if(!(type_of(car((V34)))==t_cons)){          if(!(type_of(CMPcar((V34)))==t_cons)){
235          goto T91;}          goto T91;}
236          V35= car((V34));          V35= CMPcar((V34));
237          goto T89;          goto T89;
238          goto T91;          goto T91;
239  T91:;  T91:;
240          V35= list(2,car((V34)),Cnil);          V35= list(2,CMPcar((V34)),Cnil);
241          goto T89;          goto T89;
242  T89:;  T89:;
243          if(type_of(car((V35)))==t_symbol){          if(type_of(CMPcar((V35)))==t_symbol){
244          goto T93;}          goto T93;}
245          base[0]= VV[22];          base[0]= VV[22];
246          base[1]= car((V35));          base[1]= CMPcar((V35));
247          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
248          Lerror();          Lerror();
249          vs_top=sup;          vs_top=sup;
250          goto T93;          goto T93;
251  T93:;  T93:;
252          if((cddr((V35)))==Cnil){          if((CMPcddr((V35)))==Cnil){
253          goto T98;}          goto T98;}
254          base[0]= VV[23];          base[0]= VV[23];
255          base[1]= (V35);          base[1]= (V35);
# Line 260  T93:; Line 258  T93:;
258          vs_top=sup;          vs_top=sup;
259          goto T98;          goto T98;
260  T98:;  T98:;
261          V37= car((V35));          V37= CMPcar((V35));
262          V38= (*(LnkLI104))();          V38= (*(LnkLI104))();
263          {register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38;          {register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38;
264          while(!endp(V36))          while(V36!=Cnil)
265          if(type_of(V36->c.c_car)==t_cons &&eql(x,V36->c.c_car->c.c_car)){          if(eql(x,V36->c.c_car->c.c_car) &&V36->c.c_car != Cnil){
266          goto T105;          goto T105;
267          }else V36=V36->c.c_cdr;          }else V36=V36->c.c_cdr;
268          goto T104;}          goto T104;}
269          goto T105;          goto T105;
270  T105:;  T105:;
271          base[0]= VV[24];          base[0]= VV[24];
272          base[1]= car((V35));          base[1]= CMPcar((V35));
273          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
274          Lerror();          Lerror();
275          vs_top=sup;          vs_top=sup;
# Line 298  register object V45;register object V46; Line 296  register object V45;register object V46;
296  TTL:;  TTL:;
297          if(((V46))==Cnil){          if(((V46))==Cnil){
298          goto T109;}          goto T109;}
299          if((cdr((V46)))!=Cnil){          if((CMPcdr((V46)))!=Cnil){
300          goto T112;}          goto T112;}
301          base[0]= VV[25];          base[0]= VV[25];
302          base[1]= (V45);          base[1]= (V45);
# Line 309  TTL:; Line 307  TTL:;
307          VMR6(V48)}          VMR6(V48)}
308          goto T112;          goto T112;
309  T112:;  T112:;
310          {register object x= car((V46)),V49= (V47);          {register object x= CMPcar((V46)),V49= (V47);
311          while(!endp(V49))          while(V49!=Cnil)
312          if(eql(x,V49->c.c_car)){          if(eql(x,V49->c.c_car)){
313          goto T118;          goto T118;
314          }else V49=V49->c.c_cdr;          }else V49=V49->c.c_cdr;
# Line 318  T112:; Line 316  T112:;
316          goto T118;          goto T118;
317  T118:;  T118:;
318          base[0]= VV[26];          base[0]= VV[26];
319          base[1]= car((V46));          base[1]= CMPcar((V46));
320          base[2]= (V45);          base[2]= (V45);
321          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
322          Lerror();          Lerror();
# Line 327  T118:; Line 325  T118:;
325          VMR6(V50)}          VMR6(V50)}
326          goto T117;          goto T117;
327  T117:;  T117:;
328          {object V51= car((V46));          {object V51= CMPcar((V46));
329          if((V51!= VV[100])          if((V51!= VV[100])
330          && (V51!= VV[102])          && (V51!= VV[102])
331          && (V51!= VV[98])          && (V51!= VV[98])
332          && (V51!= VV[99])          && (V51!= VV[99])
333          && (V51!= VV[101]))goto T122;          && (V51!= VV[101]))goto T122;
334          {object V52;          {object V52;
335          V52= cddr((V46));          V52= CMPcddr((V46));
336          V47= make_cons(car((V46)),(V47));          V47= make_cons(CMPcar((V46)),(V47));
337          V46= (V52);}          V46= (V52);}
338          goto TTL;          goto TTL;
339          goto T122;          goto T122;
340  T122:;  T122:;
341          if((V51!= VV[28]))goto T127;          if((V51!= VV[28]))goto T127;
342          {object V53= cadr((V46));          {object V53= CMPcadr((V46));
343          if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){          if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){
344          goto T129;}}          goto T129;}}
345          if(number_compare(cadr((V46)),small_fixnum(0))>0){          if(number_compare(CMPcadr((V46)),small_fixnum(0))>0){
346          goto T128;}          goto T128;}
347          goto T129;          goto T129;
348  T129:;  T129:;
349          base[0]= VV[27];          base[0]= VV[27];
350          base[1]= cadr((V46));          base[1]= CMPcadr((V46));
351          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
352          Lerror();          Lerror();
353          vs_top=sup;          vs_top=sup;
354          goto T128;          goto T128;
355  T128:;  T128:;
356          V46= cddr((V46));          V46= CMPcddr((V46));
357          V47= make_cons(VV[28],(V47));          V47= make_cons(VV[28],(V47));
358          goto TTL;          goto TTL;
359          goto T127;          goto T127;
360  T127:;  T127:;
361          if((V51!= VV[29]))goto T139;          if((V51!= VV[29]))goto T139;
362          (void)((*(LnkLI105))(cadr((V46))));          (void)((*(LnkLI105))(CMPcadr((V46))));
363          V46= cddr((V46));          V46= CMPcddr((V46));
364          V47= make_cons(VV[29],(V47));          V47= make_cons(VV[29],(V47));
365          goto TTL;          goto TTL;
366          goto T139;          goto T139;
367  T139:;  T139:;
368          base[0]= VV[30];          base[0]= VV[30];
369          base[1]= (V45);          base[1]= (V45);
370          base[2]= car((V46));          base[2]= CMPcar((V46));
371          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
372          Lerror();          Lerror();
373          vs_top=sup;          vs_top=sup;
# Line 395  TTL:; Line 393  TTL:;
393          V58= Cnil;          V58= Cnil;
394          if(!(type_of((V57))==t_cons)){          if(!(type_of((V57))==t_cons)){
395          goto T151;}          goto T151;}
396          V59= car((V57));          V59= CMPcar((V57));
397          goto T149;          goto T149;
398          goto T151;          goto T151;
399  T151:;  T151:;
# Line 408  T149:; Line 406  T149:;
406          vs_top=sup;          vs_top=sup;
407          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
408          goto T153;}          goto T153;}
409          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
410          base[2]= VV[32];          base[2]= VV[32];
411          base[3]= (V59);          base[3]= (V59);
412          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 424  T153:; Line 422  T153:;
422          vs_top=sup;          vs_top=sup;
423          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
424          goto T161;}          goto T161;}
425          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
426          base[2]= VV[33];          base[2]= VV[33];
427          base[3]= (V59);          base[3]= (V59);
428          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 440  T161:; Line 438  T161:;
438          vs_top=sup;          vs_top=sup;
439          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
440          goto T169;}          goto T169;}
441          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
442          base[2]= VV[34];          base[2]= VV[34];
443          base[3]= (V59);          base[3]= (V59);
444          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 450  T161:; Line 448  T161:;
448          VMR7(V62)}          VMR7(V62)}
449          goto T169;          goto T169;
450  T169:;  T169:;
451          if((get((V59),VV[35],Cnil))==Cnil){          {object V63 =((V59))->s.s_plist;
452             object ind= VV[35];
453            while(V63!=Cnil){
454            if(V63->c.c_car==ind){
455            if(((V63->c.c_cdr->c.c_car))==Cnil){
456          goto T177;}          goto T177;}
457            goto T179;
458            }else V63=V63->c.c_cdr->c.c_cdr;}
459            goto T177;}
460            goto T179;
461    T179:;
462          (void)((*(LnkLI106))((V59)));          (void)((*(LnkLI106))((V59)));
463          goto T177;          goto T177;
464  T177:;  T177:;
# Line 470  T177:; Line 477  T177:;
477          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
478          siLfset();          siLfset();
479          vs_top=sup;          vs_top=sup;
480          base[1]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],cddr((V57))));          base[1]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],CMPcddr((V57))));
481          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
482          Leval();          Leval();
483          vs_top=sup;          vs_top=sup;
484          (void)(putprop((V59),(V58),VV[35]));          (void)(putprop((V59),(V58),VV[35]));
485          V63= make_cons((V59),cadr((V57)));          V64= make_cons((V59),CMPcadr((V57)));
486          setq(VV[40],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[40])));          (VV[40]->s.s_dbind)= make_cons(/* INLINE-ARGS */V64,(VV[40]->s.s_dbind));
487          {object V64 = make_cons((V59),Cnil);          {object V65 = make_cons((V59),Cnil);
488          VMR7(V64)}}          VMR7(V65)}}
489          base[0]=base[0];          base[0]=base[0];
490          return Cnil;          return Cnil;
491  }  }
492  /*      local entry for function RESET-TRACE-DECLARATIONS       */  /*      local entry for function RESET-TRACE-DECLARATIONS       */
493    
494  static object LI8(V66)  static object LI8(V67)
495    
496  register object V66;  register object V67;
497  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
498          goto TTL;          goto TTL;
499  TTL:;  TTL:;
500          if(((V66))==Cnil){          if(((V67))==Cnil){
501          goto T194;}          goto T194;}
502          base[0]= caar((V66));          base[0]= CMPcaar((V67));
503          base[1]= cdar((V66));          base[1]= CMPcdar((V67));
504          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
505          Lset();          Lset();
506          vs_top=sup;          vs_top=sup;
507          V66= cdr((V66));          V67= CMPcdr((V67));
508          goto TTL;          goto TTL;
509          goto T194;          goto T194;
510  T194:;  T194:;
511          {object V67 = Cnil;          {object V68 = Cnil;
512          VMR8(V67)}          VMR8(V68)}
513          base[0]=base[0];          base[0]=base[0];
514          return Cnil;          return Cnil;
515  }  }
# Line 513  static object LI9() Line 520  static object LI9()
520  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
521          goto TTL;          goto TTL;
522  TTL:;  TTL:;
         {register object V68;  
         V68= Cnil;  
523          {register object V69;          {register object V69;
524          register object V70;          V69= Cnil;
525          V69= symbol_value(VV[40]);          {register object V70;
526          V70= car((V69));          register object V71;
527            V70= (VV[40]->s.s_dbind);
528            V71= CMPcar((V70));
529          goto T206;          goto T206;
530  T206:;  T206:;
531          if(!(endp_prop((V69)))){          if(!(((V70))==Cnil)){
532          goto T207;}          goto T207;}
533          goto T202;          goto T202;
534          goto T207;          goto T207;
535  T207:;  T207:;
536          V68= append((V68),cdr((V70)));          V69= append((V69),CMPcdr((V71)));
537          V69= cdr((V69));          V70= CMPcdr((V70));
538          V70= car((V69));          V71= CMPcar((V70));
539          goto T206;}          goto T206;}
540          goto T202;          goto T202;
541  T202:;  T202:;
542          {object V71 = (V68);          {object V72 = (V69);
543          VMR9(V71)}}          VMR9(V72)}}
544          base[0]=base[0];          base[0]=base[0];
545          return Cnil;          return Cnil;
546  }  }
# Line 542  T202:; Line 549  T202:;
549  static void L10()  static void L10()
550  {register object *base=vs_base;  {register object *base=vs_base;
551          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
552          vs_reserve(VM10);          vs_check;
553          bds_check;          bds_check;
554          {object V72;          {object V73;
555          register object V73;          register object V74;
         object V74;  
556          object V75;          object V75;
557          object V76;          object V76;
558          object V77;          object V77;
559          object V78;          object V78;
560          check_arg(7);          object V79;
561          V72=(base[0]);          V73=(base[0]);
562          V73=(base[1]);          V74=(base[1]);
563          V74=(base[2]);          V75=(base[2]);
564          V75=(base[3]);          V76=(base[3]);
565          V76=(base[4]);          V77=(base[4]);
566          V77=(base[5]);          V78=(base[5]);
567          V78=(base[6]);          V79=(base[6]);
568          vs_top=sup;          vs_top=sup;
569          goto TTL;          goto TTL;
570  TTL:;  TTL:;
571          {register object V79;          {register object V80;
572          object V80;          object V81;
573          bds_bind(VV[41],symbol_value(VV[41]));          bds_bind(VV[41],(VV[41]->s.s_dbind));
         V79= Cnil;  
574          V80= Cnil;          V80= Cnil;
575            V81= Cnil;
576          if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){          if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){
577          goto T220;}          goto T220;}
578          V81= (*(LnkLI104))();          V82= (*(LnkLI104))();
579          (void)((*(LnkLI109))(/* INLINE-ARGS */V81));          (void)((*(LnkLI109))(/* INLINE-ARGS */V82));
580          goto T220;          goto T220;
581  T220:;  T220:;
582          V82= list(2,VV[13],list(2,VV[7],(V73)));          V83= list(2,VV[13],list(2,VV[7],(V74)));
583          base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74));          base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V83,Cnil),(V75));
584          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
585          Leval();          Leval();
586          vs_top=sup;          vs_top=sup;
587          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
588          goto T224;}          goto T224;}
589          (VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind));          (VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind));
590          V83= number_times((VV[41]->s.s_dbind),small_fixnum(2));          V84= number_times((VV[41]->s.s_dbind),small_fixnum(2));
591          V80= (number_compare(/* INLINE-ARGS */V83,small_fixnum(20))<=0?(/* INLINE-ARGS */V83):small_fixnum(20));          V81= (number_compare(/* INLINE-ARGS */V84,small_fixnum(20))<=0?(/* INLINE-ARGS */V84):small_fixnum(20));
592          base[8]= symbol_value(VV[31]);          base[8]= (VV[31]->s.s_dbind);
593          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
594          Lfresh_line();          Lfresh_line();
595          vs_top=sup;          vs_top=sup;
596          if(((V75))==(Ct)){          if(((V76))==(Ct)){
597          goto T234;}          goto T234;}
598          V84= list(2,VV[13],list(2,VV[7],(V73)));          V85= list(2,VV[13],list(2,VV[7],(V74)));
599          base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V84,Cnil),(V75));          base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76));
600          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
601          Leval();          Leval();
602          vs_top=sup;          vs_top=sup;
# Line 598  T220:; Line 604  T220:;
604          goto T233;}          goto T233;}
605          goto T234;          goto T234;
606  T234:;  T234:;
607          base[8]= symbol_value(VV[31]);          base[8]= (VV[31]->s.s_dbind);
608          base[9]= VV[42];          base[9]= VV[42];
609          base[10]= (V80);          base[10]= (V81);
610          base[11]= (VV[41]->s.s_dbind);          base[11]= (VV[41]->s.s_dbind);
611          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
612          Lformat();          Lformat();
613          vs_top=sup;          vs_top=sup;
614          base[8]= symbol_value(VV[31]);          base[8]= (VV[31]->s.s_dbind);
615          base[9]= VV[43];          base[9]= VV[43];
616          V85= list(2,VV[13],list(2,VV[7],(V73)));          V86= list(2,VV[13],list(2,VV[7],(V74)));
617          base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76));          base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V86,Cnil),(V77));
618          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
619          Leval();          Leval();
620          vs_top=sup;          vs_top=sup;
# Line 616  T234:; Line 622  T234:;
622          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
623          Lformat();          Lformat();
624          vs_top=sup;          vs_top=sup;
625          base[8]= symbol_value(VV[31]);          base[8]= (VV[31]->s.s_dbind);
626          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
627          Lfresh_line();          Lfresh_line();
628          vs_top=sup;          vs_top=sup;
629          goto T233;          goto T233;
630  T233:;  T233:;
631          base[8]= (V72);          base[8]= (V73);
632          {object V86;          {object V87;
633          V86= (V73);          V87= (V74);
634           vs_top=base+9;           vs_top=base+9;
635           while(!endp(V86))           while(V87!=Cnil)
636           {vs_push(car(V86));V86=cdr(V86);}           {vs_push((V87)->c.c_car);V87=(V87)->c.c_cdr;}
637          vs_base=base+9;}          vs_base=base+9;}
638          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
639          Llist();          Llist();
640          vs_top=sup;          vs_top=sup;
641          V79= vs_base[0];          V80= vs_base[0];
642          if(((V77))==(Ct)){          if(((V78))==(Ct)){
643          goto T256;}          goto T256;}
644          V87= list(2,VV[13],list(2,VV[7],(V73)));          V88= list(2,VV[13],list(2,VV[7],(V74)));
645          base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V87,list(2,VV[14],list(2,VV[7],(V79)))),(V77));          base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V80)))),(V78));
646          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
647          Leval();          Leval();
648          vs_top=sup;          vs_top=sup;
# Line 644  T233:; Line 650  T233:;
650          goto T255;}          goto T255;}
651          goto T256;          goto T256;
652  T256:;  T256:;
653          base[8]= symbol_value(VV[31]);          base[8]= (VV[31]->s.s_dbind);
654          base[9]= VV[44];          base[9]= VV[44];
655          base[10]= (V80);          base[10]= (V81);
656          base[11]= (VV[41]->s.s_dbind);          base[11]= (VV[41]->s.s_dbind);
657          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
658          Lformat();          Lformat();
659          vs_top=sup;          vs_top=sup;
660          base[8]= symbol_value(VV[31]);          base[8]= (VV[31]->s.s_dbind);
661          base[9]= VV[45];          base[9]= VV[45];
662          V88= list(2,VV[13],list(2,VV[7],(V73)));          V89= list(2,VV[13],list(2,VV[7],(V74)));
663          base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V79)))),(V78));          base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V89,list(2,VV[14],list(2,VV[7],(V80)))),(V79));
664          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
665          Leval();          Leval();
666          vs_top=sup;          vs_top=sup;
# Line 665  T256:; Line 671  T256:;
671          goto T255;          goto T255;
672  T255:;  T255:;
673          (VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));          (VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));
674          base[8]= (V79);          base[8]= (V80);
675          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
676          Lvalues_list();          Lvalues_list();
677          bds_unwind1;          bds_unwind1;
678          return;          return;
679          goto T224;          goto T224;
680  T224:;  T224:;
681          base[8]= (V72);          base[8]= (V73);
682          {object V89;          {object V90;
683          V89= (V73);          V90= (V74);
684           vs_top=base+9;           vs_top=base+9;
685           while(!endp(V89))           while(V90!=Cnil)
686           {vs_push(car(V89));V89=cdr(V89);}           {vs_push((V90)->c.c_car);V90=(V90)->c.c_cdr;}
687          vs_base=base+9;}          vs_base=base+9;}
688          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
689          bds_unwind1;          bds_unwind1;
# Line 686  T224:; Line 692  T224:;
692  }  }
693  /*      local entry for function UNTRACE-ONE    */  /*      local entry for function UNTRACE-ONE    */
694    
695  static object LI12(V91)  static object LI12(V92)
696    
697  object V91;  object V92;
698  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
699          goto TTL;          goto TTL;
700  TTL:;  TTL:;
701          {object V92;          {object V93;
702          base[0]=MMcons((V91),Cnil);          base[0]=MMcons((V92),Cnil);
703          V92= Cnil;          V93= Cnil;
704          V92= get((base[0]->c.c_car),VV[35],Cnil);          {object V94 =((base[0]->c.c_car))->s.s_plist;
705          if(((V92))==Cnil){           object ind= VV[35];
706            while(V94!=Cnil){
707            if(V94->c.c_car==ind){
708            V93= (V94->c.c_cdr->c.c_car);
709            goto T279;
710            }else V94=V94->c.c_cdr->c.c_cdr;}
711            V93= Cnil;}
712            goto T279;
713    T279:;
714            if(((V93))==Cnil){
715          goto T277;}          goto T277;}
716          (void)(remprop((base[0]->c.c_car),VV[35]));          (void)(remprop((base[0]->c.c_car),VV[35]));
717          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
# Line 705  TTL:; Line 720  TTL:;
720          vs_top=sup;          vs_top=sup;
721          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
722          goto T283;}          goto T283;}
723          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
724          base[2]= VV[46];          base[2]= VV[46];
725          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
726          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 718  T283:; Line 733  T283:;
733          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
734          Lsymbol_function();          Lsymbol_function();
735          vs_top=sup;          vs_top=sup;
736          V93= vs_base[0];          V95= vs_base[0];
737          if(!(type_of(V93)==t_cons)){          if(!(type_of(V95)==t_cons)){
738          goto T290;}          goto T290;}
739          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
740          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
741          Lsymbol_function();          Lsymbol_function();
742          vs_top=sup;          vs_top=sup;
743          V94= vs_base[0];          V96= vs_base[0];
744          if(!(type_of(cadddr(V94))==t_cons)){          if(!(type_of(CMPcadddr(V96))==t_cons)){
745          goto T290;}          goto T290;}
746          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
747          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
748          Lsymbol_function();          Lsymbol_function();
749          vs_top=sup;          vs_top=sup;
750          V95= vs_base[0];          V97= vs_base[0];
751          if(!((car(cadddr(V95)))==(VV[38]))){          if(!((CMPcar(CMPcadddr(V97)))==(VV[38]))){
752          goto T290;}          goto T290;}
753          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
754          base[3]= (V92);          base[3]= (V93);
755          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
756          Lsymbol_function();          Lsymbol_function();
757          vs_top=sup;          vs_top=sup;
# Line 747  T283:; Line 762  T283:;
762          goto T281;          goto T281;
763          goto T290;          goto T290;
764  T290:;  T290:;
765          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
766          base[2]= VV[47];          base[2]= VV[47];
767          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
768          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 755  T290:; Line 770  T290:;
770          vs_top=sup;          vs_top=sup;
771          goto T281;          goto T281;
772  T281:;  T281:;
773          V96=          V98=
774          make_cclosure_new(LC17,Cnil,base[0],Cdata);          make_cclosure_new(LC17,Cnil,base[0],Cdata);
775          setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1))));          (VV[40]->s.s_dbind)= (VFUN_NARGS=4,(*(LnkLI110))(V98,(VV[40]->s.s_dbind),VV[48],small_fixnum(1)));
776          {object V97 = make_cons((base[0]->c.c_car),Cnil);          {object V99 = make_cons((base[0]->c.c_car),Cnil);
777          VMR11(V97)}          VMR11(V99)}
778          goto T277;          goto T277;
779  T277:;  T277:;
780          base[1]= symbol_value(VV[31]);          base[1]= (VV[31]->s.s_dbind);
781          base[2]= VV[49];          base[2]= VV[49];
782          base[3]= (base[0]->c.c_car);          base[3]= (base[0]->c.c_car);
783          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
784          Lformat();          Lformat();
785          vs_top=sup;          vs_top=sup;
786          {object V98 = Cnil;          {object V100 = Cnil;
787          VMR11(V98)}}          VMR11(V100)}}
788          base[0]=base[0];          base[0]=base[0];
789          return Cnil;          return Cnil;
790  }  }
# Line 780  static object LI13() Line 795  static object LI13()
795  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
796          goto TTL;          goto TTL;
797  TTL:;  TTL:;
798          {register object V99;          {register object V101;
799          base[0]= symbol_value(VV[50]);          {long V102;
800          vs_top=(vs_base=base+0)+1;          V102= 0;
801          Lread_char();          if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){
802          vs_top=sup;          goto T318;}
803          V99= vs_base[0];          V102= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp);
804            if(!((V102)==(-1))){
805            goto T323;}
806            if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){
807            goto T323;}
808            V101= Cnil;
809            goto T315;
810            goto T323;
811    T323:;
812            V101= code_char((V102));
813            goto T315;
814          goto T318;          goto T318;
815  T318:;  T318:;
816          base[0]= (V99);          V101= read_char1((VV[50]->s.s_dbind),Cnil);}
817          base[1]= VV[51];          goto T315;
818          vs_top=(vs_base=base+0)+2;  T315:;
819          Lchar_eq();          goto T328;
820          vs_top=sup;  T328:;
821          if((vs_base[0])!=Cnil){          if(char_code((V101))==char_code(VV[51])){
822          goto T320;}          goto T330;}
823          base[0]= (V99);          if(!(char_code((V101))==char_code(VV[52]))){
824          base[1]= VV[52];          goto T329;}
825          vs_top=(vs_base=base+0)+2;          goto T330;
826          Lchar_eq();  T330:;
827          vs_top=sup;          {object V103 = Cnil;
828          if((vs_base[0])==Cnil){          VMR12(V103)}
829          goto T319;}          goto T329;
830          goto T320;  T329:;
831  T320:;          {register long V104;
832          {object V100 = Cnil;          V104= 0;
833          VMR12(V100)}          if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){
834          goto T319;          goto T339;}
835  T319:;          V104= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp);
836          base[0]= symbol_value(VV[50]);          if(!((V104)==(-1))){
837          vs_top=(vs_base=base+0)+1;          goto T344;}
838          Lread_char();          if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){
839          vs_top=sup;          goto T344;}
840          V99= vs_base[0];          V101= Cnil;
841          goto T318;}          goto T336;
842          base[0]=base[0];          goto T344;
843    T344:;
844            V101= code_char((V104));
845            goto T336;
846            goto T339;
847    T339:;
848            V101= read_char1((VV[50]->s.s_dbind),Cnil);}
849            goto T336;
850    T336:;
851            goto T328;}
852          return Cnil;          return Cnil;
853  }  }
854  /*      macro definition for IF-ERROR   */  /*      macro definition for IF-ERROR   */
# Line 822  T319:; Line 856  T319:;
856  static void L14()  static void L14()
857  {register object *base=vs_base;  {register object *base=vs_base;
858          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
859          vs_reserve(VM13);          vs_check;
         check_arg(2);  
860          vs_top=sup;          vs_top=sup;
861          {object V101=base[0]->c.c_cdr;          {object V105=base[0]->c.c_cdr;
862          if(endp(V101))invalid_macro_call();          base[2]= (V105->c.c_car);
863          base[2]= (V101->c.c_car);          V105=V105->c.c_cdr;
864          V101=V101->c.c_cdr;          base[3]= (V105->c.c_car);}
865          if(endp(V101))invalid_macro_call();          {object V106;
866          base[3]= (V101->c.c_car);          object V107;
867          V101=V101->c.c_cdr;          object V108;
         if(!endp(V101))invalid_macro_call();}  
         {object V102;  
         object V103;  
         object V104;  
868          vs_base=vs_top;          vs_base=vs_top;
869          Lgensym();          Lgensym();
870          vs_top=sup;          vs_top=sup;
871          V102= vs_base[0];          V106= vs_base[0];
872          vs_base=vs_top;          vs_base=vs_top;
873          Lgensym();          Lgensym();
874          vs_top=sup;          vs_top=sup;
875          V103= vs_base[0];          V107= vs_base[0];
876          vs_base=vs_top;          vs_base=vs_top;
877          Lgensym();          Lgensym();
878          vs_top=sup;          vs_top=sup;
879          V104= vs_base[0];          V108= vs_base[0];
880          V105= list(2,(V102),(V103));          V109= list(2,(V106),(V107));
881          V106= list(5,VV[18],(V102),base[3],(V103),Ct);          V110= list(5,VV[18],(V106),base[3],(V107),Ct);
882          base[4]= list(3,VV[1],/* INLINE-ARGS */V105,list(3,VV[53],(V104),list(3,VV[3],/* INLINE-ARGS */V106,list(3,VV[54],(V104),list(4,VV[16],(V103),(V102),base[2])))));          base[4]= list(3,VV[1],/* INLINE-ARGS */V109,list(3,VV[53],(V108),list(3,VV[3],/* INLINE-ARGS */V110,list(3,VV[54],(V108),list(4,VV[16],(V107),(V106),base[2])))));
883          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
884          return;}          return;}
885  }  }
# Line 859  static void L14() Line 888  static void L14()
888  static void L15()  static void L15()
889  {register object *base=vs_base;  {register object *base=vs_base;
890          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
891          vs_reserve(VM14);          vs_check;
         check_arg(2);  
892          vs_top=sup;          vs_top=sup;
893          {object V107=base[0]->c.c_cdr;          {object V111=base[0]->c.c_cdr;
894          if(endp(V107))invalid_macro_call();          base[2]= (V111->c.c_car);}
         base[2]= (V107->c.c_car);  
         V107=V107->c.c_cdr;  
         if(!endp(V107))invalid_macro_call();}  
895          base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil));          base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil));
896          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
897          return;          return;
# Line 876  static void L15() Line 901  static void L15()
901  static void L16()  static void L16()
902  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
903          register object *VOL sup=base+VM15; VC15          register object *VOL sup=base+VM15; VC15
904          vs_reserve(VM15);          vs_check;
905          bds_check;          bds_check;
906          {VOL object V108;          {VOL object V112;
907          VOL object V109;          VOL object V113;
908          if(vs_top-vs_base<1) too_few_arguments();          V112=(base[0]);
         if(vs_top-vs_base>2) too_many_arguments();  
         V108=(base[0]);  
909          vs_base=vs_base+1;          vs_base=vs_base+1;
910          if(vs_base>=vs_top){vs_top=sup;goto T336;}          if(vs_base>=vs_top){vs_top=sup;goto T352;}
911          V109=(base[1]);          V113=(base[1]);
912          vs_top=sup;          vs_top=sup;
913          goto T337;          goto T353;
914          goto T336;          goto T352;
915  T336:;  T352:;
916          V109= Cnil;          V113= Cnil;
917          goto T337;          goto T353;
918  T337:;  T353:;
919          {VOL object V110;          {VOL object V114;
920          VOL object V111;          VOL object V115;
921          V110= Cnil;          V114= Cnil;
922          bds_bind(VV[61],symbol_value(VV[61]));          bds_bind(VV[61],(VV[61]->s.s_dbind));
923          V111= Cnil;          V115= Cnil;
924          if(!((symbol_value(VV[62]))==(Ct))){          if(!(((VV[62]->s.s_dbind))==(Ct))){
925          goto T341;}          goto T357;}
926          base[3]= (V108);          base[3]= (V112);
927          base[4]= Cnil;          base[4]= Cnil;
928          base[5]= Cnil;          base[5]= Cnil;
929          base[6]= (V109);          base[6]= (V113);
930          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
931          Levalhook();          Levalhook();
932          bds_unwind1;          bds_unwind1;
933          return;          return;
934          goto T341;          goto T357;
935  T341:;  T357:;
936          if(!(type_of(symbol_value(VV[62]))==t_fixnum||          if(!(type_of((VV[62]->s.s_dbind))==t_fixnum||
937  type_of(symbol_value(VV[62]))==t_bignum||  type_of((VV[62]->s.s_dbind))==t_bignum||
938  type_of(symbol_value(VV[62]))==t_ratio||  type_of((VV[62]->s.s_dbind))==t_ratio||
939  type_of(symbol_value(VV[62]))==t_shortfloat||  type_of((VV[62]->s.s_dbind))==t_shortfloat||
940  type_of(symbol_value(VV[62]))==t_longfloat||  type_of((VV[62]->s.s_dbind))==t_longfloat||
941  type_of(symbol_value(VV[62]))==t_complex)){  type_of((VV[62]->s.s_dbind))==t_complex)){
942          goto T348;}          goto T364;}
943          V112= one_plus((VV[61]->s.s_dbind));          V116= one_plus((VV[61]->s.s_dbind));
944          if(!(number_compare(/* INLINE-ARGS */V112,symbol_value(VV[62]))>=0)){          if(!(number_compare(/* INLINE-ARGS */V116,(VV[62]->s.s_dbind))>=0)){
945          goto T352;}          goto T368;}
946          base[3]= (V108);          base[3]= (V112);
947          base[4]= Cnil;          base[4]= Cnil;
948          base[5]= Cnil;          base[5]= Cnil;
949          base[6]= (V109);          base[6]= (V113);
950          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
951          Levalhook();          Levalhook();
952          bds_unwind1;          bds_unwind1;
953          return;          return;
954          goto T352;          goto T368;
955  T352:;  T368:;
956          setq(VV[62],Cnil);          (VV[62]->s.s_dbind)= Cnil;
957          goto T348;          goto T364;
958  T348:;  T364:;
959          if((symbol_value(VV[63]))==Cnil){          if(((VV[63]->s.s_dbind))==Cnil){
960          goto T359;}          goto T375;}
961          if(!(type_of((V108))==t_cons)){          if(!(type_of((V112))==t_cons)){
962          goto T363;}          goto T379;}
963          if(!((car((V108)))==(symbol_value(VV[63])))){          if(!((CMPcar((V112)))==((VV[63]->s.s_dbind)))){
964          goto T363;}          goto T379;}
965          bds_bind(VV[63],Cnil);          bds_bind(VV[63],Cnil);
966          base[4]= (V108);          base[4]= (V112);
967          base[5]= (V109);          base[5]= (V113);
968          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
969          (void) (*Lnk60)();          (void) (*Lnk60)();
970          bds_unwind1;          bds_unwind1;
971          bds_unwind1;          bds_unwind1;
972          return;          return;
973          goto T363;          goto T379;
974  T363:;  T379:;
975          base[3]= (V108);          base[3]= (V112);
976          base[4]= symbol_function(VV[60]);          base[4]= (VV[60]->s.s_gfdef);
977          base[5]= Cnil;          base[5]= Cnil;
978          base[6]= (V109);          base[6]= (V113);
979          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
980          Levalhook();          Levalhook();
981          bds_unwind1;          bds_unwind1;
982          return;          return;
983          goto T359;          goto T375;
984  T359:;  T375:;
985          (VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));          (VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));
986          V113= number_times((VV[61]->s.s_dbind),small_fixnum(2));          V117= number_times((VV[61]->s.s_dbind),small_fixnum(2));
987          V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20));          V115= (number_compare(/* INLINE-ARGS */V117,small_fixnum(20))<=0?(/* INLINE-ARGS */V117):small_fixnum(20));
988          goto T379;          goto T395;
989  T379:;  T395:;
990          base[3]= symbol_value(VV[50]);          base[3]= (VV[50]->s.s_dbind);
991          base[4]= VV[64];          base[4]= VV[64];
992          base[5]= (V111);          base[5]= (V115);
993          base[6]= (V108);          base[6]= (V112);
994          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
995          Lformat();          Lformat();
996          vs_top=sup;          vs_top=sup;
997          base[3]= symbol_value(VV[50]);          base[3]= (VV[50]->s.s_dbind);
998          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
999          Lfinish_output();          Lfinish_output();
1000          vs_top=sup;          vs_top=sup;
1001          {register object V116;          {register object V120;
1002          base[3]= symbol_value(VV[50]);          {long V121;
1003          vs_top=(vs_base=base+3)+1;          V121= 0;
1004          Lread_char();          if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){
1005          vs_top=sup;          goto T408;}
1006          V116= vs_base[0];          V121= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp);
1007          goto T392;          if(!((V121)==(-1))){
1008  T392:;          goto T413;}
1009          base[3]= (V116);          if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){
1010          base[4]= VV[65];          goto T413;}
1011          vs_top=(vs_base=base+3)+2;          V120= Cnil;
1012          Lchar_neq();          goto T405;
1013          vs_top=sup;          goto T413;
1014          if((vs_base[0])==Cnil){  T413:;
1015          goto T393;}          V120= code_char((V121));
1016          base[3]= (V116);          goto T405;
1017          base[4]= VV[66];          goto T408;
1018          vs_top=(vs_base=base+3)+2;  T408:;
1019          Lchar_neq();          V120= read_char1((VV[50]->s.s_dbind),Cnil);}
1020          vs_top=sup;          goto T405;
1021          if((vs_base[0])==Cnil){  T405:;
1022          goto T393;}          goto T418;
1023          V115= (V116);  T418:;
1024          goto T388;          if(!(char_code((V120))!=char_code(VV[65]))){
1025          goto T393;          goto T419;}
1026  T393:;          if(!(char_code((V120))!=char_code(VV[66]))){
1027          base[3]= symbol_value(VV[50]);          goto T419;}
1028          vs_top=(vs_base=base+3)+1;          V119= (V120);
1029          Lread_char();          goto T404;
1030          vs_top=sup;          goto T419;
1031          V116= vs_base[0];  T419:;
1032          goto T392;}          {register long V122;
1033          goto T388;          V122= 0;
1034  T388:;          if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){
1035          {object V114= V115;          goto T429;}
1036          if(!eql(V114,VV[51])          V122= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp);
1037          && !eql(V114,VV[52]))goto T407;          if(!((V122)==(-1))){
1038          base[3]= (V108);          goto T434;}
1039          base[4]= symbol_function(VV[60]);          if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){
1040            goto T434;}
1041            V120= Cnil;
1042            goto T426;
1043            goto T434;
1044    T434:;
1045            V120= code_char((V122));
1046            goto T426;
1047            goto T429;
1048    T429:;
1049            V120= read_char1((VV[50]->s.s_dbind),Cnil);}
1050            goto T426;
1051    T426:;
1052            goto T418;}
1053            goto T404;
1054    T404:;
1055            {object V118= V119;
1056            if(!eql(V118,VV[51])
1057            && !eql(V118,VV[52]))goto T439;
1058            base[3]= (V112);
1059            base[4]= (VV[60]->s.s_gfdef);
1060          base[5]= Cnil;          base[5]= Cnil;
1061          base[6]= (V109);          base[6]= (V113);
1062          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1063          Levalhook();          Levalhook();
1064          Llist();          Llist();
1065          vs_top=sup;          vs_top=sup;
1066          V110= vs_base[0];          V114= vs_base[0];
1067          goto T377;          goto T393;
1068          goto T407;          goto T439;
1069  T407:;  T439:;
1070          if(!eql(V114,VV[67])          if(!eql(V118,VV[67])
1071          && !eql(V114,VV[68]))goto T415;          && !eql(V118,VV[68]))goto T447;
1072          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1073          base[3]= (V108);          base[3]= (V112);
1074          base[4]= symbol_function(VV[60]);          base[4]= (VV[60]->s.s_gfdef);
1075          base[5]= Cnil;          base[5]= Cnil;
1076          base[6]= (V109);          base[6]= (V113);
1077          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1078          Levalhook();          Levalhook();
1079          Llist();          Llist();
1080          vs_top=sup;          vs_top=sup;
1081          V110= vs_base[0];          V114= vs_base[0];
1082          goto T377;          goto T393;
1083          goto T415;          goto T447;
1084  T415:;  T447:;
1085          if(!eql(V114,VV[69])          if(!eql(V118,VV[69])
1086          && !eql(V114,VV[70]))goto T424;          && !eql(V118,VV[70]))goto T456;
1087          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1088          base[3]= (V108);          base[3]= (V112);
1089          base[4]= Cnil;          base[4]= Cnil;
1090          base[5]= Cnil;          base[5]= Cnil;
1091          base[6]= (V109);          base[6]= (V113);
1092          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1093          Levalhook();          Levalhook();
1094          Llist();          Llist();
1095          vs_top=sup;          vs_top=sup;
1096          V110= vs_base[0];          V114= vs_base[0];
1097          goto T377;          goto T393;
1098          goto T424;          goto T456;
1099  T424:;  T456:;
1100          if(!eql(V114,VV[71])          if(!eql(V118,VV[71])
1101          && !eql(V114,VV[72]))goto T433;          && !eql(V118,VV[72]))goto T465;
1102          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1103          base[3]= (V108);          base[3]= (V112);
1104          base[4]= VV[73];          base[4]= VV[73];
1105          base[5]= symbol_value(VV[50]);          base[5]= (VV[50]->s.s_dbind);
1106          base[6]= VV[74];          base[6]= VV[74];
1107          base[7]= Ct;          base[7]= Ct;
1108          base[8]= VV[75];          base[8]= VV[75];
# Line 1070  T424:; Line 1113  T424:;
1113          Lwrite();          Lwrite();
1114          vs_top=sup;          vs_top=sup;
1115          princ_char(10,Cnil);          princ_char(10,Cnil);
1116          goto T380;          goto T396;
1117          goto T433;          goto T465;
1118  T433:;  T465:;
1119          if(!eql(V114,VV[77])          if(!eql(V118,VV[77])
1120          && !eql(V114,VV[78]))goto T445;          && !eql(V118,VV[78]))goto T477;
1121          base[4]= Cnil;          base[4]= Cnil;
1122          base[5]= Cnil;          base[5]= Cnil;
1123          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
1124          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1125          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1126          else{          else{
1127          {object V117;          {object V123;
1128          base[7]= symbol_value(VV[50]);          base[7]= (VV[50]->s.s_dbind);
1129          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1130          (void) (*Lnk112)();          (void) (*Lnk112)();
1131          vs_top=sup;          vs_top=sup;
1132          V117= vs_base[0];          V123= vs_base[0];
1133          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1134          base[4]= (V117);}          base[4]= (V123);}
1135          base[5]= Ct;          base[5]= Ct;
1136          base[7]= Ct;          base[7]= Ct;
1137          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 1099  T433:; Line 1142  T433:;
1142          vs_top=sup;          vs_top=sup;
1143          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
1144          if((base[5])==Cnil){          if((base[5])==Cnil){
1145          goto T456;}          goto T488;}
1146          base[3]= base[4];          base[3]= base[4];
1147          goto T446;          goto T478;
1148          goto T456;          goto T488;
1149  T456:;  T488:;
1150          base[3]= Cnil;          base[3]= Cnil;
1151          goto T446;          goto T478;
1152          vs_base=vs_top=base+7;          vs_base=vs_top=base+7;
1153          for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1154          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1155          vs_top=sup;          vs_top=sup;
1156          base[3]= vs_base[0];}}          base[3]= vs_base[0];}}
1157          goto T446;          goto T478;
1158  T446:;  T478:;
1159          bds_bind(VV[63],base[3]);          bds_bind(VV[63],base[3]);
1160          base[4]= (V108);          base[4]= (V112);
1161          base[5]= symbol_function(VV[60]);          base[5]= (VV[60]->s.s_gfdef);
1162          base[6]= Cnil;          base[6]= Cnil;
1163          base[7]= (V109);          base[7]= (V113);
1164          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
1165          Levalhook();          Levalhook();
1166          Llist();          Llist();
1167          vs_top=sup;          vs_top=sup;
1168          V110= vs_base[0];          V114= vs_base[0];
1169          bds_unwind1;          bds_unwind1;
1170          goto T377;          goto T393;
1171          goto T445;          goto T477;
1172  T445:;  T477:;
1173          if(!eql(V114,VV[79])          if(!eql(V118,VV[79])
1174          && !eql(V114,VV[80]))goto T465;          && !eql(V118,VV[80]))goto T497;
1175          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1176          setq(VV[62],Ct);          (VV[62]->s.s_dbind)= Ct;
1177          base[3]= (V108);          base[3]= (V112);
1178          base[4]= Cnil;          base[4]= Cnil;
1179          base[5]= Cnil;          base[5]= Cnil;
1180          base[6]= (V109);          base[6]= (V113);
1181          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1182          Levalhook();          Levalhook();
1183          Llist();          Llist();
1184          vs_top=sup;          vs_top=sup;
1185          V110= vs_base[0];          V114= vs_base[0];
1186          goto T377;          goto T393;
1187          goto T465;          goto T497;
1188  T465:;  T497:;
1189          if(!eql(V114,VV[81])          if(!eql(V118,VV[81])
1190          && !eql(V114,VV[82]))goto T476;          && !eql(V118,VV[82]))goto T508;
1191          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1192          setq(VV[62],(VV[61]->s.s_dbind));          (VV[62]->s.s_dbind)= (VV[61]->s.s_dbind);
1193          base[3]= (V108);          base[3]= (V112);
1194          base[4]= Cnil;          base[4]= Cnil;
1195          base[5]= Cnil;          base[5]= Cnil;
1196          base[6]= (V109);          base[6]= (V113);
1197          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1198          Levalhook();          Levalhook();
1199          Llist();          Llist();
1200          vs_top=sup;          vs_top=sup;
1201          V110= vs_base[0];          V114= vs_base[0];
1202          goto T377;          goto T393;
1203          goto T476;          goto T508;
1204  T476:;  T508:;
1205          if(!eql(V114,VV[83])          if(!eql(V118,VV[83])
1206          && !eql(V114,VV[84]))goto T487;          && !eql(V118,VV[84]))goto T519;
1207          base[3]= (V109);          base[3]= (V113);
1208          {VOL object V118;          {VOL object V124;
1209          VOL object V119;          VOL object V125;
1210          base[6]= Cnil;          base[6]= Cnil;
1211          base[7]= Cnil;          base[7]= Cnil;
1212          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
# Line 1176  T476:; Line 1219  T476:;
1219          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1220          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1221          else{          else{
1222          {object V120;          {object V126;
1223          base[13]= symbol_value(VV[50]);          base[13]= (VV[50]->s.s_dbind);
1224          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
1225          (void) (*Lnk112)();          (void) (*Lnk112)();
1226          vs_top=sup;          vs_top=sup;
1227          V120= vs_base[0];          V126= vs_base[0];
1228          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1229          base[10]= (V120);}          base[10]= (V126);}
1230          base[11]= Ct;          base[11]= Ct;
1231          base[13]= Ct;          base[13]= Ct;
1232          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
# Line 1194  T476:; Line 1237  T476:;
1237          vs_top=sup;          vs_top=sup;
1238          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
1239          if((base[11])==Cnil){          if((base[11])==Cnil){
1240          goto T503;}          goto T535;}
1241          base[9]= base[10];          base[9]= base[10];
1242          goto T493;          goto T525;
1243          goto T503;          goto T535;
1244  T503:;  T535:;
1245          base[9]= Cnil;          base[9]= Cnil;
1246          goto T493;          goto T525;
1247          vs_base=vs_top=base+13;          vs_base=vs_top=base+13;
1248          for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1249          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1250          vs_top=sup;          vs_top=sup;
1251          base[9]= vs_base[0];}}          base[9]= vs_base[0];}}
1252          goto T493;          goto T525;
1253  T493:;  T525:;
1254          base[10]= Cnil;          base[10]= Cnil;
1255          base[11]= Cnil;          base[11]= Cnil;
1256          base[12]= base[3];          base[12]= base[3];
# Line 1226  T493:; Line 1269  T493:;
1269          vs_top=sup;          vs_top=sup;
1270          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
1271          if((base[7])==Cnil){          if((base[7])==Cnil){
1272          goto T511;}          goto T543;}
1273          V118= base[6];          V124= base[6];
1274          goto T488;          goto T520;
1275          goto T511;          goto T543;
1276  T511:;  T543:;
1277          V118= Cnil;          V124= Cnil;
1278          goto T488;          goto T520;
1279          vs_base=vs_top=base+9;          vs_base=vs_top=base+9;
1280          for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1281          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1282          vs_top=sup;          vs_top=sup;
1283          V118= vs_base[0];}}          V124= vs_base[0];}}
1284          goto T488;          goto T520;
1285  T488:;  T520:;
1286          V119= car((V118));          V125= CMPcar((V124));
1287          goto T515;          goto T547;
1288  T515:;  T547:;
1289          if(!(endp_prop((V118)))){          if(!(((V124))==Cnil)){
1290          goto T516;}          goto T548;}
1291          goto T380;          goto T396;
1292          goto T516;          goto T548;
1293  T516:;  T548:;
1294          base[6]= (V119);          base[6]= (V125);
1295          base[7]= VV[73];          base[7]= VV[73];
1296          base[8]= symbol_value(VV[50]);          base[8]= (VV[50]->s.s_dbind);
1297          base[9]= VV[75];          base[9]= VV[75];
1298          base[10]= symbol_value(VV[85]);          base[10]= (VV[85]->s.s_dbind);
1299          base[11]= VV[76];          base[11]= VV[76];
1300          base[12]= symbol_value(VV[86]);          base[12]= (VV[86]->s.s_dbind);
1301          vs_top=(vs_base=base+6)+7;          vs_top=(vs_base=base+6)+7;
1302          Lwrite();          Lwrite();
1303          vs_top=sup;          vs_top=sup;
1304          princ_char(10,VV[50]);          princ_char(10,VV[50]);
1305          V118= cdr((V118));          V124= CMPcdr((V124));
1306          V119= car((V118));          V125= CMPcar((V124));
1307          goto T515;}          goto T547;}
1308          goto T487;          goto T519;
1309  T487:;  T519:;
1310          if(!eql(V114,VV[87])          if(!eql(V118,VV[87])
1311          && !eql(V114,VV[88]))goto T534;          && !eql(V118,VV[88]))goto T566;
1312          base[3]= (V109);          base[3]= (V113);
1313          base[4]= Cnil;          base[4]= Cnil;
1314          base[5]= Cnil;          base[5]= Cnil;
1315          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
# Line 1279  T487:; Line 1322  T487:;
1322          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
1323          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
1324          else{          else{
1325          {object V121;          {object V127;
1326          base[11]= symbol_value(VV[50]);          base[11]= (VV[50]->s.s_dbind);
1327          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1328          (void) (*Lnk112)();          (void) (*Lnk112)();
1329          vs_top=sup;          vs_top=sup;
1330          V121= vs_base[0];          V127= vs_base[0];
1331          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1332          base[8]= (V121);}          base[8]= (V127);}
1333          base[9]= Ct;          base[9]= Ct;
1334          base[11]= Ct;          base[11]= Ct;
1335          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
# Line 1297  T487:; Line 1340  T487:;
1340          vs_top=sup;          vs_top=sup;
1341          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
1342          if((base[9])==Cnil){          if((base[9])==Cnil){
1343          goto T551;}          goto T583;}
1344          base[7]= base[8];          base[7]= base[8];
1345          goto T541;          goto T573;
1346          goto T551;          goto T583;
1347  T551:;  T583:;
1348          base[7]= Cnil;          base[7]= Cnil;
1349          goto T541;          goto T573;
1350          vs_base=vs_top=base+11;          vs_base=vs_top=base+11;
1351          for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1352          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1353          vs_top=sup;          vs_top=sup;
1354          base[7]= vs_base[0];}}          base[7]= vs_base[0];}}
1355          goto T541;          goto T573;
1356  T541:;  T573:;
1357          base[8]= Cnil;          base[8]= Cnil;
1358          base[9]= Cnil;          base[9]= Cnil;
1359          base[10]= base[3];          base[10]= base[3];
# Line 1329  T541:; Line 1372  T541:;
1372          vs_top=sup;          vs_top=sup;
1373          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
1374          if((base[5])==Cnil){          if((base[5])==Cnil){
1375          goto T559;}          goto T591;}
1376          V110= base[4];          V114= base[4];
1377          goto T536;          goto T568;
1378          goto T559;          goto T591;
1379  T559:;  T591:;
1380          V110= Cnil;          V114= Cnil;
1381          goto T536;          goto T568;
1382          vs_base=vs_top=base+7;          vs_base=vs_top=base+7;
1383          for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
1384          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1385          vs_top=sup;          vs_top=sup;
1386          V110= vs_base[0];}}          V114= vs_base[0];}}
1387          goto T536;          goto T568;
1388  T536:;  T568:;
1389          goto T377;          goto T393;
1390          goto T534;          goto T566;
1391  T534:;  T566:;
1392          if(!eql(V114,VV[89])          if(!eql(V118,VV[89])
1393          && !eql(V114,VV[90]))goto T561;          && !eql(V118,VV[90]))goto T593;
1394          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1395          base[3]= one_plus(symbol_value(VV[92]));          base[3]= one_plus((VV[92]->s.s_dbind));
1396          vs_base=vs_top;          vs_base=vs_top;
1397          (void) (*Lnk113)();          (void) (*Lnk113)();
1398          vs_top=sup;          vs_top=sup;
1399          V122= vs_base[0];          V128= vs_base[0];
1400          base[4]= one_minus(V122);          base[4]= one_minus(V128);
1401          base[5]= symbol_value(VV[92]);          base[5]= (VV[92]->s.s_dbind);
1402          bds_bind(VV[91],base[3]);          bds_bind(VV[91],base[3]);
1403          bds_bind(VV[92],base[4]);          bds_bind(VV[92],base[4]);
1404          bds_bind(VV[93],base[5]);          bds_bind(VV[93],base[5]);
# Line 1365  T534:; Line 1408  T534:;
1408          bds_unwind1;          bds_unwind1;
1409          bds_unwind1;          bds_unwind1;
1410          bds_unwind1;          bds_unwind1;
1411          goto T380;          goto T396;
1412          goto T561;          goto T593;
1413  T561:;  T593:;
1414          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1415          princ_char(10,Cnil);          princ_char(10,Cnil);
1416          base[3]= symbol_value(VV[50]);          base[3]= (VV[50]->s.s_dbind);
1417          base[4]= VV[94];          base[4]= VV[94];
1418          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1419          Lformat();          Lformat();
1420          vs_top=sup;          vs_top=sup;
1421          princ_char(10,Cnil);}          princ_char(10,Cnil);}
1422          goto T380;          goto T396;
1423  T380:;  T396:;
1424          goto T379;          goto T395;
1425          goto T377;          goto T393;
1426  T377:;  T393:;
1427          base[3]= (V108);          base[3]= (V112);
1428          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1429          Lconstantp();          Lconstantp();
1430          vs_top=sup;          vs_top=sup;
1431          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1432          goto T574;}          goto T606;}
1433          if(!(type_of((V108))==t_cons)){          if(!(type_of((V112))==t_cons)){
1434          goto T573;}          goto T605;}
1435          if(!((car((V108)))==(VV[7]))){          if(!((CMPcar((V112)))==(VV[7]))){
1436          goto T573;}          goto T605;}
1437          goto T574;          goto T606;
1438  T574:;  T606:;
1439          base[3]= car((V110));          base[3]= CMPcar((V114));
1440          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1441          bds_unwind1;          bds_unwind1;
1442          return;          return;
1443          goto T573;          goto T605;
1444  T573:;  T605:;
1445          if(!(endp_prop((V110)))){          if(!(((V114))==Cnil)){
1446          goto T583;}          goto T615;}
1447          base[3]= symbol_value(VV[50]);          base[3]= (VV[50]->s.s_dbind);
1448          base[4]= VV[95];          base[4]= VV[95];
1449          base[5]= (V111);          base[5]= (V115);
1450          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1451          Lformat();          Lformat();
1452          vs_top=sup;          vs_top=sup;
1453          goto T581;          goto T613;
1454          goto T583;          goto T615;
1455  T583:;  T615:;
1456          {object V123;          {object V129;
1457          object V124;          object V130;
1458          V123= (V110);          V129= (V114);
1459          V124= Ct;          V130= Ct;
1460          goto T589;          goto T621;
1461  T589:;  T621:;
1462          if(!(endp_prop((V123)))){          if(!(((V129))==Cnil)){
1463          goto T590;}          goto T622;}
1464          goto T581;          goto T613;
1465          goto T590;          goto T622;
1466  T590:;  T622:;
1467          if(((V124))==Cnil){          if(((V130))==Cnil){
1468          goto T596;}          goto T628;}
1469          base[3]= symbol_value(VV[50]);          base[3]= (VV[50]->s.s_dbind);
1470          base[4]= VV[96];          base[4]= VV[96];
1471          base[5]= (V111);          base[5]= (V115);
1472          base[6]= car((V123));          base[6]= CMPcar((V129));
1473          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1474          Lformat();          Lformat();
1475          vs_top=sup;          vs_top=sup;
1476          goto T594;          goto T626;
1477          goto T596;          goto T628;
1478  T596:;  T628:;
1479          base[3]= symbol_value(VV[50]);          base[3]= (VV[50]->s.s_dbind);
1480          base[4]= VV[97];          base[4]= VV[97];
1481          base[5]= (V111);          base[5]= (V115);
1482          base[6]= car((V123));          base[6]= CMPcar((V129));
1483          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1484          Lformat();          Lformat();
1485          vs_top=sup;          vs_top=sup;
1486          goto T594;          goto T626;
1487  T594:;  T626:;
1488          V123= cdr((V123));          V129= CMPcdr((V129));
1489          V124= Cnil;          V130= Cnil;
1490          goto T589;}          goto T621;}
1491          goto T581;          goto T613;
1492  T581:;  T613:;
1493          (VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));          (VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));
1494          base[3]= (V110);          base[3]= (V114);
1495          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1496          Lvalues_list();          Lvalues_list();
1497          bds_unwind1;          bds_unwind1;
# Line 1461  static void LC17(base0) Line 1504  static void LC17(base0)
1504  register object *base0;  register object *base0;
1505  {       register object *base=vs_base;  {       register object *base=vs_base;
1506          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1507          vs_reserve(VM16);          vs_check;
1508          {object V125;          {object V131;
1509          check_arg(1);          V131=(base[0]);
         V125=(base[0]);  
1510          vs_top=sup;          vs_top=sup;
1511          base[1]= ((car((V125)))==((base0[0]->c.c_car))?Ct:Cnil);          base[1]= ((CMPcar((V131)))==((base0[0]->c.c_car))?Ct:Cnil);
1512          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1513          return;          return;
1514          }          }

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