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

Diff of /gcl/clcs/clcs_install.c

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

revision 1.6 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.7 by camm, Fri Oct 3 16:03:15 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_install.h"  #include "clcs_install.h"
4  void init_clcs_install(){do_init(VV);}  void init_clcs_install(){do_init(VV);}
5  /*      local entry for function progn 'compile2186     */  /*      local entry for function progn 'compile2191     */
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 'compile2198     */  /*      local entry for function progn 'compile2203     */
22    
23  static object LI2()  static object LI2()
24    
# Line 37  T3:; Line 37  T3:;
37          VMR2(V2)}          VMR2(V2)}
38          return Cnil;          return Cnil;
39  }  }
40  /*      local entry for function progn 'compile2211     */  /*      local entry for function progn 'compile2216     */
41    
42  static object LI3()  static object LI3()
43    
# Line 66  TTL:; Line 66  TTL:;
66          }else V8=V8->c.c_cdr->c.c_cdr;}}          }else V8=V8->c.c_cdr->c.c_cdr;}}
67          goto T10;          goto T10;
68  T10:;  T10:;
69            V9 = (V6);
70          base[0]= (V6);          base[0]= (V6);
71          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
72          Lsymbol_function();          Lsymbol_function();
73          vs_top=sup;          vs_top=sup;
74          V9= vs_base[0];          V10= vs_base[0];
75          (void)(sputprop((V6),VV[2],V9));          (void)(sputprop(V9,VV[2],V10));
76          goto T8;          goto T8;
77  T8:;  T8:;
78          base[0]= (V6);          base[0]= (V6);
79          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
80          Lsymbol_function();          Lsymbol_function();
81          vs_top=sup;          vs_top=sup;
82          V10= vs_base[0];          V11= vs_base[0];
83          base[0]= (V7);          base[0]= (V7);
84          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
85          Lsymbol_function();          Lsymbol_function();
86          vs_top=sup;          vs_top=sup;
87          V11= vs_base[0];          V12= vs_base[0];
88          if((V10)==(V11)){          if((V11)==(V12)){
89          goto T14;}          goto T14;}
90          base[0]= (V6);          base[0]= (V6);
91          base[2]= (V7);          base[2]= (V7);
# Line 95  T8:; Line 96  T8:;
96          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
97          siLfset();          siLfset();
98          vs_top=sup;          vs_top=sup;
99          {object V12 = vs_base[0];          {object V13 = vs_base[0];
100          VMR4(V12)}          VMR4(V13)}
101          goto T14;          goto T14;
102  T14:;  T14:;
103          {object V13 = Cnil;          {object V14 = Cnil;
104          VMR4(V13)}          VMR4(V14)}
105          base[0]=base[0];          base[0]=base[0];
106          return Cnil;          return Cnil;
107  }  }
108  /*      local entry for function REVERT-SYMBOL  */  /*      local entry for function REVERT-SYMBOL  */
109    
110  static object LI5(V15)  static object LI5(V16)
111    
112  register object V15;  register object V16;
113  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
114          goto TTL;          goto TTL;
115  TTL:;  TTL:;
116          {object V16 =((V15))->s.s_plist;          {object V17 =((V16))->s.s_plist;
117           object ind= VV[2];           object ind= VV[2];
118          while(V16!=Cnil){          while(V17!=Cnil){
119          if(V16->c.c_car==ind){          if(V17->c.c_car==ind){
120          if(((V16->c.c_cdr->c.c_car))==Cnil){          if(((V17->c.c_cdr->c.c_car))==Cnil){
121          goto T24;}          goto T24;}
122          goto T26;          goto T26;
123          }else V16=V16->c.c_cdr->c.c_cdr;}          }else V17=V17->c.c_cdr->c.c_cdr;}
124          goto T24;}          goto T24;}
125          goto T26;          goto T26;
126  T26:;  T26:;
127          base[0]= (V15);          base[0]= (V16);
128          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
129          Lsymbol_function();          Lsymbol_function();
130          vs_top=sup;          vs_top=sup;
131          V17= vs_base[0];          V18= vs_base[0];
132          {object V19 =((V15))->s.s_plist;          {object V20 =((V16))->s.s_plist;
133           object ind= VV[2];           object ind= VV[2];
134          while(V19!=Cnil){          while(V20!=Cnil){
135          if(V19->c.c_car==ind){          if(V20->c.c_car==ind){
136          V18= (V19->c.c_cdr->c.c_car);          V19= (V20->c.c_cdr->c.c_car);
137          goto T30;          goto T30;
138          }else V19=V19->c.c_cdr->c.c_cdr;}          }else V20=V20->c.c_cdr->c.c_cdr;}
139          V18= Cnil;}          V19= Cnil;}
140          goto T30;          goto T30;
141  T30:;  T30:;
142          if((V17)==(V18)){          if((V18)==(V19)){
143          goto T24;}          goto T24;}
144          base[0]= (V15);          base[0]= (V16);
145          {object V20 =((V15))->s.s_plist;          {object V21 =((V16))->s.s_plist;
146           object ind= VV[2];           object ind= VV[2];
147          while(V20!=Cnil){          while(V21!=Cnil){
148          if(V20->c.c_car==ind){          if(V21->c.c_car==ind){
149          base[1]= (V20->c.c_cdr->c.c_car);          base[1]= (V21->c.c_cdr->c.c_car);
150          goto T32;          goto T32;
151          }else V20=V20->c.c_cdr->c.c_cdr;}          }else V21=V21->c.c_cdr->c.c_cdr;}
152          base[1]= Cnil;}          base[1]= Cnil;}
153          goto T32;          goto T32;
154  T32:;  T32:;
155          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
156          siLfset();          siLfset();
157          vs_top=sup;          vs_top=sup;
158          {object V21 = vs_base[0];          {object V22 = vs_base[0];
159          VMR5(V21)}          VMR5(V22)}
160          goto T24;          goto T24;
161  T24:;  T24:;
162          {object V22 = Cnil;          {object V23 = Cnil;
163          VMR5(V22)}          VMR5(V23)}
164          base[0]=base[0];          base[0]=base[0];
165          return Cnil;          return Cnil;
166  }  }
167  /*      local entry for function progn 'compile2271     */  /*      local entry for function progn 'compile2276     */
168    
169  static object LI6()  static object LI6()
170    
# Line 174  TTL:; Line 175  TTL:;
175          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
176          (void) (*Lnk26)();          (void) (*Lnk26)();
177          vs_top=sup;          vs_top=sup;
178          {object V23 = Cnil;          {object V24 = Cnil;
179          VMR6(V23)}          VMR6(V24)}
180          base[0]=base[0];          base[0]=base[0];
181          return Cnil;          return Cnil;
182  }  }
183  /*      local entry for function progn 'compile2283     */  /*      local entry for function progn 'compile2288     */
184    
185  static object LI7()  static object LI7()
186    
# Line 192  TTL:; Line 193  TTL:;
193          goto T36;          goto T36;
194  T36:;  T36:;
195          base[1]= (VV[0]->s.s_dbind);          base[1]= (VV[0]->s.s_dbind);
196          {object V25;          {object V26;
197          object V26= base[1];          object V27= base[1];
198          if(V26==Cnil){          if(V27==Cnil){
199          V24= Cnil;          V25= Cnil;
200          goto T39;}          goto T39;}
201          base[0]=V25=MMcons(Cnil,Cnil);          base[0]=V26=MMcons(Cnil,Cnil);
202          goto T40;          goto T40;
203  T40:;  T40:;
204          base[2]= symbol_name((V26->c.c_car));          base[2]= symbol_name((V27->c.c_car));
205          base[3]= VV[4];          base[3]= VV[4];
206          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
207          Lintern();          Lintern();
208          vs_top=sup;          vs_top=sup;
209          V28= vs_base[0];          V29= vs_base[0];
210          (V25->c.c_car)= list(2,V28,(V26->c.c_car));          V30 = (V27->c.c_car);
211          if((V26=MMcdr(V26))==Cnil){          (V26->c.c_car)= list(2,V29,V30);
212          V24= base[0];          if((V27=MMcdr(V27))==Cnil){
213            V25= base[0];
214          goto T39;}          goto T39;}
215          V25=MMcdr(V25)=MMcons(Cnil,Cnil);          V26=MMcdr(V26)=MMcons(Cnil,Cnil);
216          goto T40;}          goto T40;}
217          goto T39;          goto T39;
218  T39:;  T39:;
219          (VV[3]->s.s_dbind)= nconc(V24,VV[5]);          (VV[3]->s.s_dbind)= nconc(V25,VV[5]);
220          goto T35;          goto T35;
221  T35:;  T35:;
222          {object V29 = Cnil;          {object V31 = Cnil;
223          VMR7(V29)}          VMR7(V31)}
224          base[0]=base[0];          base[0]=base[0];
225          return Cnil;          return Cnil;
226  }  }
227  /*      local entry for function progn 'compile2300     */  /*      local entry for function progn 'compile2305     */
228    
229  static object LI8()  static object LI8()
230    
231  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
232          goto TTL;          goto TTL;
233  TTL:;  TTL:;
234          {object V30 = Cnil;          {object V32 = Cnil;
235          VMR8(V30)}          VMR8(V32)}
236          return Cnil;          return Cnil;
237  }  }
238  /*      local entry for function INSTALL-CLCS-SYMBOLS   */  /*      local entry for function INSTALL-CLCS-SYMBOLS   */
# Line 240  static object LI9() Line 242  static object LI9()
242  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
243          goto TTL;          goto TTL;
244  TTL:;  TTL:;
245          {register object V31;          {register object V33;
246          register object V32;          register object V34;
247          V31= (VV[3]->s.s_dbind);          V33= (VV[3]->s.s_dbind);
248          V32= CMPcar((V31));          V34= CMPcar((V33));
249          goto T50;          goto T50;
250  T50:;  T50:;
251          if(!(((V31))==Cnil)){          if(!(((V33))==Cnil)){
252          goto T51;}          goto T51;}
253          goto T46;          goto T46;
254          goto T51;          goto T51;
255  T51:;  T51:;
256          (void)((*(LnkLI27))(CMPcar((V32)),CMPcadr((V32))));          (void)((*(LnkLI27))(CMPcar((V34)),CMPcadr((V34))));
257          V31= CMPcdr((V31));          V33= CMPcdr((V33));
258          V32= CMPcar((V31));          V34= CMPcar((V33));
259          goto T50;}          goto T50;}
260          goto T46;          goto T46;
261  T46:;  T46:;
262          {object V33 = Cnil;          {object V35 = Cnil;
263          VMR9(V33)}          VMR9(V35)}
264          base[0]=base[0];          base[0]=base[0];
265          return Cnil;          return Cnil;
266  }  }
# Line 269  static object LI10() Line 271  static object LI10()
271  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
272          goto TTL;          goto TTL;
273  TTL:;  TTL:;
274          {register object V34;          {register object V36;
275          register object V35;          register object V37;
276          V34= reverse((VV[3]->s.s_dbind));          V36= reverse((VV[3]->s.s_dbind));
277          V35= CMPcar((V34));          V37= CMPcar((V36));
278          goto T65;          goto T65;
279  T65:;  T65:;
280          if(!(((V34))==Cnil)){          if(!(((V36))==Cnil)){
281          goto T66;}          goto T66;}
282          goto T61;          goto T61;
283          goto T66;          goto T66;
284  T66:;  T66:;
285          (void)((*(LnkLI28))(CMPcar((V35))));          (void)((*(LnkLI28))(CMPcar((V37))));
286          V34= CMPcdr((V34));          V36= CMPcdr((V36));
287          V35= CMPcar((V34));          V37= CMPcar((V36));
288          goto T65;}          goto T65;}
289          goto T61;          goto T61;
290  T61:;  T61:;
291          {object V36 = Cnil;          {object V38 = Cnil;
292          VMR10(V36)}          VMR10(V38)}
293          base[0]=base[0];          base[0]=base[0];
294          return Cnil;          return Cnil;
295  }  }
# Line 298  static void L11() Line 300  static void L11()
300          register object *VOL sup=base+VM11; VC11          register object *VOL sup=base+VM11; VC11
301          vs_check;          vs_check;
302          bds_check;          bds_check;
303          {VOL object V37;          {VOL object V39;
304          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
305          vs_base=vs_base+1;          vs_base=vs_base+1;
306          vs_top[0]=Cnil;          vs_top[0]=Cnil;
307          {object *p=vs_top;          {object *p=vs_top;
308           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
309          V37=(base[1]);          V39=(base[1]);
310          vs_top=sup;          vs_top=sup;
311          goto T77;          goto T77;
312  T77:;  T77:;
# Line 317  T77:; Line 319  T77:;
319          if(eql(nlj_tag,VV[15]))goto T80;          if(eql(nlj_tag,VV[15]))goto T80;
320          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
321          }          }
322          V38=          V40=
323          make_cclosure_new(LC16,Cnil,base[3],Cdata);          make_cclosure_new(LC16,Cnil,base[3],Cdata);
324          V39=          V41=
325          make_cclosure_new(LC17,Cnil,base[3],Cdata);          make_cclosure_new(LC17,Cnil,base[3],Cdata);
326          V40= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V38,VV[10],V39));          V42= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V40,VV[10],V41));
327          V41= make_cons(/* INLINE-ARGS */V40,Cnil);          V43= make_cons(/* INLINE-ARGS */V42,Cnil);
328          base[4]= make_cons(/* INLINE-ARGS */V41,(VV[6]->s.s_dbind));          base[4]= make_cons(/* INLINE-ARGS */V43,(VV[6]->s.s_dbind));
329          bds_bind(VV[6],base[4]);          bds_bind(VV[6],base[4]);
330          {register object V42;          {register object V44;
331          {register object V43;          {register object V45;
332          {object V44 =(VV[12])->s.s_plist;          {object V46 =(VV[12])->s.s_plist;
333           object ind= VV[2];           object ind= VV[2];
334          while(V44!=Cnil){          while(V46!=Cnil){
335          if(V44->c.c_car==ind){          if(V46->c.c_car==ind){
336          V43= (V44->c.c_cdr->c.c_car);          V45= (V46->c.c_cdr->c.c_car);
337          goto T87;          goto T87;
338          }else V44=V44->c.c_cdr->c.c_cdr;}          }else V46=V46->c.c_cdr->c.c_cdr;}
339          V43= Cnil;}          V45= Cnil;}
340          goto T87;          goto T87;
341  T87:;  T87:;
342          if(((V43))==Cnil){          if(((V45))==Cnil){
343          goto T89;}          goto T89;}
344          base[5]= (V43);          base[5]= (V45);
345          goto T86;          goto T86;
346          goto T89;          goto T89;
347  T89:;  T89:;
# Line 347  T89:; Line 349  T89:;
349          goto T86;          goto T86;
350  T86:;  T86:;
351          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
352          {object V45;          {object V47;
353          V45= (V37);          V47= (V39);
354           vs_top=base+7;           vs_top=base+7;
355           while(V45!=Cnil)           while(V47!=Cnil)
356           {vs_push((V45)->c.c_car);V45=(V45)->c.c_cdr;}           {vs_push((V47)->c.c_car);V47=(V47)->c.c_cdr;}
357          vs_base=base+6;}          vs_base=base+6;}
358          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
359                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 359  T86:; Line 361  T86:;
361                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
362          Llist();          Llist();
363          vs_top=sup;          vs_top=sup;
364          V42= vs_base[0];          V44= vs_base[0];
365          if(((VV[13]->s.s_dbind))!=Cnil){          if(((VV[13]->s.s_dbind))!=Cnil){
366          goto T93;}          goto T93;}
367          base[5]= (V42);          base[5]= (V44);
368          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
369          Lvalues_list();          Lvalues_list();
370          frs_pop();          frs_pop();
# Line 380  T93:; Line 382  T93:;
382          goto T78;}          goto T78;}
383          goto T80;          goto T80;
384  T80:;  T80:;
385          {register object V46;          {register object V48;
386          V46= (base[2]->c.c_car);          V48= (base[2]->c.c_car);
387          base[4]= Cnil;          base[4]= Cnil;
388          base[5]= Ct;          base[5]= Ct;
389          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 418  T104:; Line 420  T104:;
420          if(eql(nlj_tag,VV[19]))goto T107;          if(eql(nlj_tag,VV[19]))goto T107;
421          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
422          }          }
423          V47=          V49=
424          make_cclosure_new(LC18,Cnil,base[2],Cdata);          make_cclosure_new(LC18,Cnil,base[2],Cdata);
425          V48=          V50=
426          make_cclosure_new(LC19,Cnil,base[2],Cdata);          make_cclosure_new(LC19,Cnil,base[2],Cdata);
427          V49= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V47,VV[10],V48));          V51= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V49,VV[10],V50));
428          V50= make_cons(/* INLINE-ARGS */V49,Cnil);          V52= make_cons(/* INLINE-ARGS */V51,Cnil);
429          base[3]= make_cons(/* INLINE-ARGS */V50,(VV[6]->s.s_dbind));          base[3]= make_cons(/* INLINE-ARGS */V52,(VV[6]->s.s_dbind));
430          bds_bind(VV[6],base[3]);          bds_bind(VV[6],base[3]);
431          {register object V51;          {register object V53;
432          {register object V52;          {register object V54;
433          {object V53 =(VV[17])->s.s_plist;          {object V55 =(VV[17])->s.s_plist;
434           object ind= VV[2];           object ind= VV[2];
435          while(V53!=Cnil){          while(V55!=Cnil){
436          if(V53->c.c_car==ind){          if(V55->c.c_car==ind){
437          V52= (V53->c.c_cdr->c.c_car);          V54= (V55->c.c_cdr->c.c_car);
438          goto T114;          goto T114;
439          }else V53=V53->c.c_cdr->c.c_cdr;}          }else V55=V55->c.c_cdr->c.c_cdr;}
440          V52= Cnil;}          V54= Cnil;}
441          goto T114;          goto T114;
442  T114:;  T114:;
443          if(((V52))==Cnil){          if(((V54))==Cnil){
444          goto T116;}          goto T116;}
445          base[4]= (V52);          base[4]= (V54);
446          goto T113;          goto T113;
447          goto T116;          goto T116;
448  T116:;  T116:;
449          base[4]= (VV[12]->s.s_gfdef);}          base[4]= (VV[12]->s.s_gfdef);}
450          goto T113;          goto T113;
451  T113:;  T113:;
452          {object V54;          {object V56;
453          V54= (base[0]->c.c_car);          V56= (base[0]->c.c_car);
454           vs_top=base+5;           vs_top=base+5;
455           while(V54!=Cnil)           while(V56!=Cnil)
456           {vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;}           {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}
457          vs_base=base+5;}          vs_base=base+5;}
458          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
459                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 459  T113:; Line 461  T113:;
461                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
462          Llist();          Llist();
463          vs_top=sup;          vs_top=sup;
464          V51= vs_base[0];          V53= vs_base[0];
465          if(((VV[13]->s.s_dbind))!=Cnil){          if(((VV[13]->s.s_dbind))!=Cnil){
466          goto T119;}          goto T119;}
467          base[4]= (V51);          base[4]= (V53);
468          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
469          Lvalues_list();          Lvalues_list();
470          frs_pop();          frs_pop();
# Line 480  T119:; Line 482  T119:;
482          goto T105;}          goto T105;}
483          goto T107;          goto T107;
484  T107:;  T107:;
485          {register object V55;          {register object V57;
486          V55= (base[1]->c.c_car);          V57= (base[1]->c.c_car);
487          base[3]= Cnil;          base[3]= Cnil;
488          base[4]= Ct;          base[4]= Ct;
489          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 501  static void L13() Line 503  static void L13()
503          register object *VOL sup=base+VM13; VC13          register object *VOL sup=base+VM13; VC13
504          vs_check;          vs_check;
505          bds_check;          bds_check;
506          {VOL object V56;          {VOL object V58;
507          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
508          vs_base=vs_base+1;          vs_base=vs_base+1;
509          vs_top[0]=Cnil;          vs_top[0]=Cnil;
510          {object *p=vs_top;          {object *p=vs_top;
511           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
512          V56=(base[1]);          V58=(base[1]);
513          vs_top=sup;          vs_top=sup;
514          goto T130;          goto T130;
515  T130:;  T130:;
# Line 520  T130:; Line 522  T130:;
522          if(eql(nlj_tag,VV[22]))goto T133;          if(eql(nlj_tag,VV[22]))goto T133;
523          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
524          }          }
525          V57=          V59=
526          make_cclosure_new(LC20,Cnil,base[3],Cdata);          make_cclosure_new(LC20,Cnil,base[3],Cdata);
527          V58=          V60=
528          make_cclosure_new(LC21,Cnil,base[3],Cdata);          make_cclosure_new(LC21,Cnil,base[3],Cdata);
529          V59= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V57,VV[10],V58));          V61= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V59,VV[10],V60));
530          V60= make_cons(/* INLINE-ARGS */V59,Cnil);          V62= make_cons(/* INLINE-ARGS */V61,Cnil);
531          base[4]= make_cons(/* INLINE-ARGS */V60,(VV[6]->s.s_dbind));          base[4]= make_cons(/* INLINE-ARGS */V62,(VV[6]->s.s_dbind));
532          bds_bind(VV[6],base[4]);          bds_bind(VV[6],base[4]);
533          {register object V61;          {register object V63;
534          {object V62 =(VV[21])->s.s_plist;          {object V64 =(VV[21])->s.s_plist;
535           object ind= VV[2];           object ind= VV[2];
536          while(V62!=Cnil){          while(V64!=Cnil){
537          if(V62->c.c_car==ind){          if(V64->c.c_car==ind){
538          V61= (V62->c.c_cdr->c.c_car);          V63= (V64->c.c_cdr->c.c_car);
539          goto T138;          goto T138;
540          }else V62=V62->c.c_cdr->c.c_cdr;}          }else V64=V64->c.c_cdr->c.c_cdr;}
541          V61= Cnil;}          V63= Cnil;}
542          goto T138;          goto T138;
543  T138:;  T138:;
544          if(((V61))==Cnil){          if(((V63))==Cnil){
545          goto T140;}          goto T140;}
546          base[5]= (V61);          base[5]= (V63);
547          goto T137;          goto T137;
548          goto T140;          goto T140;
549  T140:;  T140:;
# Line 549  T140:; Line 551  T140:;
551          goto T137;          goto T137;
552  T137:;  T137:;
553          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
554          {object V63;          {object V65;
555          V63= (V56);          V65= (V58);
556           vs_top=base+7;           vs_top=base+7;
557           while(V63!=Cnil)           while(V65!=Cnil)
558           {vs_push((V63)->c.c_car);V63=(V63)->c.c_cdr;}           {vs_push((V65)->c.c_car);V65=(V65)->c.c_cdr;}
559          vs_base=base+6;}          vs_base=base+6;}
560          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
561                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 564  T137:; Line 566  T137:;
566          return;          return;
567          goto T133;          goto T133;
568  T133:;  T133:;
569          {register object V64;          {register object V66;
570          V64= (base[2]->c.c_car);          V66= (base[2]->c.c_car);
571          base[4]= Cnil;          base[4]= Cnil;
572          base[5]= Ct;          base[5]= Ct;
573          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 586  static void L14() Line 588  static void L14()
588          register object *VOL sup=base+VM14; VC14          register object *VOL sup=base+VM14; VC14
589          vs_check;          vs_check;
590          bds_check;          bds_check;
591          {VOL object V65;          {VOL object V67;
592          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
593          vs_base=vs_base+1;          vs_base=vs_base+1;
594          vs_top[0]=Cnil;          vs_top[0]=Cnil;
595          {object *p=vs_top;          {object *p=vs_top;
596           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
597          V65=(base[1]);          V67=(base[1]);
598          vs_top=sup;          vs_top=sup;
599          goto T149;          goto T149;
600  T149:;  T149:;
# Line 605  T149:; Line 607  T149:;
607          if(eql(nlj_tag,VV[25]))goto T152;          if(eql(nlj_tag,VV[25]))goto T152;
608          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
609          }          }
610          V66=          V68=
611          make_cclosure_new(LC22,Cnil,base[3],Cdata);          make_cclosure_new(LC22,Cnil,base[3],Cdata);
612          V67=          V69=
613          make_cclosure_new(LC23,Cnil,base[3],Cdata);          make_cclosure_new(LC23,Cnil,base[3],Cdata);
614          V68= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V66,VV[10],V67));          V70= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V68,VV[10],V69));
615          V69= make_cons(/* INLINE-ARGS */V68,Cnil);          V71= make_cons(/* INLINE-ARGS */V70,Cnil);
616          base[4]= make_cons(/* INLINE-ARGS */V69,(VV[6]->s.s_dbind));          base[4]= make_cons(/* INLINE-ARGS */V71,(VV[6]->s.s_dbind));
617          bds_bind(VV[6],base[4]);          bds_bind(VV[6],base[4]);
618          {register object V70;          {register object V72;
619          {object V71 =(VV[24])->s.s_plist;          {object V73 =(VV[24])->s.s_plist;
620           object ind= VV[2];           object ind= VV[2];
621          while(V71!=Cnil){          while(V73!=Cnil){
622          if(V71->c.c_car==ind){          if(V73->c.c_car==ind){
623          V70= (V71->c.c_cdr->c.c_car);          V72= (V73->c.c_cdr->c.c_car);
624          goto T157;          goto T157;
625          }else V71=V71->c.c_cdr->c.c_cdr;}          }else V73=V73->c.c_cdr->c.c_cdr;}
626          V70= Cnil;}          V72= Cnil;}
627          goto T157;          goto T157;
628  T157:;  T157:;
629          if(((V70))==Cnil){          if(((V72))==Cnil){
630          goto T159;}          goto T159;}
631          base[5]= (V70);          base[5]= (V72);
632          goto T156;          goto T156;
633          goto T159;          goto T159;
634  T159:;  T159:;
# Line 634  T159:; Line 636  T159:;
636          goto T156;          goto T156;
637  T156:;  T156:;
638          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
639          {object V72;          {object V74;
640          V72= (V65);          V74= (V67);
641           vs_top=base+7;           vs_top=base+7;
642           while(V72!=Cnil)           while(V74!=Cnil)
643           {vs_push((V72)->c.c_car);V72=(V72)->c.c_cdr;}           {vs_push((V74)->c.c_car);V74=(V74)->c.c_cdr;}
644          vs_base=base+6;}          vs_base=base+6;}
645          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
646                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 649  T156:; Line 651  T156:;
651          return;          return;
652          goto T152;          goto T152;
653  T152:;  T152:;
654          {register object V73;          {register object V75;
655          V73= (base[2]->c.c_car);          V75= (base[2]->c.c_car);
656          base[4]= Cnil;          base[4]= Cnil;
657          base[5]= Ct;          base[5]= Ct;
658          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 664  T150:; Line 666  T150:;
666          goto T149;          goto T149;
667          }          }
668  }  }
669  /*      local entry for function progn 'compile2840     */  /*      local entry for function progn 'compile2845     */
670    
671  static object LI15()  static object LI15()
672    
# Line 672  static object LI15() Line 674  static object LI15()
674          goto TTL;          goto TTL;
675  TTL:;  TTL:;
676          (void)((*(LnkLI31))());          (void)((*(LnkLI31))());
677          {object V74 = Cnil;          {object V76 = Cnil;
678          VMR15(V74)}          VMR15(V76)}
679          return Cnil;          return Cnil;
680  }  }
681  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 683  register object *base0; Line 685  register object *base0;
685  {       register object *base=vs_base;  {       register object *base=vs_base;
686          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
687          vs_check;          vs_check;
688          {register object V75;          {register object V77;
689          V75=(base[0]);          V77=(base[0]);
690          vs_top=sup;          vs_top=sup;
691          base[1]= (V75);          base[1]= (V77);
692          base[2]= VV[23];          base[2]= VV[23];
693          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
694          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 701  register object *base0; Line 703  register object *base0;
703  {       register object *base=vs_base;  {       register object *base=vs_base;
704          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
705          vs_check;          vs_check;
706          {register object V76;          {register object V78;
707          vs_top[0]=Cnil;          vs_top[0]=Cnil;
708          {object *p=vs_top;          {object *p=vs_top;
709           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
710          V76=(base[0]);          V78=(base[0]);
711          vs_top=sup;          vs_top=sup;
712          (base0[1]->c.c_car)= (V76);          (base0[1]->c.c_car)= (V78);
713          {frame_ptr fr;          {frame_ptr fr;
714          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
715          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[25]);
# Line 722  register object *base0; Line 724  register object *base0;
724  {       register object *base=vs_base;  {       register object *base=vs_base;
725          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
726          vs_check;          vs_check;
727          {register object V77;          {register object V79;
728          V77=(base[0]);          V79=(base[0]);
729          vs_top=sup;          vs_top=sup;
730          base[1]= (V77);          base[1]= (V79);
731          base[2]= VV[20];          base[2]= VV[20];
732          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
733          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 740  register object *base0; Line 742  register object *base0;
742  {       register object *base=vs_base;  {       register object *base=vs_base;
743          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
744          vs_check;          vs_check;
745          {register object V78;          {register object V80;
746          vs_top[0]=Cnil;          vs_top[0]=Cnil;
747          {object *p=vs_top;          {object *p=vs_top;
748           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
749          V78=(base[0]);          V80=(base[0]);
750          vs_top=sup;          vs_top=sup;
751          (base0[1]->c.c_car)= (V78);          (base0[1]->c.c_car)= (V80);
752          {frame_ptr fr;          {frame_ptr fr;
753          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
754          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[22]);
# Line 761  register object *base0; Line 763  register object *base0;
763  {       register object *base=vs_base;  {       register object *base=vs_base;
764          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
765          vs_check;          vs_check;
766          {register object V79;          {register object V81;
767          V79=(base[0]);          V81=(base[0]);
768          vs_top=sup;          vs_top=sup;
769          base[1]= (V79);          base[1]= (V81);
770          base[2]= VV[16];          base[2]= VV[16];
771          base[3]= CMPcar((base0[2]->c.c_car));          base[3]= CMPcar((base0[2]->c.c_car));
772          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 779  register object *base0; Line 781  register object *base0;
781  {       register object *base=vs_base;  {       register object *base=vs_base;
782          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
783          vs_check;          vs_check;
784          {register object V80;          {register object V82;
785          vs_top[0]=Cnil;          vs_top[0]=Cnil;
786          {object *p=vs_top;          {object *p=vs_top;
787           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
788          V80=(base[0]);          V82=(base[0]);
789          vs_top=sup;          vs_top=sup;
790          (base0[1]->c.c_car)= (V80);          (base0[1]->c.c_car)= (V82);
791          {frame_ptr fr;          {frame_ptr fr;
792          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
793          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[19]);
# Line 800  register object *base0; Line 802  register object *base0;
802  {       register object *base=vs_base;  {       register object *base=vs_base;
803          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
804          vs_check;          vs_check;
805          {register object V81;          {register object V83;
806          V81=(base[0]);          V83=(base[0]);
807          vs_top=sup;          vs_top=sup;
808          base[1]= (V81);          base[1]= (V83);
809          base[2]= VV[11];          base[2]= VV[11];
810          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
811          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
# Line 818  register object *base0; Line 820  register object *base0;
820  {       register object *base=vs_base;  {       register object *base=vs_base;
821          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
822          vs_check;          vs_check;
823          {register object V82;          {register object V84;
824          vs_top[0]=Cnil;          vs_top[0]=Cnil;
825          {object *p=vs_top;          {object *p=vs_top;
826           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
827          V82=(base[0]);          V84=(base[0]);
828          vs_top=sup;          vs_top=sup;
829          (base0[1]->c.c_car)= (V82);          (base0[1]->c.c_car)= (V84);
830          {frame_ptr fr;          {frame_ptr fr;
831          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
832          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]);          if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[15]);

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