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

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