/[gcl]/gcl/clcs/clcs_restart.c
ViewVC logotype

Diff of /gcl/clcs/clcs_restart.c

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

revision 1.6 by camm, Mon Sep 22 22:03:48 2003 UTC revision 1.7 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_restart.h"  #include "clcs_restart.h"
4  void init_clcs_restart(){do_init(VV);}  void init_clcs_restart(){do_init(VV);}
5  /*      local entry for function progn 'compile2184     */  /*      local entry for function progn 'compile2186     */
6    
7  static object LI1()  static object LI1()
8    
# Line 18  TTL:; Line 18  TTL:;
18          base[0]=base[0];          base[0]=base[0];
19          return Cnil;          return Cnil;
20  }  }
21  /*      local entry for function progn 'compile2196     */  /*      local entry for function progn 'compile2198     */
22    
23  static object LI2()  static object LI2()
24    
25  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
26          goto TTL;          goto TTL;
27  TTL:;  TTL:;
28          base[0]= VV[0];          if(!((VV[0])->s.s_dbind!=OBJNULL)){
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
29          goto T4;}          goto T4;}
30          goto T3;          goto T3;
31          goto T4;          goto T4;
# Line 37  T4:; Line 33  T4:;
33          vs_base=vs_top;          vs_base=vs_top;
34          Lmake_hash_table();          Lmake_hash_table();
35          vs_top=sup;          vs_top=sup;
36          setq(VV[0],vs_base[0]);          (VV[0]->s.s_dbind)= vs_base[0];
37          goto T3;          goto T3;
38  T3:;  T3:;
39          {object V2 = Cnil;          {object V2 = Cnil;
# Line 45  T3:; Line 41  T3:;
41          base[0]=base[0];          base[0]=base[0];
42          return Cnil;          return Cnil;
43  }  }
44  /*      local entry for function progn 'compile2209     */  /*      local entry for function progn 'compile2211     */
45    
46  static object LI3()  static object LI3()
47    
# Line 56  TTL:; Line 52  TTL:;
52          VMR3(V3)}          VMR3(V3)}
53          return Cnil;          return Cnil;
54  }  }
55  /*      local entry for function progn 'compile2225     */  /*      local entry for function progn 'compile2227     */
56    
57  static object LI4()  static object LI4()
58    
# Line 72  TTL:; Line 68  TTL:;
68          base[0]=base[0];          base[0]=base[0];
69          return Cnil;          return Cnil;
70  }  }
71  /*      local entry for function progn 'compile2237     */  /*      local entry for function progn 'compile2239     */
72    
73  static object LI5()  static object LI5()
74    
75  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
76          goto TTL;          goto TTL;
77  TTL:;  TTL:;
78          base[0]= VV[1];          if(!((VV[1])->s.s_dbind!=OBJNULL)){
79          vs_top=(vs_base=base+0)+1;          goto T11;}
80          Lboundp();          goto T10;
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T12;}  
         goto T11;  
         goto T12;  
 T12:;  
         setq(VV[1],small_fixnum(-1));  
81          goto T11;          goto T11;
82  T11:;  T11:;
83            (VV[1]->s.s_dbind)= small_fixnum(-1);
84            goto T10;
85    T10:;
86          {object V5 = Cnil;          {object V5 = Cnil;
87          VMR5(V5)}          VMR5(V5)}
         base[0]=base[0];  
88          return Cnil;          return Cnil;
89  }  }
90  /*      local entry for function progn 'compile2250     */  /*      local entry for function progn 'compile2252     */
91    
92  static object LI6()  static object LI6()
93    
# Line 116  object V8; Line 107  object V8;
107          goto TTL;          goto TTL;
108  TTL:;{object V9;  TTL:;{object V9;
109          base[0]= (V8);          base[0]= (V8);
110          base[1]= symbol_value(VV[0]);          base[1]= (VV[0]->s.s_dbind);
111          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
112          Lgethash();          Lgethash();
113          vs_top=sup;          vs_top=sup;
114          V9= vs_base[0];          V9= vs_base[0];
115          if(V9==Cnil)goto T17;          if(V9==Cnil)goto T15;
116          {object V10 = V9;          {object V10 = V9;
117          VMR7(V10)}          VMR7(V10)}
118          goto T17;          goto T15;
119  T17:;}  T15:;}
120          {object V12;          {object V12;
121          object V13;          object V13;
122          V12= symbol_value(VV[0]);          V12= (VV[0]->s.s_dbind);
123          setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));          (VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1));
124          V13= symbol_value(VV[1]);          V13= (VV[1]->s.s_dbind);
125          base[1]= V8;          base[1]= V8;
126          base[2]= (V12);          base[2]= (V12);
127          base[3]= (V13);          base[3]= (V13);
# Line 147  T17:;} Line 138  T17:;}
138  static void L8()  static void L8()
139  {register object *base=vs_base;  {register object *base=vs_base;
140          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
141          vs_reserve(VM8);          vs_check;
142          {object V15;          {object V15;
143          register object V16;          register object V16;
         check_arg(2);  
144          V15=(base[0]);          V15=(base[0]);
145          V16=(base[1]);          V16=(base[1]);
146          vs_top=sup;          vs_top=sup;
# Line 160  TTL:; Line 150  TTL:;
150          register object V18;          register object V18;
151          V17= (V15);          V17= (V15);
152          V18= Cnil;          V18= Cnil;
153          goto T28;          goto T26;
154  T28:;  T26:;
155          if(((V17))==Cnil){          if(((V17))==Cnil){
156          goto T30;}          goto T28;}
157          {register object x= car((V17)),V19= (V16);          {register object x= CMPcar((V17)),V19= (V16);
158          while(!endp(V19))          while(V19!=Cnil)
159          if(eql(x,V19->c.c_car)){          if(eql(x,V19->c.c_car)){
160          goto T29;          goto T27;
161          }else V19=V19->c.c_cdr;}          }else V19=V19->c.c_cdr;}
162          goto T30;          goto T28;
163  T30:;  T28:;
164          base[2]= nreverse((V18));          base[2]= nreverse((V18));
165          base[3]= (V17);          base[3]= (V17);
166          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
167          return;          return;
168          goto T29;          goto T27;
169  T29:;  T27:;
170          {object V20;          {object V20;
171          V20= cddr((V17));          V20= CMPcddr((V17));
172          V18= listA(3,cadr((V17)),car((V17)),(V18));          V18= listA(3,CMPcadr((V17)),CMPcar((V17)),(V18));
173          V17= (V20);}          V17= (V20);}
174          goto T28;}          goto T26;}
175          }          }
176  }  }
177  /*      macro definition for WITH-KEYWORD-PAIRS */  /*      macro definition for WITH-KEYWORD-PAIRS */
# Line 189  T29:; Line 179  T29:;
179  static void L9()  static void L9()
180  {register object *base=vs_base;  {register object *base=vs_base;
181          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
182          vs_reserve(VM9);          vs_check;
         check_arg(2);  
183          vs_top=sup;          vs_top=sup;
184          {object V21=base[0]->c.c_cdr;          {object V21=base[0]->c.c_cdr;
         if(endp(V21))invalid_macro_call();  
185          {object V22= (V21->c.c_car);          {object V22= (V21->c.c_car);
         if(endp(V22))invalid_macro_call();  
186          base[2]= (V22->c.c_car);          base[2]= (V22->c.c_car);
187          V22=V22->c.c_cdr;          V22=V22->c.c_cdr;
         if(endp(V22))invalid_macro_call();  
188          base[3]= (V22->c.c_car);          base[3]= (V22->c.c_car);
189          V22=V22->c.c_cdr;          V22=V22->c.c_cdr;
190          if(endp(V22)){          if(endp(V22)){
191          base[4]= Cnil;          base[4]= Cnil;
192          } else {          } else {
193          base[4]= (V22->c.c_car);          base[4]= (V22->c.c_car);}}
         V22=V22->c.c_cdr;}  
         if(!endp(V22))invalid_macro_call();}  
194          V21=V21->c.c_cdr;          V21=V21->c.c_cdr;
195          base[5]= V21;}          base[5]= V21;}
196          {register object V23;          {register object V23;
197          {register object x= VV[2],V24= base[2];          {register object x= VV[2],V24= base[2];
198          while(!endp(V24))          while(V24!=Cnil)
199          if(eql(x,V24->c.c_car)){          if(eql(x,V24->c.c_car)){
200          V23= V24;          V23= V24;
201          goto T42;          goto T40;
202          }else V24=V24->c.c_cdr;          }else V24=V24->c.c_cdr;
203          V23= Cnil;}          V23= Cnil;}
204          goto T42;          goto T40;
205  T42:;  T40:;
206          if(((long)length((V23)))==(2)){          if(((long)length((V23)))==(2)){
207          goto T43;}          goto T41;}
208          base[6]= VV[3];          base[6]= VV[3];
209          base[7]= (V23);          base[7]= (V23);
210          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
211          (void) (*Lnk70)();          (void) (*Lnk70)();
212          vs_top=sup;          vs_top=sup;
213          goto T43;          goto T41;
214  T43:;  T41:;
215          {object V25;          {object V25;
216          object V26;          object V26;
217          object V27;          object V27;
# Line 239  T43:; Line 223  T43:;
223          V25= vs_base[0];          V25= vs_base[0];
224          if(base[4]!=Cnil){          if(base[4]!=Cnil){
225          V26= base[4];          V26= base[4];
226          goto T51;}          goto T49;}
227          vs_base=vs_top;          vs_base=vs_top;
228          Lgensym();          Lgensym();
229          vs_top=sup;          vs_top=sup;
230          V26= vs_base[0];          V26= vs_base[0];
231          goto T51;          goto T49;
232  T51:;  T49:;
233          V27= cadr((V23));          V27= CMPcadr((V23));
234          {object V28;          {object V28;
235          {object V29;          {object V29;
236          object V30= (V25);          object V30= (V25);
237          if(endp(V30)){          if(V30==Cnil){
238          V28= Cnil;          V28= Cnil;
239          goto T53;}          goto T51;}
240          base[6]=V29=MMcons(Cnil,Cnil);          base[6]=V29=MMcons(Cnil,Cnil);
241          goto T54;          goto T52;
242  T54:;  T52:;
243          base[7]= coerce_to_string((V30->c.c_car));          base[7]= coerce_to_string((V30->c.c_car));
244          base[9]= VV[4];          base[9]= VV[4];
245          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 266  T54:; Line 250  T54:;
250          Lintern();          Lintern();
251          vs_top=sup;          vs_top=sup;
252          (V29->c.c_car)= vs_base[0];          (V29->c.c_car)= vs_base[0];
253          V30=MMcdr(V30);          if((V30=MMcdr(V30))==Cnil){
         if(endp(V30)){  
254          V28= base[6];          V28= base[6];
255          goto T53;}          goto T51;}
256          V29=MMcdr(V29)=MMcons(Cnil,Cnil);          V29=MMcdr(V29)=MMcons(Cnil,Cnil);
257          goto T54;}          goto T52;}
258          goto T53;          goto T51;
259  T53:;  T51:;
260          V32= list(2,(V26),(V27));          V32= list(2,(V26),(V27));
261          V33= list(3,VV[6],base[3],list(2,VV[7],(V28)));          V33= list(3,VV[6],base[3],list(2,VV[7],(V28)));
262          {object V35;          {object V35;
263          object V36= (V25);          object V36= (V25);
264          object V37= (V28);          object V37= (V28);
265          if(endp(V36)||endp(V37)){          if(V36==Cnil||V37==Cnil){
266          V34= Cnil;          V34= Cnil;
267          goto T59;}          goto T57;}
268          base[6]=V35=MMcons(Cnil,Cnil);          base[6]=V35=MMcons(Cnil,Cnil);
269          goto T60;          goto T58;
270  T60:;  T58:;
271          (V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car)));          (V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car)));
272          V36=MMcdr(V36);          if((V36=MMcdr(V36))==Cnil||(V37=MMcdr(V37))==Cnil){
         V37=MMcdr(V37);  
         if(endp(V36)||endp(V37)){  
273          V34= base[6];          V34= base[6];
274          goto T59;}          goto T57;}
275          V35=MMcdr(V35)=MMcons(Cnil,Cnil);          V35=MMcdr(V35)=MMcons(Cnil,Cnil);
276          goto T60;}          goto T58;}
277          goto T59;          goto T57;
278  T59:;  T57:;
279          base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5]));          base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5]));
280          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
281          return;}}}          return;}}}
282  }  }
283  /*      local entry for function progn 'compile2351     */  /*      local entry for function progn 'compile2353     */
284    
285  static object LI10()  static object LI10()
286    
# Line 315  TTL:; Line 296  TTL:;
296          base[0]=base[0];          base[0]=base[0];
297          return Cnil;          return Cnil;
298  }  }
299  /*      local entry for function progn 'compile2363     */  /*      local entry for function progn 'compile2365     */
300    
301  static object LI11()  static object LI11()
302    
303  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
304          goto TTL;          goto TTL;
305  TTL:;  TTL:;
306          base[0]= VV[10];          if(!((VV[10])->s.s_dbind!=OBJNULL)){
307          vs_top=(vs_base=base+0)+1;          goto T63;}
308          Lboundp();          goto T62;
309          vs_top=sup;          goto T63;
310          if((vs_base[0])==Cnil){  T63:;
311          goto T65;}          (VV[10]->s.s_dbind)= Cnil;
312          goto T64;          goto T62;
313          goto T65;  T62:;
 T65:;  
         setq(VV[10],Cnil);  
         goto T64;  
 T64:;  
314          {object V41 = Cnil;          {object V41 = Cnil;
315          VMR11(V41)}          VMR11(V41)}
         base[0]=base[0];  
316          return Cnil;          return Cnil;
317  }  }
318  /*      local entry for function progn 'compile2376     */  /*      local entry for function progn 'compile2378     */
319    
320  static object LI12()  static object LI12()
321    
# Line 359  static object LI13(object first,...) Line 335  static object LI13(object first,...)
335          {object V43;          {object V43;
336          va_start(ap,first);          va_start(ap,first);
337          narg = narg - 0;          narg = narg - 0;
338          if (narg <= 0) goto T70;          if (narg <= 0) goto T67;
339          else {          else {
340          V43= first;}          V43= first;}
341          --narg; goto T71;          --narg; goto T68;
342          goto T70;          goto T67;
343  T70:;  T67:;
344          V43= Cnil;          V43= Cnil;
345          goto T71;          goto T68;
346  T71:;  T68:;
347          base[1]= symbol_value(VV[10]);          base[1]= (VV[10]->s.s_dbind);
348          {object V45;          {object V45;
349          object V46= base[1];          object V46= base[1];
350          if(endp(V46)){          if(V46==Cnil){
351          V44= Cnil;          V44= Cnil;
352          goto T73;}          goto T70;}
353          base[0]=V45=MMcons(Cnil,Cnil);          base[0]=V45=MMcons(Cnil,Cnil);
354          goto T74;          goto T71;
355  T74:;  T71:;
356          base[2]= (V46->c.c_car);          base[2]= (V46->c.c_car);
357          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
358          Lcopy_list();          Lcopy_list();
359          vs_top=sup;          vs_top=sup;
360          (V45->c.c_cdr)= vs_base[0];          (V45->c.c_cdr)= vs_base[0];
361          {object cdr_V45=MMcdr(V45);while(!endp(cdr_V45)) {cdr_V45=MMcdr(cdr_V45);V45=MMcdr(V45);}}          while(MMcdr(V45)!=Cnil)V45=MMcdr(V45);
362          V46=MMcdr(V46);          if((V46=MMcdr(V46))==Cnil){
         if(endp(V46)){  
363          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
364          V44= base[0];          V44= base[0];
365          goto T73;}          goto T70;}
366          goto T74;}          goto T71;}
367          goto T73;          goto T70;
368  T73:;  T70:;
369          V47= (*(LnkLI71))();          V47= (*(LnkLI71))();
370          {object V48 = nconc(V44,/* INLINE-ARGS */V47);          {object V48 = nconc(V44,/* INLINE-ARGS */V47);
371          VMR13(V48)}          VMR13(V48)}
# Line 403  T73:; Line 378  T73:;
378  static void L14()  static void L14()
379  {register object *base=vs_base;  {register object *base=vs_base;
380          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
381          vs_reserve(VM14);          vs_check;
382          {object V49;          {object V49;
383          object V50;          object V50;
384          object V51;          object V51;
         check_arg(3);  
385          V49=(base[0]);          V49=(base[0]);
386          V50=(base[1]);          V50=(base[1]);
387          V51=(base[2]);          V51=(base[2]);
388          vs_top=sup;          vs_top=sup;
389          goto TTL;          goto TTL;
390  TTL:;  TTL:;
391          if((symbol_value(VV[11]))==Cnil){          if(((VV[11]->s.s_dbind))==Cnil){
392          goto T78;}          goto T75;}
393          base[3]= (V50);          base[3]= (V50);
394          base[4]= VV[12];          base[4]= VV[12];
395          base[6]= (V49);          base[6]= (V49);
# Line 427  TTL:; Line 401  TTL:;
401          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
402          Lformat();          Lformat();
403          return;          return;
404          goto T78;          goto T75;
405  T78:;  T75:;
406          base[3]= (V49);          base[3]= (V49);
407          base[4]= (V50);          base[4]= (V50);
408          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 436  T78:; Line 410  T78:;
410          return;          return;
411          }          }
412  }  }
413  /*      local entry for function progn 'compile2416     */  /*      local entry for function progn 'compile2418     */
414    
415  static object LI15()  static object LI15()
416    
# Line 497  static object LI16(object first,...) Line 471  static object LI16(object first,...)
471          base[0]=base[0];          base[0]=base[0];
472          return Cnil;}          return Cnil;}
473          }}          }}
474  /*      local entry for function progn 'compile2436     */  /*      local entry for function progn 'compile2438     */
475    
476  static object LI17()  static object LI17()
477    
# Line 508  TTL:; Line 482  TTL:;
482          VMR17(V58)}          VMR17(V58)}
483          return Cnil;          return Cnil;
484  }  }
485  /*      local entry for function progn 'compile2452     */  /*      local entry for function progn 'compile2454     */
486    
487  static object LI18()  static object LI18()
488    
# Line 524  TTL:; Line 498  TTL:;
498          base[0]=base[0];          base[0]=base[0];
499          return Cnil;          return Cnil;
500  }  }
501  /*      local entry for function progn 'compile2464     */  /*      local entry for function progn 'compile2466     */
502    
503  static object LI19()  static object LI19()
504    
505  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
506          goto TTL;          goto TTL;
507  TTL:;  TTL:;
508          base[0]= VV[20];          if(!((VV[20])->s.s_dbind!=OBJNULL)){
509          vs_top=(vs_base=base+0)+1;          goto T108;}
510          Lboundp();          goto T107;
511          vs_top=sup;          goto T108;
512          if((vs_base[0])==Cnil){  T108:;
513          goto T111;}          (VV[20]->s.s_dbind)= Cnil;
514          goto T110;          goto T107;
515          goto T111;  T107:;
 T111:;  
         setq(VV[20],Cnil);  
         goto T110;  
 T110:;  
516          {object V60 = Cnil;          {object V60 = Cnil;
517          VMR19(V60)}          VMR19(V60)}
         base[0]=base[0];  
518          return Cnil;          return Cnil;
519  }  }
520  /*      local entry for function progn 'compile2477     */  /*      local entry for function progn 'compile2479     */
521    
522  static object LI20()  static object LI20()
523    
# Line 585  object V68; Line 554  object V68;
554  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
555          goto TTL;          goto TTL;
556  TTL:;{object V70;  TTL:;{object V70;
557          {register object x= (V68),V71= symbol_value(VV[20]);          {register object x= (V68),V71= (VV[20]->s.s_dbind);
558          while(!endp(V71))          while(V71!=Cnil)
559          if(type_of(V71->c.c_car)==t_cons &&eql(x,V71->c.c_car->c.c_car)){          if(eql(x,V71->c.c_car->c.c_car) &&V71->c.c_car != Cnil){
560          V70= (V71->c.c_car);          V70= (V71->c.c_car);
561          goto T120;          goto T116;
562          }else V71=V71->c.c_cdr;          }else V71=V71->c.c_cdr;
563          V70= Cnil;}          V70= Cnil;}
564          goto T120;          goto T116;
565  T120:;  T116:;
566          if(V70==Cnil)goto T119;          if(V70==Cnil)goto T115;
567          V69= V70;          V69= V70;
568          goto T118;          goto T114;
569          goto T119;          goto T115;
570  T119:;}  T115:;}
571          {object V73;          {object V73;
572          V74= (*(LnkLI75))((V68));          V74= (*(LnkLI75))((V68));
573          V73= make_cons((V68),/* INLINE-ARGS */V74);          V73= make_cons((V68),/* INLINE-ARGS */V74);
574          setq(VV[20],make_cons((V73),symbol_value(VV[20])));          (VV[20]->s.s_dbind)= make_cons((V73),(VV[20]->s.s_dbind));
575          V72= symbol_value(VV[20]);}          V72= (VV[20]->s.s_dbind);}
576          V69= car(V72);          V69= CMPcar(V72);
577          goto T118;          goto T114;
578  T118:;  T114:;
579          {object V75 = cdr(V69);          {object V75 = CMPcdr(V69);
580          VMR22(V75)}          VMR22(V75)}
581          base[0]=base[0];          base[0]=base[0];
582          return Cnil;          return Cnil;
# Line 622  TTL:; Line 591  TTL:;
591          {object V76;          {object V76;
592          object V77;          object V77;
593          object V78;          object V78;
594          base[4]= symbol_value(VV[27]);          base[4]= (VV[27]->s.s_dbind);
595          {object V79;          {object V79;
596          object V80= base[4];          object V80= base[4];
597          if(endp(V80)){          if(V80==Cnil){
598          V76= Cnil;          V76= Cnil;
599          goto T124;}          goto T120;}
600          base[3]=V79=MMcons(Cnil,Cnil);          base[3]=V79=MMcons(Cnil,Cnil);
601          goto T125;          goto T121;
602  T125:;  T121:;
603          if((cdr((V80->c.c_car)))==Cnil){          if((CMPcdr((V80->c.c_car)))==Cnil){
604            goto T124;}
605            (V79->c.c_cdr)= make_cons(CMPcdr((V80->c.c_car)),Cnil);
606            goto T122;
607            goto T124;
608    T124:;
609            (V79->c.c_cdr)= Cnil;
610            goto T122;
611    T122:;
612            while(MMcdr(V79)!=Cnil)V79=MMcdr(V79);
613            if((V80=MMcdr(V80))==Cnil){
614            base[3]=base[3]->c.c_cdr;
615            V76= base[3];
616            goto T120;}
617            goto T121;}
618            goto T120;
619    T120:;
620            if(((VV[25]->s.s_dbind))==Cnil){
621          goto T128;}          goto T128;}
622          (V79->c.c_cdr)= make_cons(cdr((V80->c.c_car)),Cnil);          V77= make_cons((VV[25]->s.s_dbind),(V76));
623          goto T126;          goto T126;
624          goto T128;          goto T128;
625  T128:;  T128:;
626          (V79->c.c_cdr)= Cnil;          V77= (V76);
627          goto T126;          goto T126;
628  T126:;  T126:;
         {object cdr_V79=MMcdr(V79);while(!endp(cdr_V79)) {cdr_V79=MMcdr(cdr_V79);V79=MMcdr(V79);}}  
         V80=MMcdr(V80);  
         if(endp(V80)){  
         base[3]=base[3]->c.c_cdr;  
         V76= base[3];  
         goto T124;}  
         goto T125;}  
         goto T124;  
 T124:;  
         if((symbol_value(VV[25]))==Cnil){  
         goto T132;}  
         V77= make_cons(symbol_value(VV[25]),(V76));  
         goto T130;  
         goto T132;  
 T132:;  
         V77= (V76);  
         goto T130;  
 T130:;  
629          {object V82;          {object V82;
630          object V83= (V77);          object V83= (V77);
631          if(endp(V83)){          if(V83==Cnil){
632          V78= Cnil;          V78= Cnil;
633          goto T134;}          goto T130;}
634          base[3]=V82=MMcons(Cnil,Cnil);          base[3]=V82=MMcons(Cnil,Cnil);
635          goto T135;          goto T131;
636  T135:;  T131:;
637          (V82->c.c_car)= (*(LnkLI76))((V83->c.c_car));          (V82->c.c_car)= (*(LnkLI76))((V83->c.c_car));
638          V83=MMcdr(V83);          if((V83=MMcdr(V83))==Cnil){
         if(endp(V83)){  
639          V78= base[3];          V78= base[3];
640          goto T134;}          goto T130;}
641          V82=MMcdr(V82)=MMcons(Cnil,Cnil);          V82=MMcdr(V82)=MMcons(Cnil,Cnil);
642          goto T135;}          goto T131;}
643          goto T134;          goto T130;
644  T134:;  T130:;
645          {object V84;          {object V84;
646          object V85= (V77);          object V85= (V77);
647          object V86= (V78);          object V86= (V78);
648          if(endp(V85)||endp(V86)){          if(V85==Cnil||V86==Cnil){
649          setq(VV[20],Cnil);          (VV[20]->s.s_dbind)= Cnil;
650          goto T138;}          goto T134;}
651          base[3]=V84=MMcons(Cnil,Cnil);          base[3]=V84=MMcons(Cnil,Cnil);
652          goto T139;          goto T135;
653  T139:;  T135:;
654          (V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car));          (V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car));
655          V85=MMcdr(V85);          if((V85=MMcdr(V85))==Cnil||(V86=MMcdr(V86))==Cnil){
656          V86=MMcdr(V86);          (VV[20]->s.s_dbind)= base[3];
657          if(endp(V85)||endp(V86)){          goto T134;}
         setq(VV[20],base[3]);  
         goto T138;}  
658          V84=MMcdr(V84)=MMcons(Cnil,Cnil);          V84=MMcdr(V84)=MMcons(Cnil,Cnil);
659          goto T139;}          goto T135;}
660          goto T138;          goto T134;
661  T138:;  T134:;
662          {object V87 = (V78);          {object V87 = (V78);
663          VMR23(V87)}}          VMR23(V87)}}
664          base[0]=base[0];          base[0]=base[0];
# Line 704  T138:; Line 669  T138:;
669  static void L25()  static void L25()
670  {register object *base=vs_base;  {register object *base=vs_base;
671          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
672          vs_reserve(VM24);          vs_check;
673          {object V88;          {object V88;
         check_arg(2);  
674          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
675          V88=(base[1]);          V88=(base[1]);
676          vs_top=sup;          vs_top=sup;
677          {object V89;          {object V89;
678          V89= structure_ref((base[0]->c.c_car),VV[13],2);          V89= STREF(object,(base[0]->c.c_car),8);
679          if(((V89))==Cnil){          if(((V89))==Cnil){
680          goto T144;}          goto T140;}
681          base[2]= (V89);          base[2]= (V89);
682          goto T141;          goto T137;
683          goto T144;          goto T140;
684  T144:;  T140:;
685          base[3]= structure_ref((base[0]->c.c_car),VV[13],0);          base[3]= STREF(object,(base[0]->c.c_car),0);
686          base[3]=MMcons(base[3],base[0]);          base[3]=MMcons(base[3],base[0]);
687          base[2]=          base[2]=
688          make_cclosure_new(LC40,Cnil,base[3],Cdata);}          make_cclosure_new(LC40,Cnil,base[3],Cdata);}
689          goto T141;          goto T137;
690  T141:;  T137:;
691          base[3]= (V88);          base[3]= (V88);
692          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
693          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
# Line 738  T141:; Line 702  T141:;
702  static void L26()  static void L26()
703  {register object *base=vs_base;  {register object *base=vs_base;
704          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
705          vs_reserve(VM25);          vs_check;
         check_arg(2);  
706          vs_top=sup;          vs_top=sup;
707          {object V90=base[0]->c.c_cdr;          {object V90=base[0]->c.c_cdr;
         if(endp(V90))invalid_macro_call();  
708          base[2]= (V90->c.c_car);          base[2]= (V90->c.c_car);
709          V90=V90->c.c_cdr;          V90=V90->c.c_cdr;
710          base[3]= V90;}          base[3]= V90;}
711          {object V92;          {object V92;
712          object V93= base[2];          object V93= base[2];
713          if(endp(V93)){          if(V93==Cnil){
714          V91= Cnil;          V91= Cnil;
715          goto T148;}          goto T144;}
716          base[4]=V92=MMcons(Cnil,Cnil);          base[4]=V92=MMcons(Cnil,Cnil);
717          goto T149;          goto T145;
718  T149:;  T145:;
719          (V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V93->c.c_car))),VV[23],cadr((V93->c.c_car)),cddr((V93->c.c_car)));          (V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],CMPcar((V93->c.c_car))),VV[23],CMPcadr((V93->c.c_car)),CMPcddr((V93->c.c_car)));
720          V93=MMcdr(V93);          if((V93=MMcdr(V93))==Cnil){
         if(endp(V93)){  
721          V91= base[4];          V91= base[4];
722          goto T148;}          goto T144;}
723          V92=MMcdr(V92)=MMcons(Cnil,Cnil);          V92=MMcdr(V92)=MMcons(Cnil,Cnil);
724          goto T149;}          goto T145;}
725          goto T148;          goto T144;
726  T148:;  T144:;
727          V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10]));          V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10]));
728          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]);          base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]);
729          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 777  static object LI27(object V96,object fir Line 738  static object LI27(object V96,object fir
738          {register object V97;          {register object V97;
739          object V98;          object V98;
740          va_start(ap,first);          va_start(ap,first);
         if(narg <1) too_few_arguments();  
741          V97= V96;          V97= V96;
742          narg = narg - 1;          narg = narg - 1;
743          if (narg <= 0) goto T151;          if (narg <= 0) goto T147;
744          else {          else {
745          V98= first;}          V98= first;}
746          --narg; goto T152;          --narg; goto T148;
747          goto T151;          goto T147;
748  T151:;  T147:;
749          V98= Cnil;          V98= Cnil;
750          goto T152;          goto T148;
751  T152:;  T148:;
752          {register object V99;          {register object V99;
753          object V100;          object V100;
754          V99= symbol_value(VV[10]);          V99= (VV[10]->s.s_dbind);
755          V100= car((V99));          V100= CMPcar((V99));
         goto T158;  
 T158:;  
         if(!(endp_prop((V99)))){  
         goto T159;}  
756          goto T154;          goto T154;
757          goto T159;  T154:;
758  T159:;          if(!(((V99))==Cnil)){
759            goto T155;}
760            goto T150;
761            goto T155;
762    T155:;
763          {register object V101;          {register object V101;
764          register object V102;          register object V102;
765          V101= (V100);          V101= (V100);
766          V102= car((V101));          V102= CMPcar((V101));
         goto T167;  
 T167:;  
         if(!(endp_prop((V101)))){  
         goto T168;}  
767          goto T163;          goto T163;
768    T163:;
769            if(!(((V101))==Cnil)){
770            goto T164;}
771            goto T159;
772            goto T164;
773    T164:;
774            if(((V102))==((V97))){
775            goto T169;}
776            if(!((STREF(object,(V102),0))==((V97)))){
777            goto T168;}
778            goto T169;
779    T169:;
780            {object V103 = (V102);
781            VMR26(V103)}
782          goto T168;          goto T168;
783  T168:;  T168:;
784          if(((V102))==((V97))){          V101= CMPcdr((V101));
785          goto T173;}          V102= CMPcar((V101));
786          V103= structure_ref((V102),VV[13],0);          goto T163;}
787          if(!((/* INLINE-ARGS */V103)==((V97)))){          goto T159;
788          goto T172;}  T159:;
789          goto T173;          V99= CMPcdr((V99));
790  T173:;          V100= CMPcar((V99));
791          {object V104 = (V102);          goto T154;}
792          VMR26(V104)}          goto T150;
793          goto T172;  T150:;
794  T172:;          {object V104;
795          V101= cdr((V101));          V104= (*(LnkLI71))();
796          V102= car((V101));          {register object V105;
797          goto T167;}          register object V106;
798          goto T163;          V105= (V104);
799  T163:;          V106= CMPcar((V105));
800          V99= cdr((V99));          goto T187;
801          V100= car((V99));  T187:;
802          goto T158;}          if(!(((V105))==Cnil)){
803          goto T154;          goto T188;}
804  T154:;          {object V107 = Cnil;
805          {object V105;          VMR26(V107)}
806          V105= (*(LnkLI71))();          goto T188;
807          {register object V106;  T188:;
808          register object V107;          if(((V106))==((V97))){
809          V106= (V105);          goto T193;}
810          V107= car((V106));          if(!((STREF(object,(V106),0))==((V97)))){
         goto T191;  
 T191:;  
         if(!(endp_prop((V106)))){  
811          goto T192;}          goto T192;}
812          {object V108 = Cnil;          goto T193;
813    T193:;
814            {object V108 = (V106);
815          VMR26(V108)}          VMR26(V108)}
816          goto T192;          goto T192;
817  T192:;  T192:;
818          if(((V107))==((V97))){          V105= CMPcdr((V105));
819          goto T197;}          V106= CMPcar((V105));
820          V109= structure_ref((V107),VV[13],0);          goto T187;}}
         if(!((/* INLINE-ARGS */V109)==((V97)))){  
         goto T196;}  
         goto T197;  
 T197:;  
         {object V110 = (V107);  
         VMR26(V110)}  
         goto T196;  
 T196:;  
         V106= cdr((V106));  
         V107= car((V106));  
         goto T191;}}  
821          va_end(ap);          va_end(ap);
822          base[0]=base[0];          base[0]=base[0];
823          return Cnil;}          return Cnil;}
# Line 869  T196:; Line 827  T196:;
827  static void L28()  static void L28()
828  {register object *base=vs_base;  {register object *base=vs_base;
829          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
830          vs_reserve(VM27);          vs_check;
831          {object V111;          {object V109;
832          object V112;          object V110;
833          if(vs_top-vs_base<1) too_few_arguments();          V109=(base[0]);
         V111=(base[0]);  
834          vs_base=vs_base+1;          vs_base=vs_base+1;
835          vs_top[0]=Cnil;          vs_top[0]=Cnil;
836          {object *p=vs_top;          {object *p=vs_top;
837           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
838          V112=(base[1]);          V110=(base[1]);
839          vs_top=sup;          vs_top=sup;
840          {object V113;{object V114;          {object V111;{object V112;
841          V114= (VFUN_NARGS=1,(*(LnkLI77))((V111)));          V112= (VFUN_NARGS=1,(*(LnkLI77))((V109)));
842          if(V114==Cnil)goto T207;          if(V112==Cnil)goto T203;
843          V113= V114;          V111= V112;
844          goto T206;          goto T202;
845          goto T207;          goto T203;
846  T207:;}  T203:;}
847          base[2]= VV[40];          base[2]= VV[40];
848          base[3]= (V111);          base[3]= (V109);
849          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
850          (void) (*Lnk70)();          (void) (*Lnk70)();
851          vs_top=sup;          vs_top=sup;
852          V113= vs_base[0];          V111= vs_base[0];
853          goto T206;          goto T202;
854  T206:;  T202:;
855          base[2]= structure_ref((V113),VV[13],1);          base[2]= STREF(object,(V111),4);
856          {object V115;          {object V113;
857          V115= (V112);          V113= (V110);
858           vs_top=base+3;           vs_top=base+3;
859           while(!endp(V115))           while(V113!=Cnil)
860           {vs_push(car(V115));V115=cdr(V115);}           {vs_push((V113)->c.c_car);V113=(V113)->c.c_cdr;}
861          vs_base=base+3;}          vs_base=base+3;}
862          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
863                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 914  T206:; Line 871  T206:;
871  static void L29()  static void L29()
872  {register object *base=vs_base;  {register object *base=vs_base;
873          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
874          vs_reserve(VM28);          vs_check;
875          {object V116;          {object V114;
876          check_arg(1);          V114=(base[0]);
         V116=(base[0]);  
877          vs_top=sup;          vs_top=sup;
878          goto TTL;          goto TTL;
879  TTL:;  TTL:;
880          {object V117;{object V118;          {object V115;{object V116;
881          V118= (VFUN_NARGS=1,(*(LnkLI77))((V116)));          V116= (VFUN_NARGS=1,(*(LnkLI77))((V114)));
882          if(V118==Cnil)goto T214;          if(V116==Cnil)goto T210;
883          V117= V118;          V115= V116;
884          goto T213;          goto T209;
885          goto T214;          goto T210;
886  T214:;}  T210:;}
887          base[1]= VV[41];          base[1]= VV[41];
888          base[2]= (V116);          base[2]= (V114);
889          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
890          (void) (*Lnk70)();          (void) (*Lnk70)();
891          vs_top=sup;          vs_top=sup;
892          V117= vs_base[0];          V115= vs_base[0];
893          goto T213;          goto T209;
894  T213:;  T209:;
895          base[1]= structure_ref((V117),VV[13],1);          base[1]= STREF(object,(V115),4);
896          {object V119;          {object V117;
897          {object V120;          {object V118;
898          V120= structure_ref((V117),VV[13],3);          V118= STREF(object,(V115),12);
899          if(((V120))==Cnil){          if(((V118))==Cnil){
900          goto T222;}          goto T218;}
901          vs_base=vs_top;          vs_base=vs_top;
902          {object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
903                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
904                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
905                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
906          vs_top=sup;          vs_top=sup;
907          V119= vs_base[0];          V117= vs_base[0];
908          goto T219;          goto T215;
909          goto T222;          goto T218;
910  T222:;  T218:;
911          V119= Cnil;}          V117= Cnil;}
912          goto T219;          goto T215;
913  T219:;  T215:;
914           vs_top=base+2;           vs_top=base+2;
915           while(!endp(V119))           while(V117!=Cnil)
916           {vs_push(car(V119));V119=cdr(V119);}           {vs_push((V117)->c.c_car);V117=(V117)->c.c_cdr;}
917          vs_base=base+2;}          vs_base=base+2;}
918          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
919                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 971  T219:; Line 927  T219:;
927  static void L30()  static void L30()
928  {register object *base=vs_base;  {register object *base=vs_base;
929          register object *sup=base+VM29; VC29          register object *sup=base+VM29; VC29
930          vs_reserve(VM29);          vs_check;
         check_arg(2);  
931          vs_top=sup;          vs_top=sup;
932          {object V121=base[0]->c.c_cdr;          {object V119=base[0]->c.c_cdr;
933          if(endp(V121))invalid_macro_call();          base[2]= (V119->c.c_car);
934          base[2]= (V121->c.c_car);          V119=V119->c.c_cdr;
935          V121=V121->c.c_cdr;          base[3]= V119;}
936          base[3]= V121;}          {object V120;
937          {object V122;          object V121;
938          object V123;          object V122;
         object V124;  
939          vs_base=vs_top;          vs_base=vs_top;
940          Lgensym();          Lgensym();
941          vs_top=sup;          vs_top=sup;
942          V122= vs_base[0];          V120= vs_base[0];
943          vs_base=vs_top;          vs_base=vs_top;
944          Lgensym();          Lgensym();
945          vs_top=sup;          vs_top=sup;
946          V123= vs_base[0];          V121= vs_base[0];
947          {object V125;          {object V123;
948          object V126= base[3];          object V124= base[3];
949          if(endp(V126)){          if(V124==Cnil){
950          V124= Cnil;          V122= Cnil;
951          goto T226;}          goto T222;}
952          base[4]=V125=MMcons(Cnil,Cnil);          base[4]=V123=MMcons(Cnil,Cnil);
953          goto T227;          goto T223;
954  T227:;  T223:;
955          {object V128;          {object V126;
956          object V129;          object V127;
957          base[5]= cddr((V126->c.c_car));          base[5]= CMPcddr((V124->c.c_car));
958          base[6]= VV[42];          base[6]= VV[42];
959          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
960          (void) (*Lnk6)();          (void) (*Lnk6)();
961          if(vs_base>=vs_top){vs_top=sup;goto T232;}          if(vs_base>=vs_top){vs_top=sup;goto T228;}
962          V128= vs_base[0];          V126= vs_base[0];
963          vs_base++;          vs_base++;
964          if(vs_base>=vs_top){vs_top=sup;goto T233;}          if(vs_base>=vs_top){vs_top=sup;goto T229;}
965          V129= vs_base[0];          V127= vs_base[0];
966          vs_top=sup;          vs_top=sup;
967          goto T234;          goto T230;
968          goto T232;          goto T228;
969  T232:;  T228:;
970          V128= Cnil;          V126= Cnil;
971          goto T233;          goto T229;
972  T233:;  T229:;
973          V129= Cnil;          V127= Cnil;
974          goto T234;          goto T230;
975  T234:;  T230:;
976          {object V130;          {object V128;
977          object V131;          object V129;
978          base[5]= (V128);          base[5]= (V126);
979          base[6]= VV[43];          base[6]= VV[43];
980          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
981          Lgetf();          Lgetf();
982          vs_top=sup;          vs_top=sup;
983          V130= vs_base[0];          V128= vs_base[0];
984          base[5]= (V128);          base[5]= (V126);
985          base[6]= VV[44];          base[6]= VV[44];
986          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
987          Lgetf();          Lgetf();
988          vs_top=sup;          vs_top=sup;
989          V131= vs_base[0];          V129= vs_base[0];
990          V132= car((V126->c.c_car));          V130= CMPcar((V124->c.c_car));
991          vs_base=vs_top;          vs_base=vs_top;
992          Lgensym();          Lgensym();
993          vs_top=sup;          vs_top=sup;
994          V133= vs_base[0];          V131= vs_base[0];
995          base[5]= VV[43];          base[5]= VV[43];
996          base[6]= (V130);          base[6]= (V128);
997          base[7]= VV[44];          base[7]= VV[44];
998          base[8]= (V131);          base[8]= (V129);
999          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1000          L31(base);          L31(base);
1001          vs_top=sup;          vs_top=sup;
1002          V134= vs_base[0];          V132= vs_base[0];
1003          (V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,cadr((V126->c.c_car)),(V129));}}          (V123->c.c_car)= list(5,/* INLINE-ARGS */V130,V131,V132,CMPcadr((V124->c.c_car)),(V127));}}
1004          V126=MMcdr(V126);          if((V124=MMcdr(V124))==Cnil){
1005          if(endp(V126)){          V122= base[4];
1006          V124= base[4];          goto T222;}
1007          goto T226;}          V123=MMcdr(V123)=MMcons(Cnil,Cnil);
1008          V125=MMcdr(V125)=MMcons(Cnil,Cnil);          goto T223;}
1009          goto T227;}          goto T222;
1010          goto T226;  T222:;
1011  T226:;          V133= list(2,(V121),Cnil);
1012          V135= list(2,(V123),Cnil);          V134= make_cons(/* INLINE-ARGS */V133,Cnil);
1013          V136= make_cons(/* INLINE-ARGS */V135,Cnil);          {object V136;
1014          {object V138;          object V137= (V122);
1015          object V139= (V124);          if(V137==Cnil){
1016          if(endp(V139)){          V135= Cnil;
1017          V137= Cnil;          goto T243;}
1018          goto T247;}          base[4]=V136=MMcons(Cnil,Cnil);
1019          base[4]=V138=MMcons(Cnil,Cnil);          goto T244;
1020          goto T248;  T244:;
1021  T248:;          {object V139;
1022          {object V141;          object V140;
1023          object V142;          object V141;
1024          object V143;          V139= CMPcar((V137->c.c_car));
1025          V141= car((V139->c.c_car));          V140= CMPcadr((V137->c.c_car));
1026          V142= cadr((V139->c.c_car));          V141= CMPcaddr((V137->c.c_car));
1027          V143= caddr((V139->c.c_car));          V142= list(3,VV[51],(V121),VV[52]);
1028          V144= list(3,VV[51],(V123),VV[52]);          (V136->c.c_car)= listA(3,(V139),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V142,list(2,VV[53],(V140)))),(V141));}
1029          (V138->c.c_car)= listA(3,(V141),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V144,list(2,VV[53],(V142)))),(V143));}          if((V137=MMcdr(V137))==Cnil){
1030          V139=MMcdr(V139);          V135= base[4];
1031          if(endp(V139)){          goto T243;}
1032          V137= base[4];          V136=MMcdr(V136)=MMcons(Cnil,Cnil);
1033          goto T247;}          goto T244;}
1034          V138=MMcdr(V138)=MMcons(Cnil,Cnil);          goto T243;
1035          goto T248;}  T243:;
1036          goto T247;          V143= list(3,VV[47],V135,list(3,VV[54],(V120),base[2]));
1037  T247:;          {object V145;
1038          V145= list(3,VV[47],V137,list(3,VV[54],(V122),base[2]));          object V146= (V122);
1039          {object V147;          if(V146==Cnil){
1040          object V148= (V124);          V144= Cnil;
1041          if(endp(V148)){          goto T249;}
1042          V146= Cnil;          base[4]=V145=MMcons(Cnil,Cnil);
1043          goto T253;}          goto T250;
1044          base[4]=V147=MMcons(Cnil,Cnil);  T250:;
1045          goto T254;          {object V148;
1046  T254:;          object V149;
1047          {object V150;          object V150;
1048          object V151;          V148= CMPcadr((V146->c.c_car));
1049          object V152;          V149= CMPcadddr((V146->c.c_car));
1050          V150= cadr((V148->c.c_car));          V150= CMPcar(CMPcddddr((V146->c.c_car)));
1051          V151= cadddr((V148->c.c_car));          (V145->c.c_cdr)= list(2,(V148),list(3,VV[54],(V120),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V149),(V150))),(V121))));}
1052          V152= car(cddddr((V148->c.c_car)));          while(MMcdr(V145)!=Cnil)V145=MMcdr(V145);
1053          (V147->c.c_cdr)= list(2,(V150),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V151),(V152))),(V123))));}          if((V146=MMcdr(V146))==Cnil){
         {object cdr_V147=MMcdr(V147);while(!endp(cdr_V147)) {cdr_V147=MMcdr(cdr_V147);V147=MMcdr(V147);}}  
         V148=MMcdr(V148);  
         if(endp(V148)){  
1054          base[4]=base[4]->c.c_cdr;          base[4]=base[4]->c.c_cdr;
1055          V146= base[4];          V144= base[4];
1056          goto T253;}          goto T249;}
1057          goto T254;}          goto T250;}
1058          goto T253;          goto T249;
1059  T253:;  T249:;
1060          base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V136,listA(3,VV[46],/* INLINE-ARGS */V145,V146)));          base[4]= list(3,VV[45],(V120),list(3,VV[8],/* INLINE-ARGS */V134,listA(3,VV[46],/* INLINE-ARGS */V143,V144)));
1061          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1062          return;}          return;}
1063  }  }
# Line 1115  T253:; Line 1066  T253:;
1066  static void L32()  static void L32()
1067  {register object *base=vs_base;  {register object *base=vs_base;
1068          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
1069          vs_reserve(VM30);          vs_check;
         check_arg(2);  
1070          vs_top=sup;          vs_top=sup;
1071          {object V153=base[0]->c.c_cdr;          {object V151=base[0]->c.c_cdr;
1072          if(endp(V153))invalid_macro_call();          {object V152= (V151->c.c_car);
1073          {object V154= (V153->c.c_car);          base[2]= (V152->c.c_car);
1074          if(endp(V154))invalid_macro_call();          V152=V152->c.c_cdr;
1075          base[2]= (V154->c.c_car);          base[3]= (V152->c.c_car);
1076          V154=V154->c.c_cdr;          V152=V152->c.c_cdr;
1077          if(endp(V154))invalid_macro_call();          base[4]= V152;}
1078          base[3]= (V154->c.c_car);          V151=V151->c.c_cdr;
1079          V154=V154->c.c_cdr;          base[5]= V151;}
1080          base[4]= V154;}          V153= make_cons(VV[60],base[5]);
1081          V153=V153->c.c_cdr;          base[6]= list(3,VV[59],/* INLINE-ARGS */V153,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63]));
         base[5]= V153;}  
         V155= make_cons(VV[60],base[5]);  
         base[6]= list(3,VV[59],/* INLINE-ARGS */V155,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63]));  
1082          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1083          return;          return;
1084  }  }
# Line 1140  static void L32() Line 1087  static void L32()
1087  static void L33()  static void L33()
1088  {register object *base=vs_base;  {register object *base=vs_base;
1089          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
1090          vs_reserve(VM31);          vs_check;
         check_arg(0);  
1091          vs_top=sup;          vs_top=sup;
1092          goto TTL;          goto TTL;
1093  TTL:;  TTL:;
# Line 1159  TTL:; Line 1105  TTL:;
1105  static void L34()  static void L34()
1106  {register object *base=vs_base;  {register object *base=vs_base;
1107          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
1108          vs_reserve(VM32);          vs_check;
         check_arg(0);  
1109          vs_top=sup;          vs_top=sup;
1110          goto TTL;          goto TTL;
1111  TTL:;  TTL:;
# Line 1174  TTL:; Line 1119  TTL:;
1119  static void L35()  static void L35()
1120  {register object *base=vs_base;  {register object *base=vs_base;
1121          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
1122          vs_reserve(VM33);          vs_check;
         check_arg(0);  
1123          vs_top=sup;          vs_top=sup;
1124          goto TTL;          goto TTL;
1125  TTL:;  TTL:;
# Line 1189  TTL:; Line 1133  TTL:;
1133  static void L36()  static void L36()
1134  {register object *base=vs_base;  {register object *base=vs_base;
1135          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
1136          vs_reserve(VM34);          vs_check;
1137          {object V156;          {object V154;
1138          check_arg(1);          V154=(base[0]);
         V156=(base[0]);  
1139          vs_top=sup;          vs_top=sup;
1140          goto TTL;          goto TTL;
1141  TTL:;  TTL:;
1142          base[1]= VV[67];          base[1]= VV[67];
1143          base[2]= (V156);          base[2]= (V154);
1144          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1145          (void) (*Lnk78)();          (void) (*Lnk78)();
1146          return;          return;
# Line 1208  TTL:; Line 1151  TTL:;
1151  static void L37()  static void L37()
1152  {register object *base=vs_base;  {register object *base=vs_base;
1153          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
1154          vs_reserve(VM35);          vs_check;
1155          {object V157;          {object V155;
1156          check_arg(1);          V155=(base[0]);
         V157=(base[0]);  
1157          vs_top=sup;          vs_top=sup;
1158          goto TTL;          goto TTL;
1159  TTL:;  TTL:;
1160          base[1]= VV[68];          base[1]= VV[68];
1161          base[2]= (V157);          base[2]= (V155);
1162          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1163          (void) (*Lnk78)();          (void) (*Lnk78)();
1164          return;          return;
# Line 1228  static void L31(base0) Line 1170  static void L31(base0)
1170  register object *base0;  register object *base0;
1171  {       register object *base=vs_base;  {       register object *base=vs_base;
1172          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
1173          vs_reserve(VM36);          vs_check;
1174          {register object V158;          {register object V156;
1175          object V159;          object V157;
1176          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);          parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]);
1177          vs_top=sup;          vs_top=sup;
1178          V158=(base[0]);          V156=(base[0]);
1179          V159=(base[1]);          V157=(base[1]);
1180          {register object V160;          {register object V158;
1181          V160= Cnil;          V158= Cnil;
1182          if(((V158))==Cnil){          if(((V156))==Cnil){
1183          goto T268;}          goto T264;}
1184          if(!(type_of((V158))==t_string)){          if(!(type_of((V156))==t_string)){
1185          goto T274;}          goto T270;}
1186          V161= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V158),VV[58])));          V159= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V156),VV[58])));
1187          goto T272;          goto T268;
1188          goto T274;          goto T270;
1189  T274:;  T270:;
1190          V161= list(2,VV[48],(V158));          V159= list(2,VV[48],(V156));
         goto T272;  
 T272:;  
         V160= listA(3,V161,VV[24],(V160));  
1191          goto T268;          goto T268;
1192  T268:;  T268:;
1193          if(((V159))==Cnil){          V158= listA(3,V159,VV[24],(V158));
1194          goto T276;}          goto T264;
1195          V160= listA(3,list(2,VV[48],(V159)),VV[34],(V160));  T264:;
1196          goto T276;          if(((V157))==Cnil){
1197  T276:;          goto T272;}
1198          base[4]= nreverse((V160));          V158= listA(3,list(2,VV[48],(V157)),VV[34],(V158));
1199            goto T272;
1200    T272:;
1201            base[4]= nreverse((V158));
1202          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1203          return;}          return;}
1204          }          }
# Line 1267  static void LC40(base0) Line 1209  static void LC40(base0)
1209  register object *base0;  register object *base0;
1210  {       register object *base=vs_base;  {       register object *base=vs_base;
1211          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
1212          vs_reserve(VM37);          vs_check;
1213          {object V162;          {object V160;
1214          check_arg(1);          V160=(base[0]);
         V162=(base[0]);  
1215          vs_top=sup;          vs_top=sup;
1216          if(((base0[0]->c.c_car))==Cnil){          if(((base0[0]->c.c_car))==Cnil){
1217          goto T281;}          goto T277;}
1218          base[1]= (V162);          base[1]= (V160);
1219          base[2]= VV[35];          base[2]= VV[35];
1220          base[3]= (base0[0]->c.c_car);          base[3]= (base0[0]->c.c_car);
1221          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1222          Lformat();          Lformat();
1223          return;          return;
1224          goto T281;          goto T277;
1225  T281:;  T277:;
1226          base[1]= (V162);          base[1]= (V160);
1227          base[2]= VV[36];          base[2]= VV[36];
1228          base[3]= (base0[1]->c.c_car);          base[3]= (base0[1]->c.c_car);
1229          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 1296  static void LC39(base0) Line 1237  static void LC39(base0)
1237  register object *base0;  register object *base0;
1238  {       register object *base=vs_base;  {       register object *base=vs_base;
1239          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
1240          vs_reserve(VM38);          vs_check;
1241          {object V163;          {object V161;
1242          check_arg(1);          V161=(base[0]);
1243          V163=(base[0]);          vs_top=sup;
1244          vs_top=sup;          {object V162;
1245          {object V164;          if(!(((base0[0]->c.c_car))==((VV[25]->s.s_dbind)))){
1246          if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){          goto T287;}
1247          goto T291;}          V162= (VV[26]->s.s_dbind);
1248          V164= symbol_value(VV[26]);          goto T285;
1249          goto T289;          goto T287;
1250          goto T291;  T287:;{object V164;
 T291:;{object V166;  
1251          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
1252          base[2]= symbol_value(VV[27]);          base[2]= (VV[27]->s.s_dbind);
1253          base[3]= VV[28];          base[3]= VV[28];
1254          base[4]= symbol_function(VV[79]);          base[4]= (VV[79]->s.s_gfdef);
1255          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1256          (void) (*Lnk80)();          (void) (*Lnk80)();
1257          vs_top=sup;          vs_top=sup;
1258          V166= vs_base[0];          V164= vs_base[0];
1259          if(V166==Cnil)goto T294;          if(V164==Cnil)goto T290;
1260          V165= V166;          V163= V164;
1261          goto T293;          goto T289;
1262          goto T294;          goto T290;
1263  T294:;}  T290:;}
1264          V165= VV[29];          V163= VV[29];
         goto T293;  
 T293:;  
         V164= car(V165);  
1265          goto T289;          goto T289;
1266  T289:;  T289:;
1267          if(!(((V164))==(VV[30]))){          V162= CMPcar(V163);
1268          goto T301;}          goto T285;
1269          base[1]= (V163);  T285:;
1270            if(!(((V162))==(VV[30]))){
1271            goto T297;}
1272            base[1]= (V161);
1273          base[2]= VV[31];          base[2]= VV[31];
1274          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1275          Lformat();          Lformat();
1276          return;          return;
1277          goto T301;          goto T297;
1278  T301:;  T297:;
1279          if(((V164))!=Cnil){          if(((V162))!=Cnil){
1280          goto T306;}          goto T302;}
1281          base[1]= (V163);          base[1]= (V161);
1282          base[2]= VV[32];          base[2]= VV[32];
1283          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1284          Lformat();          Lformat();
1285          return;          return;
1286          goto T306;          goto T302;
1287  T306:;  T302:;
1288          base[1]= (V163);          base[1]= (V161);
1289          base[2]= VV[33];          base[2]= VV[33];
1290          base[3]= make_fixnum((long)length((V164)));          base[3]= CMPmake_fixnum((long)length((V162)));
1291          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1292          Lformat();          Lformat();
1293          return;}          return;}
# Line 1359  static void LC38(base0) Line 1299  static void LC38(base0)
1299  register object *base0;  register object *base0;
1300  {       register object *base=vs_base;  {       register object *base=vs_base;
1301          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
1302          vs_reserve(VM39);          vs_check;
         check_arg(0);  
1303          vs_top=sup;          vs_top=sup;
1304          {frame_ptr fr;          {frame_ptr fr;
1305          V167= make_cons((base0[0]->c.c_car),Cnil);          V165= make_cons((base0[0]->c.c_car),Cnil);
1306          base[0]= car(/* INLINE-ARGS */V167);          base[0]= CMPcar(/* INLINE-ARGS */V165);
1307          fr=frs_sch_catch(base[0]);          fr=frs_sch_catch(base[0]);
1308          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);
1309          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);

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