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

Diff of /gcl/clcs/clcs_kcl_cond.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_kcl_cond.h"  #include "clcs_kcl_cond.h"
4  void init_clcs_kcl_cond(){do_init(VV);}  void init_clcs_kcl_cond(){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 39  T4:; Line 35  T4:;
35          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
36          Lmake_hash_table();          Lmake_hash_table();
37          vs_top=sup;          vs_top=sup;
38          setq(VV[0],vs_base[0]);          (VV[0]->s.s_dbind)= vs_base[0];
39          goto T3;          goto T3;
40  T3:;  T3:;
41          {object V2 = Cnil;          {object V2 = Cnil;
# Line 47  T3:; Line 43  T3:;
43          base[0]=base[0];          base[0]=base[0];
44          return Cnil;          return Cnil;
45  }  }
46  /*      local entry for function progn 'compile2209     */  /*      local entry for function progn 'compile2211     */
47    
48  static object LI3()  static object LI3()
49    
# Line 63  TTL:; Line 59  TTL:;
59  static void L4()  static void L4()
60  {register object *base=vs_base;  {register object *base=vs_base;
61          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
62          vs_reserve(VM4);          vs_check;
         check_arg(2);  
63          vs_top=sup;          vs_top=sup;
64          {object V4=base[0]->c.c_cdr;          {object V4=base[0]->c.c_cdr;
65          if(endp(V4))invalid_macro_call();          base[2]= (V4->c.c_car);}
         base[2]= (V4->c.c_car);  
         V4=V4->c.c_cdr;  
         if(!endp(V4))invalid_macro_call();}  
66          base[3]= list(3,VV[3],list(2,VV[4],base[2]),VV[0]);          base[3]= list(3,VV[3],list(2,VV[4],base[2]),VV[0]);
67          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
68          return;          return;
# Line 80  static void L4() Line 72  static void L4()
72  static void L5()  static void L5()
73  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
74          register object *VOL sup=base+VM5; VC5          register object *VOL sup=base+VM5; VC5
75          vs_reserve(VM5);          vs_check;
76          bds_check;          bds_check;
77          {VOL object V5;          {VOL object V5;
78          VOL object V6;          VOL object V6;
79          VOL object V7;          VOL object V7;
80          VOL object V8;          VOL object V8;
         if(vs_top-vs_base<5) too_few_arguments();  
81          V5=(base[0]);          V5=(base[0]);
82          V6=(base[1]);          V6=(base[1]);
83          V7=(base[2]);          V7=(base[2]);
# Line 100  static void L5() Line 91  static void L5()
91          vs_top=sup;          vs_top=sup;
92          {VOL object V9;          {VOL object V9;
93          base[6]= make_cons((V5),Cnil);          base[6]= make_cons((V5),Cnil);
94          base[7]= symbol_value(VV[0]);          base[7]= (VV[0]->s.s_dbind);
95          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
96          Lgethash();          Lgethash();
97          vs_top=sup;          vs_top=sup;
98          V9= vs_base[0];          V9= vs_base[0];
99          if(((V9))==Cnil){          if(((V9))==Cnil){
100          goto T15;}          goto T14;}
101          {VOL object V10;          {VOL object V10;
102          V10= car((V9));          V10= CMPcar((V9));
103          if(((V6))==Cnil){          if(((V6))==Cnil){
104          goto T19;}          goto T18;}
105          base[6]=MMcons(Cnil,base[5]);          base[6]=MMcons(Cnil,base[5]);
106          base[7]=alloc_frame_id();          base[7]=alloc_frame_id();
107          base[7]=MMcons(base[7],base[6]);          base[7]=MMcons(base[7],base[6]);
108          frs_push(FRS_CATCH,(base[7]->c.c_car));          frs_push(FRS_CATCH,(base[7]->c.c_car));
109          if(nlj_active){          if(nlj_active){
110          nlj_active=FALSE;          nlj_active=FALSE;
111          if(eql(nlj_tag,VV[14]))goto T22;          if(eql(nlj_tag,VV[14]))goto T21;
112          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
113          }          }
114          V11=          V11=
# Line 126  static void L5() Line 117  static void L5()
117          make_cclosure_new(LC24,Cnil,base[7],Cdata);          make_cclosure_new(LC24,Cnil,base[7],Cdata);
118          V13= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[7],VV[8],V11,VV[9],V12));          V13= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[7],VV[8],V11,VV[9],V12));
119          V14= make_cons(/* INLINE-ARGS */V13,Cnil);          V14= make_cons(/* INLINE-ARGS */V13,Cnil);
120          base[8]= make_cons(/* INLINE-ARGS */V14,symbol_value(VV[5]));          base[8]= make_cons(/* INLINE-ARGS */V14,(VV[5]->s.s_dbind));
121          bds_bind(VV[5],base[8]);          bds_bind(VV[5],base[8]);
122          base[9]=symbol_function(VV[32]);          base[9]=VV[32]->s.s_gfdef;
123          base[10]= (V10);          base[10]= (V10);
124          base[11]= VV[11];          base[11]= VV[11];
125          base[12]= (V7);          base[12]= (V7);
126          {object V15;          {object V15;
127          {object V16;          {object V16;
128          {object V17;          {object V17;
129          object V18= cdr((V9));          object V18= CMPcdr((V9));
130          object V19= (base[5]->c.c_car);          object V19= (base[5]->c.c_car);
131          if(endp(V18)||endp(V19)){          if(V18==Cnil||V19==Cnil){
132          V16= Cnil;          V16= Cnil;
133          goto T30;}          goto T29;}
134          base[13]=V17=MMcons(Cnil,Cnil);          base[13]=V17=MMcons(Cnil,Cnil);
135          goto T31;          goto T30;
136  T31:;  T30:;
137          (V17->c.c_cdr)= list(2,(V18->c.c_car),(V19->c.c_car));          (V17->c.c_cdr)= list(2,(V18->c.c_car),(V19->c.c_car));
138          {object cdr_V17=MMcdr(V17);while(!endp(cdr_V17)) {cdr_V17=MMcdr(cdr_V17);V17=MMcdr(V17);}}          while(MMcdr(V17)!=Cnil)V17=MMcdr(V17);
139          V18=MMcdr(V18);          if((V18=MMcdr(V18))==Cnil||(V19=MMcdr(V19))==Cnil){
         V19=MMcdr(V19);  
         if(endp(V18)||endp(V19)){  
140          base[13]=base[13]->c.c_cdr;          base[13]=base[13]->c.c_cdr;
141          V16= base[13];          V16= base[13];
142            goto T29;}
143          goto T30;}          goto T30;}
144          goto T31;}          goto T29;
145          goto T30;  T29:;
 T30:;  
146          if(((*(LnkLI42))((V10)))==Cnil){          if(((*(LnkLI42))((V10)))==Cnil){
147          goto T34;}          goto T33;}
148          V15= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V16));          V15= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V16));
149          goto T29;          goto T28;
150          goto T34;          goto T33;
151  T34:;  T33:;
152          V15= (V16);}          V15= (V16);}
153          goto T29;          goto T28;
154  T29:;  T28:;
155           vs_top=base+13;           vs_top=base+13;
156           while(!endp(V15))           while(V15!=Cnil)
157           {vs_push(car(V15));V15=cdr(V15);}           {vs_push((V15)->c.c_car);V15=(V15)->c.c_cdr;}
158          vs_base=base+10;}          vs_base=base+10;}
159          (void) (*Lnk32)();          (void) (*Lnk32)();
160          frs_pop();          frs_pop();
161          bds_unwind1;          bds_unwind1;
162          return;          return;
163          goto T22;          goto T21;
164  T22:;  T21:;
165          {object V20;          {object V20;
166          V20= (base[6]->c.c_car);          V20= (base[6]->c.c_car);
         ck_larg_exactly(0,(V20));  
167          base[8]= Cnil;          base[8]= Cnil;
168          base[9]= Ct;          base[9]= Ct;
169          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
# Line 185  T22:; Line 173  T22:;
173          base[8]= Cnil;          base[8]= Cnil;
174          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
175          return;          return;
176          goto T19;          goto T18;
177  T19:;  T18:;
178          base[6]=symbol_function(VV[32]);          base[6]=VV[32]->s.s_gfdef;
179          base[7]= (V10);          base[7]= (V10);
180          base[8]= VV[11];          base[8]= VV[11];
181          base[9]= (V7);          base[9]= (V7);
182          {object V21;          {object V21;
183          {object V22;          {object V22;
184          {object V23;          {object V23;
185          object V24= cdr((V9));          object V24= CMPcdr((V9));
186          object V25= (base[5]->c.c_car);          object V25= (base[5]->c.c_car);
187          if(endp(V24)||endp(V25)){          if(V24==Cnil||V25==Cnil){
188          V22= Cnil;          V22= Cnil;
189          goto T43;}          goto T42;}
190          base[10]=V23=MMcons(Cnil,Cnil);          base[10]=V23=MMcons(Cnil,Cnil);
191          goto T44;          goto T43;
192  T44:;  T43:;
193          (V23->c.c_cdr)= list(2,(V24->c.c_car),(V25->c.c_car));          (V23->c.c_cdr)= list(2,(V24->c.c_car),(V25->c.c_car));
194          {object cdr_V23=MMcdr(V23);while(!endp(cdr_V23)) {cdr_V23=MMcdr(cdr_V23);V23=MMcdr(V23);}}          while(MMcdr(V23)!=Cnil)V23=MMcdr(V23);
195          V24=MMcdr(V24);          if((V24=MMcdr(V24))==Cnil||(V25=MMcdr(V25))==Cnil){
         V25=MMcdr(V25);  
         if(endp(V24)||endp(V25)){  
196          base[10]=base[10]->c.c_cdr;          base[10]=base[10]->c.c_cdr;
197          V22= base[10];          V22= base[10];
198            goto T42;}
199          goto T43;}          goto T43;}
200          goto T44;}          goto T42;
201          goto T43;  T42:;
 T43:;  
202          if(((*(LnkLI42))((V10)))==Cnil){          if(((*(LnkLI42))((V10)))==Cnil){
203          goto T47;}          goto T46;}
204          V21= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V22));          V21= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V22));
205          goto T42;          goto T41;
206          goto T47;          goto T46;
207  T47:;  T46:;
208          V21= (V22);}          V21= (V22);}
209          goto T42;          goto T41;
210  T42:;  T41:;
211           vs_top=base+10;           vs_top=base+10;
212           while(!endp(V21))           while(V21!=Cnil)
213           {vs_push(car(V21));V21=cdr(V21);}           {vs_push((V21)->c.c_car);V21=(V21)->c.c_cdr;}
214          vs_base=base+7;}          vs_base=base+7;}
215          (void) (*Lnk32)();          (void) (*Lnk32)();
216          return;}          return;}
217          goto T15;          goto T14;
218  T15:;  T14:;
219          base[6]= VV[15];          base[6]= VV[15];
220          base[7]= VV[11];          base[7]= VV[11];
221          base[8]= (V7);          base[8]= (V7);
# Line 253  static object LI6(object V28,object V27, Line 239  static object LI6(object V28,object V27,
239          object V31;          object V31;
240          object V32;          object V32;
241          va_start(ap,first);          va_start(ap,first);
         if(narg <3) too_few_arguments();  
242          V29= V28;          V29= V28;
243          V30= V27;          V30= V27;
244          V31= V26;          V31= V26;
# Line 264  static object LI6(object V28,object V27, Line 249  static object LI6(object V28,object V27,
249          object V35;          object V35;
250          object V36;          object V36;
251          V34= make_cons((V29),Cnil);          V34= make_cons((V29),Cnil);
252          V35= symbol_value(VV[0]);          V35= (VV[0]->s.s_dbind);
253          V36= make_cons((V31),(V32));          V36= make_cons((V31),(V32));
254          base[2]= (V34);          base[2]= (V34);
255          base[3]= (V35);          base[3]= (V35);
# Line 285  static object LI7() Line 270  static object LI7()
270  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
271          goto TTL;          goto TTL;
272  TTL:;  TTL:;
273          base[0]= symbol_value(VV[0]);          base[0]= (VV[0]->s.s_dbind);
274          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
275          Lclrhash();          Lclrhash();
276          vs_top=sup;          vs_top=sup;
277          {register object V38;          {register object V38;
278          register object V39;          register object V39;
279          V38= symbol_value(VV[16]);          V38= (VV[16]->s.s_dbind);
280          V39= car((V38));          V39= CMPcar((V38));
281          goto T67;          goto T66;
282  T67:;  T66:;
283          if(!(endp_prop((V38)))){          if(!(((V38))==Cnil)){
284          goto T68;}          goto T67;}
285          {object V40 = Cnil;          {object V40 = Cnil;
286          VMR7(V40)}          VMR7(V40)}
287          goto T68;          goto T67;
288  T68:;  T67:;
289          {object V41;          {object V41;
290          V41= cdr((V39));          V41= CMPcdr((V39));
291           vs_top=base+1;           vs_top=base+1;
292           while(!endp(V41))           while(V41!=Cnil)
293           {vs_push(car(V41));V41=cdr(V41);}           {vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;}
294          vs_base=base+1;}          vs_base=base+1;}
295          (void) (*Lnk43)();          (void) (*Lnk43)();
296          vs_top=sup;          vs_top=sup;
297          V38= cdr((V38));          V38= CMPcdr((V38));
298          V39= car((V38));          V39= CMPcar((V38));
299          goto T67;}          goto T66;}
300          base[0]=base[0];          base[0]=base[0];
301          return Cnil;          return Cnil;
302  }  }
303  /*      local entry for function progn 'compile2359     */  /*      local entry for function progn 'compile2361     */
304    
305  static object LI8()  static object LI8()
306    
# Line 331  TTL:; Line 316  TTL:;
316          base[0]=base[0];          base[0]=base[0];
317          return Cnil;          return Cnil;
318  }  }
319  /*      local entry for function progn 'compile2371     */  /*      local entry for function progn 'compile2373     */
320    
321  static object LI9()  static object LI9()
322    
323  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
324          goto TTL;          goto TTL;
325  TTL:;  TTL:;
326          setq(VV[16],VV[17]);          (VV[16]->s.s_dbind)= VV[17];
327          {object V43 = Cnil;          {object V43 = Cnil;
328          VMR9(V43)}          VMR9(V43)}
329          return Cnil;          return Cnil;
330  }  }
331  /*      local entry for function progn 'compile2383     */  /*      local entry for function progn 'compile2385     */
332    
333  static object LI10()  static object LI10()
334    
# Line 354  TTL:; Line 339  TTL:;
339          VMR10(V44)}          VMR10(V44)}
340          return Cnil;          return Cnil;
341  }  }
342  /*      local entry for function progn 'compile2485     */  /*      local entry for function progn 'compile2487     */
343    
344  static object LI11()  static object LI11()
345    
# Line 375  object V47; Line 360  object V47;
360          bds_check;          bds_check;
361          goto TTL;          goto TTL;
362  TTL:;  TTL:;
363          bds_bind(VV[18],symbol_value(VV[19]));          bds_bind(VV[18],(VV[19]->s.s_dbind));
364          bds_bind(VV[20],one_plus(symbol_value(VV[21])));          bds_bind(VV[20],one_plus((VV[21]->s.s_dbind)));
365          vs_base=vs_top;          vs_base=vs_top;
366          (void) (*Lnk45)();          (void) (*Lnk45)();
367          vs_top=sup;          vs_top=sup;
368          V48= vs_base[0];          V48= vs_base[0];
369          bds_bind(VV[21],one_minus(V48));          bds_bind(VV[21],one_minus(V48));
370          bds_bind(VV[22],(VV[21]->s.s_dbind));{object V49;          bds_bind(VV[22],(VV[21]->s.s_dbind));{object V49;
371          base[7]= symbol_value(VV[24]);          base[7]= (VV[24]->s.s_dbind);
372          base[8]= (VV[20]->s.s_dbind);          base[8]= (VV[20]->s.s_dbind);
373          vs_top=(vs_base=base+7)+2;          vs_top=(vs_base=base+7)+2;
374          (void) (*Lnk46)();          (void) (*Lnk46)();
375          vs_top=sup;          vs_top=sup;
376          V49= vs_base[0];          V49= vs_base[0];
377          if(V49==Cnil)goto T89;          if(V49==Cnil)goto T88;
378          bds_bind(VV[23],V49);          bds_bind(VV[23],V49);
379            goto T87;
380          goto T88;          goto T88;
381          goto T89;  T88:;}
 T89:;}  
382          vs_base=vs_top;          vs_base=vs_top;
383          (void) (*Lnk47)();          (void) (*Lnk47)();
384          vs_top=sup;          vs_top=sup;
385          V50= vs_base[0];          V50= vs_base[0];
386          bds_bind(VV[23],one_plus(V50));          bds_bind(VV[23],one_plus(V50));
387          goto T88;          goto T87;
388  T88:;  T87:;
389          vs_base=vs_top;          vs_base=vs_top;
390          (void) (*Lnk47)();          (void) (*Lnk47)();
391          vs_top=sup;          vs_top=sup;
392          bds_bind(VV[24],vs_base[0]);          bds_bind(VV[24],vs_base[0]);
393          bds_bind(VV[25],Cnil);          bds_bind(VV[25],Cnil);
394          base[7]= symbol_value(VV[19]);          base[7]= (VV[19]->s.s_dbind);
395          base[8]= VV[26];          base[8]= VV[26];
396          base[9]= (V47);          base[9]= (V47);
397          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
# Line 427  T88:; Line 412  T88:;
412          base[0]=base[0];          base[0]=base[0];
413          return Cnil;          return Cnil;
414  }  }
415  /*      local entry for function progn 'compile2513     */  /*      local entry for function progn 'compile2515     */
416    
417  static object LI13()  static object LI13()
418    
# Line 443  TTL:; Line 428  TTL:;
428          base[0]=base[0];          base[0]=base[0];
429          return Cnil;          return Cnil;
430  }  }
431  /*      local entry for function progn 'compile2525     */  /*      local entry for function progn 'compile2527     */
432    
433  static object LI14()  static object LI14()
434    
435  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
436          goto TTL;          goto TTL;
437  TTL:;  TTL:;
438          base[0]= VV[27];          if(!((VV[27])->s.s_dbind!=OBJNULL)){
439          vs_top=(vs_base=base+0)+1;          goto T101;}
440          Lboundp();          goto T100;
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T102;}  
         goto T101;  
         goto T102;  
 T102:;  
         setq(VV[27],Cnil);  
441          goto T101;          goto T101;
442  T101:;  T101:;
443            (VV[27]->s.s_dbind)= Cnil;
444            goto T100;
445    T100:;
446          {object V53 = Cnil;          {object V53 = Cnil;
447          VMR14(V53)}          VMR14(V53)}
         base[0]=base[0];  
448          return Cnil;          return Cnil;
449  }  }
450  /*      local entry for function progn 'compile2538     */  /*      local entry for function progn 'compile2540     */
451    
452  static object LI15()  static object LI15()
453    
# Line 483  TTL:; Line 463  TTL:;
463  static void L16()  static void L16()
464  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
465          register object *VOL sup=base+VM16; VC16          register object *VOL sup=base+VM16; VC16
466          vs_reserve(VM16);          vs_check;
467          bds_check;          bds_check;
         check_arg(1);  
468          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
469          vs_top=sup;          vs_top=sup;
470          base[1]=alloc_frame_id();          base[1]=alloc_frame_id();
# Line 502  static void L16() Line 481  static void L16()
481          frs_push(FRS_CATCH,(base[4]->c.c_car));          frs_push(FRS_CATCH,(base[4]->c.c_car));
482          if(nlj_active){          if(nlj_active){
483          nlj_active=FALSE;          nlj_active=FALSE;
484          if(eql(nlj_tag,VV[34]))goto T108;          if(eql(nlj_tag,VV[34]))goto T106;
485          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
486          }          }
487          V55=          V55=
# Line 511  static void L16() Line 490  static void L16()
490          make_cclosure_new(LC26,Cnil,base[4],Cdata);          make_cclosure_new(LC26,Cnil,base[4],Cdata);
491          V57= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[28],VV[8],V55,VV[9],V56));          V57= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[28],VV[8],V55,VV[9],V56));
492          V58= make_cons(/* INLINE-ARGS */V57,Cnil);          V58= make_cons(/* INLINE-ARGS */V57,Cnil);
493          base[5]= make_cons(/* INLINE-ARGS */V58,symbol_value(VV[5]));          base[5]= make_cons(/* INLINE-ARGS */V58,(VV[5]->s.s_dbind));
494          bds_bind(VV[5],base[5]);          bds_bind(VV[5],base[5]);
495          V59=          V59=
496          make_cclosure_new(LC27,Cnil,base[4],Cdata);          make_cclosure_new(LC27,Cnil,base[4],Cdata);
497          V60= make_cons(VV[32],V59);          V60= make_cons(VV[32],V59);
498          V61= make_cons(/* INLINE-ARGS */V60,Cnil);          V61= make_cons(/* INLINE-ARGS */V60,Cnil);
499          base[6]= make_cons(/* INLINE-ARGS */V61,symbol_value(VV[31]));          base[6]= make_cons(/* INLINE-ARGS */V61,(VV[31]->s.s_dbind));
500          bds_bind(VV[31],base[6]);          bds_bind(VV[31],base[6]);
501          base[8]= (base[0]->c.c_car);          base[8]= (base[0]->c.c_car);
502          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 533  static void L16() Line 512  static void L16()
512          bds_unwind1;          bds_unwind1;
513          bds_unwind1;          bds_unwind1;
514          return;          return;
515          goto T108;          goto T106;
516  T108:;  T106:;
517          {object V63;          {object V63;
518          V63= (base[3]->c.c_car);          V63= (base[3]->c.c_car);
         ck_larg_exactly(0,(V63));  
519          frs_pop();          frs_pop();
520          frs_pop();          frs_pop();
521          base[5]= (base[2]->c.c_car);          base[5]= (base[2]->c.c_car);
# Line 572  TTL:; Line 550  TTL:;
550          base[0]=base[0];          base[0]=base[0];
551          return Cnil;          return Cnil;
552  }  }
553  /*      local entry for function progn 'compile2630     */  /*      local entry for function progn 'compile2632     */
554    
555  static object LI18()  static object LI18()
556    
# Line 584  TTL:; Line 562  TTL:;
562          VMR18(V67)}          VMR18(V67)}
563          return Cnil;          return Cnil;
564  }  }
565  /*      local entry for function progn 'compile2662     */  /*      local entry for function progn 'compile2664     */
566    
567  static object LI19()  static object LI19()
568    
# Line 596  TTL:; Line 574  TTL:;
574          VMR19(V68)}          VMR19(V68)}
575          return Cnil;          return Cnil;
576  }  }
577  /*      local entry for function progn 'compile2694     */  /*      local entry for function progn 'compile2696     */
578    
579  static object LI20()  static object LI20()
580    
# Line 608  TTL:; Line 586  TTL:;
586          VMR20(V69)}          VMR20(V69)}
587          return Cnil;          return Cnil;
588  }  }
589  /*      local entry for function progn 'compile2706     */  /*      local entry for function progn 'compile2708     */
590    
591  static object LI21()  static object LI21()
592    
593  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
594          goto TTL;          goto TTL;
595  TTL:;  TTL:;
596          setq(VV[37],Ct);          (VV[37]->s.s_dbind)= Ct;
597          {object V70 = Cnil;          {object V70 = Cnil;
598          VMR21(V70)}          VMR21(V70)}
599          return Cnil;          return Cnil;
# Line 625  TTL:; Line 603  TTL:;
603  static void L22()  static void L22()
604  {register object *base=vs_base;  {register object *base=vs_base;
605          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
606          vs_reserve(VM22);          vs_check;
607          bds_check;          bds_check;
608          {object V71;          {object V71;
         check_arg(1);  
609          V71=(base[0]);          V71=(base[0]);
610          vs_top=sup;          vs_top=sup;
611          goto TTL;          goto TTL;
# Line 638  TTL:; Line 615  TTL:;
615          vs_top=sup;          vs_top=sup;
616          V72= vs_base[0];          V72= vs_base[0];
617          bds_bind(VV[21],one_minus(V72));          bds_bind(VV[21],one_minus(V72));
618          bds_bind(VV[33],symbol_value(VV[37]));          bds_bind(VV[33],(VV[37]->s.s_dbind));
619          base[4]= VV[39];          base[4]= VV[39];
620          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
621          Lfind_package();          Lfind_package();
622          vs_top=sup;          vs_top=sup;
623          V73= vs_base[0];          V73= vs_base[0];
624          bds_bind(VV[38],make_cons(V73,symbol_value(VV[38])));          bds_bind(VV[38],make_cons(V73,(VV[38]->s.s_dbind)));
625          base[4]= (V71);          base[4]= (V71);
626          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
627          (void) (*Lnk28)();          (void) (*Lnk28)();
# Line 660  static void LC27(base0) Line 637  static void LC27(base0)
637  register object *base0;  register object *base0;
638  {       register object *base=vs_base;  {       register object *base=vs_base;
639          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
640          vs_reserve(VM23);          vs_check;
641          {object V74;          {object V74;
         check_arg(1);  
642          V74=(base[0]);          V74=(base[0]);
643          vs_top=sup;          vs_top=sup;
644          if((symbol_value(VV[33]))!=Cnil){          if(((VV[33]->s.s_dbind))!=Cnil){
645          goto T133;}          goto T131;}
646          if((symbol_value(VV[27]))!=Cnil){          if(((VV[27]->s.s_dbind))!=Cnil){
647          goto T133;}          goto T131;}
648          (void)((*(LnkLI51))((V74)));          (void)((*(LnkLI51))((V74)));
649          {frame_ptr fr;          {frame_ptr fr;
650          fr=frs_sch((base0[3]->c.c_car));          fr=frs_sch((base0[3]->c.c_car));
# Line 676  register object *base0; Line 652  register object *base0;
652          base[1]= (V74);          base[1]= (V74);
653          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
654          unwind(fr,Cnil);}          unwind(fr,Cnil);}
655          goto T133;          goto T131;
656  T133:;  T131:;
657          (base0[2]->c.c_car)= (V74);          (base0[2]->c.c_car)= (V74);
658          base[1]= Cnil;          base[1]= Cnil;
659          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 690  static void LC26(base0) Line 666  static void LC26(base0)
666  register object *base0;  register object *base0;
667  {       register object *base=vs_base;  {       register object *base=vs_base;
668          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
669          vs_reserve(VM24);          vs_check;
670          {object V75;          {object V75;
         check_arg(1);  
671          V75=(base[0]);          V75=(base[0]);
672          vs_top=sup;          vs_top=sup;
673          base[1]= (V75);          base[1]= (V75);
# Line 709  static void LC25(base0) Line 684  static void LC25(base0)
684  register object *base0;  register object *base0;
685  {       register object *base=vs_base;  {       register object *base=vs_base;
686          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
687          vs_reserve(VM25);          vs_check;
688          {object V76;          {object V76;
689          vs_top[0]=Cnil;          vs_top[0]=Cnil;
690          {object *p=vs_top;          {object *p=vs_top;
# Line 730  static void LC24(base0) Line 705  static void LC24(base0)
705  register object *base0;  register object *base0;
706  {       register object *base=vs_base;  {       register object *base=vs_base;
707          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
708          vs_reserve(VM26);          vs_check;
709          {object V77;          {object V77;
         check_arg(1);  
710          V77=(base[0]);          V77=(base[0]);
711          vs_top=sup;          vs_top=sup;
712          base[1]= (V77);          base[1]= (V77);
# Line 742  register object *base0; Line 716  register object *base0;
716          {object V78;          {object V78;
717          V78= (base0[2]->c.c_car);          V78= (base0[2]->c.c_car);
718           vs_top=base+6;           vs_top=base+6;
719           while(!endp(V78))           while(V78!=Cnil)
720           {vs_push(car(V78));V78=cdr(V78);}           {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}
721          vs_base=base+4;}          vs_base=base+4;}
722          Lformat();          Lformat();
723          vs_top=sup;          vs_top=sup;
# Line 759  static void LC23(base0) Line 733  static void LC23(base0)
733  register object *base0;  register object *base0;
734  {       register object *base=vs_base;  {       register object *base=vs_base;
735          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
736          vs_reserve(VM27);          vs_check;
737          {object V79;          {object V79;
738          vs_top[0]=Cnil;          vs_top[0]=Cnil;
739          {object *p=vs_top;          {object *p=vs_top;

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