/[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.3.4.1 by camm, Wed Jul 16 02:02:47 2003 UTC revision 1.3.4.1.4.1 by camm, Tue Sep 23 18:39:17 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 'compile2181     */  /*      function definition for INSTALL-SYMBOL  */
6    
7  static object LI1()  static void L1()
8    {register object *base=vs_base;
9  {        VMB1 VMS1 VMV1          register object *sup=base+VM1; VC1
10          goto TTL;          vs_check;
11  TTL:;          {register object V1;
12          base[0]= VV[0];          object V2;
13          vs_top=(vs_base=base+0)+1;          V1=(base[0]);
14          (void) (*Lnk26)();          V2=(base[1]);
15          vs_top=sup;          vs_top=sup;
         {object V1 = Cnil;  
         VMR1(V1)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2193     */  
   
 static object LI2()  
   
 {        VMB2 VMS2 VMV2  
16          goto TTL;          goto TTL;
17  TTL:;  TTL:;
18          base[0]= VV[0];          {object V3 =((V1))->s.s_plist;
19          vs_top=(vs_base=base+0)+1;           object ind= VV[0];
20          Lboundp();          while(V3!=Cnil){
21          vs_top=sup;          if(V3->c.c_car==ind){
22          if((vs_base[0])==Cnil){          if(((V3->c.c_cdr->c.c_car))!=Cnil){
23          goto T4;}          goto T1;}
24          goto T3;          goto T3;
25          goto T4;          }else V3=V3->c.c_cdr->c.c_cdr;}}
 T4:;  
         setq(VV[0],VV[1]);  
26          goto T3;          goto T3;
27  T3:;  T3:;
28          {object V2 = Cnil;          base[2]= (V1);
29          VMR2(V2)}          vs_top=(vs_base=base+2)+1;
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2206     */  
   
 static object LI3()  
   
 {        VMB3 VMS3 VMV3  
         goto TTL;  
 TTL:;  
         {object V3 = Cnil;  
         VMR3(V3)}  
         return Cnil;  
 }  
 /*      local entry for function INSTALL-SYMBOL */  
   
 static object LI4(V6,V7)  
   
 register object V6;object V7;  
 {        VMB4 VMS4 VMV4  
         goto TTL;  
 TTL:;  
         if((get((V6),VV[2],Cnil))!=Cnil){  
         goto T9;}  
         base[0]= (V6);  
         vs_top=(vs_base=base+0)+1;  
30          Lsymbol_function();          Lsymbol_function();
31          vs_top=sup;          vs_top=sup;
32          V8= vs_base[0];          V4= vs_base[0];
33          (void)(sputprop((V6),VV[2],V8));          (void)(sputprop((V1),VV[0],V4));
34          goto T9;          goto T1;
35  T9:;  T1:;
36          base[0]= (V6);          base[2]= (V1);
37          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
38          Lsymbol_function();          Lsymbol_function();
39          vs_top=sup;          vs_top=sup;
40          V9= vs_base[0];          V5= vs_base[0];
41          base[0]= (V7);          base[2]= (V2);
42          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+2)+1;
43          Lsymbol_function();          Lsymbol_function();
44          vs_top=sup;          vs_top=sup;
45          V10= vs_base[0];          V6= vs_base[0];
46          if((V9)==(V10)){          if((V5)==(V6)){
47          goto T15;}          goto T7;}
48          base[0]= (V6);          base[2]= (V1);
49          base[2]= (V7);          base[4]= (V2);
50          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+4)+1;
51          Lsymbol_function();          Lsymbol_function();
52          vs_top=sup;          vs_top=sup;
53          base[1]= vs_base[0];          base[3]= vs_base[0];
54          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+2)+2;
55          siLfset();          siLfset();
56          vs_top=sup;          return;
57          {object V11 = vs_base[0];          goto T7;
58          VMR4(V11)}  T7:;
59          goto T15;          base[2]= Cnil;
60  T15:;          vs_top=(vs_base=base+2)+1;
61          {object V12 = Cnil;          return;
62          VMR4(V12)}          }
         base[0]=base[0];  
         return Cnil;  
63  }  }
64  /*      local entry for function REVERT-SYMBOL  */  /*      function definition for REVERT-SYMBOL   */
   
 static object LI5(V14)  
65    
66  register object V14;  static void L2()
67  {        VMB5 VMS5 VMV5  {register object *base=vs_base;
68            register object *sup=base+VM2; VC2
69            vs_check;
70            {register object V7;
71            V7=(base[0]);
72            vs_top=sup;
73          goto TTL;          goto TTL;
74  TTL:;  TTL:;
75          if((get((V14),VV[2],Cnil))==Cnil){          {object V8 =((V7))->s.s_plist;
76          goto T25;}           object ind= VV[0];
77          base[0]= (V14);          while(V8!=Cnil){
78          vs_top=(vs_base=base+0)+1;          if(V8->c.c_car==ind){
79            if(((V8->c.c_cdr->c.c_car))==Cnil){
80            goto T17;}
81            goto T19;
82            }else V8=V8->c.c_cdr->c.c_cdr;}
83            goto T17;}
84            goto T19;
85    T19:;
86            base[1]= (V7);
87            vs_top=(vs_base=base+1)+1;
88          Lsymbol_function();          Lsymbol_function();
89          vs_top=sup;          vs_top=sup;
90          V15= vs_base[0];          V9= vs_base[0];
91          V16= get((V14),VV[2],Cnil);          {object V11 =((V7))->s.s_plist;
92          if((V15)==(V16)){           object ind= VV[0];
93          goto T25;}          while(V11!=Cnil){
94          base[0]= (V14);          if(V11->c.c_car==ind){
95          base[1]= get((V14),VV[2],Cnil);          V10= (V11->c.c_cdr->c.c_car);
96          vs_top=(vs_base=base+0)+2;          goto T23;
97          siLfset();          }else V11=V11->c.c_cdr->c.c_cdr;}
98          vs_top=sup;          V10= Cnil;}
99          {object V17 = vs_base[0];          goto T23;
100          VMR5(V17)}  T23:;
101            if((V9)==(V10)){
102            goto T17;}
103            base[1]= (V7);
104            {object V12 =((V7))->s.s_plist;
105             object ind= VV[0];
106            while(V12!=Cnil){
107            if(V12->c.c_car==ind){
108            base[2]= (V12->c.c_cdr->c.c_car);
109            goto T25;
110            }else V12=V12->c.c_cdr->c.c_cdr;}
111            base[2]= Cnil;}
112          goto T25;          goto T25;
113  T25:;  T25:;
114          {object V18 = Cnil;          vs_top=(vs_base=base+1)+2;
115          VMR5(V18)}          siLfset();
116          base[0]=base[0];          return;
117          return Cnil;          goto T17;
118    T17:;
119            base[1]= Cnil;
120            vs_top=(vs_base=base+1)+1;
121            return;
122            }
123  }  }
124  /*      local entry for function progn 'compile2266     */  /*      function definition for INSTALL-CLCS-SYMBOLS    */
125    
126  static object LI6()  static void L3()
127    {register object *base=vs_base;
128  {        VMB6 VMS6 VMV6          register object *sup=base+VM3; VC3
129          goto TTL;          vs_check;
 TTL:;  
         base[0]= VV[3];  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk26)();  
130          vs_top=sup;          vs_top=sup;
         {object V19 = Cnil;  
         VMR6(V19)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2278     */  
   
 static object LI7()  
   
 {        VMB7 VMS7 VMV7  
131          goto TTL;          goto TTL;
132  TTL:;  TTL:;
133          base[0]= VV[3];          {register object V13;
134            register object V14;
135            V13= (VV[1]->s.s_dbind);
136            V14= CMPcar((V13));
137            goto T30;
138    T30:;
139            if(!(((V13))==Cnil)){
140            goto T31;}
141            goto T26;
142            goto T31;
143    T31:;
144            base[1]= CMPcar((V14));
145            base[2]= CMPcadr((V14));
146            vs_top=(vs_base=base+1)+2;
147            (void) (*Lnk22)();
148            vs_top=sup;
149            V13= CMPcdr((V13));
150            V14= CMPcar((V13));
151            goto T30;}
152            goto T26;
153    T26:;
154            base[0]= Cnil;
155          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
156          Lboundp();          return;
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T37;}  
         goto T36;  
         goto T37;  
 T37:;  
         base[1]= symbol_value(VV[0]);  
         {object V21;  
         object V22= base[1];  
         if(endp(V22)){  
         V20= Cnil;  
         goto T41;}  
         base[0]=V21=MMcons(Cnil,Cnil);  
         goto T42;  
 T42:;  
         base[2]= symbol_name((V22->c.c_car));  
         base[3]= VV[4];  
         vs_top=(vs_base=base+2)+2;  
         Lintern();  
         vs_top=sup;  
         V24= vs_base[0];  
         (V21->c.c_car)= list(2,V24,(V22->c.c_car));  
         V22=MMcdr(V22);  
         if(endp(V22)){  
         V20= base[0];  
         goto T41;}  
         V21=MMcdr(V21)=MMcons(Cnil,Cnil);  
         goto T42;}  
         goto T41;  
 T41:;  
         setq(VV[3],nconc(V20,VV[5]));  
         goto T36;  
 T36:;  
         {object V25 = Cnil;  
         VMR7(V25)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile2295     */  
   
 static object LI8()  
   
 {        VMB8 VMS8 VMV8  
         goto TTL;  
 TTL:;  
         {object V26 = Cnil;  
         VMR8(V26)}  
         return Cnil;  
157  }  }
158  /*      local entry for function INSTALL-CLCS-SYMBOLS   */  /*      function definition for REVERT-CLCS-SYMBOLS     */
159    
160  static object LI9()  static void L4()
161    {register object *base=vs_base;
162  {        VMB9 VMS9 VMV9          register object *sup=base+VM4; VC4
163            vs_check;
164            vs_top=sup;
165          goto TTL;          goto TTL;
166  TTL:;  TTL:;
167          {register object V27;          {register object V15;
168          register object V28;          register object V16;
169          V27= symbol_value(VV[3]);          V15= reverse((VV[1]->s.s_dbind));
170          V28= car((V27));          V16= CMPcar((V15));
171          goto T52;          goto T47;
172  T52:;  T47:;
173          if(!(endp_prop((V27)))){          if(!(((V15))==Cnil)){
174          goto T53;}          goto T48;}
175          goto T48;          goto T43;
         goto T53;  
 T53:;  
         (void)((*(LnkLI27))(car((V28)),cadr((V28))));  
         V27= cdr((V27));  
         V28= car((V27));  
         goto T52;}  
176          goto T48;          goto T48;
177  T48:;  T48:;
178          {object V29 = Cnil;          base[2]= CMPcar((V16));
179          VMR9(V29)}          vs_top=(vs_base=base+2)+1;
180          base[0]=base[0];          (void) (*Lnk23)();
181          return Cnil;          vs_top=sup;
182  }          V15= CMPcdr((V15));
183  /*      local entry for function REVERT-CLCS-SYMBOLS    */          V16= CMPcar((V15));
184            goto T47;}
185  static object LI10()          goto T43;
186    T43:;
187  {        VMB10 VMS10 VMV10          base[0]= Cnil;
188          goto TTL;          vs_top=(vs_base=base+0)+1;
189  TTL:;          return;
         {register object V30;  
         register object V31;  
         V30= reverse(symbol_value(VV[3]));  
         V31= car((V30));  
         goto T67;  
 T67:;  
         if(!(endp_prop((V30)))){  
         goto T68;}  
         goto T63;  
         goto T68;  
 T68:;  
         (void)((*(LnkLI28))(car((V31))));  
         V30= cdr((V30));  
         V31= car((V30));  
         goto T67;}  
         goto T63;  
 T63:;  
         {object V32 = Cnil;  
         VMR10(V32)}  
         base[0]=base[0];  
         return Cnil;  
190  }  }
191  /*      function definition for CLCS-COMPILE-FILE       */  /*      function definition for CLCS-COMPILE-FILE       */
192    
193  static void L11()  static void L5()
194  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
195          register object *VOL sup=base+VM11; VC11          register object *VOL sup=base+VM5; VC5
196          vs_reserve(VM11);          vs_check;
197          bds_check;          bds_check;
198          {VOL object V33;          {VOL object V17;
         if(vs_top-vs_base<1) too_few_arguments();  
199          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
200          vs_base=vs_base+1;          vs_base=vs_base+1;
201          vs_top[0]=Cnil;          vs_top[0]=Cnil;
202          {object *p=vs_top;          {object *p=vs_top;
203           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
204          V33=(base[1]);          V17=(base[1]);
205          vs_top=sup;          vs_top=sup;
206          goto T79;          goto T60;
207  T79:;  T60:;
208          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
209          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
210          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
211          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
212          if(nlj_active){          if(nlj_active){
213          nlj_active=FALSE;          nlj_active=FALSE;
214          if(eql(nlj_tag,VV[15]))goto T82;          if(eql(nlj_tag,VV[11]))goto T63;
215          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
216          }          }
217          V34=          base[5]= VV[3];
218          make_cclosure_new(LC16,Cnil,base[3],Cdata);          base[6]= VV[4];
219          V35=          base[7]= VV[5];
220          make_cclosure_new(LC17,Cnil,base[3],Cdata);          base[8]=
221          V36= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V34,VV[10],V35));          make_cclosure_new(LC9,Cnil,base[3],Cdata);
222          V37= make_cons(/* INLINE-ARGS */V36,Cnil);          base[9]= VV[6];
223          base[4]= make_cons(/* INLINE-ARGS */V37,symbol_value(VV[6]));          base[10]=
224          bds_bind(VV[6],base[4]);          make_cclosure_new(LC10,Cnil,base[3],Cdata);
225          {register object V38;          vs_top=(vs_base=base+5)+6;
226          {register object V39;          (void) (*Lnk24)();
227          V39= get(VV[12],VV[2],Cnil);          vs_top=sup;
228          if(((V39))==Cnil){          V18= vs_base[0];
229          goto T91;}          V19= make_cons(V18,Cnil);
230          base[5]= (V39);          base[4]= make_cons(/* INLINE-ARGS */V19,(VV[2]->s.s_dbind));
231          goto T88;          bds_bind(VV[2],base[4]);
232          goto T91;          {register object V20;
233  T91:;          {register object V21;
234          base[5]= symbol_function(VV[12]);}          {object V22 =(VV[8])->s.s_plist;
235          goto T88;           object ind= VV[0];
236  T88:;          while(V22!=Cnil){
237            if(V22->c.c_car==ind){
238            V21= (V22->c.c_cdr->c.c_car);
239            goto T75;
240            }else V22=V22->c.c_cdr->c.c_cdr;}
241            V21= Cnil;}
242            goto T75;
243    T75:;
244            if(((V21))==Cnil){
245            goto T77;}
246            base[5]= (V21);
247            goto T74;
248            goto T77;
249    T77:;
250            base[5]= (VV[8]->s.s_gfdef);}
251            goto T74;
252    T74:;
253          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
254          {object V40;          {object V23;
255          V40= (V33);          V23= (V17);
256           vs_top=base+7;           vs_top=base+7;
257           while(!endp(V40))           while(V23!=Cnil)
258           {vs_push(car(V40));V40=cdr(V40);}           {vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;}
259          vs_base=base+6;}          vs_base=base+6;}
260          {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))
261                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 326  T88:; Line 263  T88:;
263                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
264          Llist();          Llist();
265          vs_top=sup;          vs_top=sup;
266          V38= vs_base[0];          V20= vs_base[0];
267          if((symbol_value(VV[13]))!=Cnil){          if(((VV[9]->s.s_dbind))!=Cnil){
268          goto T95;}          goto T81;}
269          base[5]= (V38);          base[5]= (V20);
270          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
271          Lvalues_list();          Lvalues_list();
272          frs_pop();          frs_pop();
273          bds_unwind1;          bds_unwind1;
274          return;          return;
275          goto T95;          goto T81;
276  T95:;  T81:;
277          base[5]= VV[14];          base[5]= VV[10];
278          base[6]= VV[12];          base[6]= VV[8];
279          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
280          (void) (*Lnk30)();          (void) (*Lnk25)();
281          vs_top=sup;          vs_top=sup;
282          frs_pop();          frs_pop();
283          bds_unwind1;          bds_unwind1;
284          goto T80;}          goto T61;}
285          goto T82;          goto T63;
286  T82:;  T63:;
287          {register object V41;          {register object V24;
288          V41= (base[2]->c.c_car);          V24= (base[2]->c.c_car);
         ck_larg_exactly(0,(V41));  
289          base[4]= Cnil;          base[4]= Cnil;
290          base[5]= Ct;          base[5]= Ct;
291          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
292          vs_top=sup;          vs_top=sup;
293          frs_pop();          frs_pop();
294          goto T80;}          goto T61;}
295          frs_pop();          frs_pop();
296          goto T80;          goto T61;
297          goto T80;          goto T61;
298  T80:;  T61:;
299          goto T79;          goto T60;
300          }          }
301  }  }
302  /*      function definition for CLCS-COMPILE    */  /*      function definition for CLCS-COMPILE    */
303    
304  static void L12()  static void L6()
305  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
306          register object *VOL sup=base+VM12; VC12          register object *VOL sup=base+VM6; VC6
307          vs_reserve(VM12);          vs_check;
308          bds_check;          bds_check;
309          vs_top[0]=Cnil;          vs_top[0]=Cnil;
310          {object *p=vs_top;          {object *p=vs_top;
311           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
312          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
313          vs_top=sup;          vs_top=sup;
314          goto T106;          goto T92;
315  T106:;  T92:;
316          base[1]=MMcons(Cnil,base[0]);          base[1]=MMcons(Cnil,base[0]);
317          base[2]=alloc_frame_id();          base[2]=alloc_frame_id();
318          base[2]=MMcons(base[2],base[1]);          base[2]=MMcons(base[2],base[1]);
319          frs_push(FRS_CATCH,(base[2]->c.c_car));          frs_push(FRS_CATCH,(base[2]->c.c_car));
320          if(nlj_active){          if(nlj_active){
321          nlj_active=FALSE;          nlj_active=FALSE;
322          if(eql(nlj_tag,VV[19]))goto T109;          if(eql(nlj_tag,VV[15]))goto T95;
323          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
324          }          }
325          V42=          base[4]= VV[3];
326          make_cclosure_new(LC18,Cnil,base[2],Cdata);          base[5]= VV[4];
327          V43=          base[6]= VV[5];
328          make_cclosure_new(LC19,Cnil,base[2],Cdata);          base[7]=
329          V44= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V42,VV[10],V43));          make_cclosure_new(LC11,Cnil,base[2],Cdata);
330          V45= make_cons(/* INLINE-ARGS */V44,Cnil);          base[8]= VV[6];
331          base[3]= make_cons(/* INLINE-ARGS */V45,symbol_value(VV[6]));          base[9]=
332          bds_bind(VV[6],base[3]);          make_cclosure_new(LC12,Cnil,base[2],Cdata);
333          {register object V46;          vs_top=(vs_base=base+4)+6;
334          {register object V47;          (void) (*Lnk24)();
335          V47= get(VV[17],VV[2],Cnil);          vs_top=sup;
336          if(((V47))==Cnil){          V25= vs_base[0];
337          goto T118;}          V26= make_cons(V25,Cnil);
338          base[4]= (V47);          base[3]= make_cons(/* INLINE-ARGS */V26,(VV[2]->s.s_dbind));
339          goto T115;          bds_bind(VV[2],base[3]);
340          goto T118;          {register object V27;
341  T118:;          {register object V28;
342          base[4]= symbol_function(VV[12]);}          {object V29 =(VV[13])->s.s_plist;
343          goto T115;           object ind= VV[0];
344  T115:;          while(V29!=Cnil){
345          {object V48;          if(V29->c.c_car==ind){
346          V48= (base[0]->c.c_car);          V28= (V29->c.c_cdr->c.c_car);
347            goto T107;
348            }else V29=V29->c.c_cdr->c.c_cdr;}
349            V28= Cnil;}
350            goto T107;
351    T107:;
352            if(((V28))==Cnil){
353            goto T109;}
354            base[4]= (V28);
355            goto T106;
356            goto T109;
357    T109:;
358            base[4]= (VV[8]->s.s_gfdef);}
359            goto T106;
360    T106:;
361            {object V30;
362            V30= (base[0]->c.c_car);
363           vs_top=base+5;           vs_top=base+5;
364           while(!endp(V48))           while(V30!=Cnil)
365           {vs_push(car(V48));V48=cdr(V48);}           {vs_push((V30)->c.c_car);V30=(V30)->c.c_cdr;}
366          vs_base=base+5;}          vs_base=base+5;}
367          {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))
368                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 418  T115:; Line 370  T115:;
370                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
371          Llist();          Llist();
372          vs_top=sup;          vs_top=sup;
373          V46= vs_base[0];          V27= vs_base[0];
374          if((symbol_value(VV[13]))!=Cnil){          if(((VV[9]->s.s_dbind))!=Cnil){
375          goto T121;}          goto T112;}
376          base[4]= (V46);          base[4]= (V27);
377          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
378          Lvalues_list();          Lvalues_list();
379          frs_pop();          frs_pop();
380          bds_unwind1;          bds_unwind1;
381          return;          return;
382          goto T121;          goto T112;
383  T121:;  T112:;
384          base[4]= VV[18];          base[4]= VV[14];
385          base[5]= VV[17];          base[5]= VV[13];
386          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
387          (void) (*Lnk30)();          (void) (*Lnk25)();
388          vs_top=sup;          vs_top=sup;
389          frs_pop();          frs_pop();
390          bds_unwind1;          bds_unwind1;
391          goto T107;}          goto T93;}
392          goto T109;          goto T95;
393  T109:;  T95:;
394          {register object V49;          {register object V31;
395          V49= (base[1]->c.c_car);          V31= (base[1]->c.c_car);
         ck_larg_exactly(0,(V49));  
396          base[3]= Cnil;          base[3]= Cnil;
397          base[4]= Ct;          base[4]= Ct;
398          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
399          vs_top=sup;          vs_top=sup;
400          frs_pop();          frs_pop();
401          goto T107;}          goto T93;}
402          frs_pop();          frs_pop();
403          goto T107;          goto T93;
404          goto T107;          goto T93;
405  T107:;  T93:;
406          goto T106;          goto T92;
407  }  }
408  /*      function definition for CLCS-LOAD       */  /*      function definition for CLCS-LOAD       */
409    
410  static void L13()  static void L7()
411  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
412          register object *VOL sup=base+VM13; VC13          register object *VOL sup=base+VM7; VC7
413          vs_reserve(VM13);          vs_check;
414          bds_check;          bds_check;
415          {VOL object V50;          {VOL object V32;
         if(vs_top-vs_base<1) too_few_arguments();  
416          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
417          vs_base=vs_base+1;          vs_base=vs_base+1;
418          vs_top[0]=Cnil;          vs_top[0]=Cnil;
419          {object *p=vs_top;          {object *p=vs_top;
420           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
421          V50=(base[1]);          V32=(base[1]);
422          vs_top=sup;          vs_top=sup;
423          goto T132;          goto T123;
424  T132:;  T123:;
425          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
426          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
427          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
428          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
429          if(nlj_active){          if(nlj_active){
430          nlj_active=FALSE;          nlj_active=FALSE;
431          if(eql(nlj_tag,VV[22]))goto T135;          if(eql(nlj_tag,VV[18]))goto T126;
432          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
433          }          }
434          V51=          base[5]= VV[3];
435          make_cclosure_new(LC20,Cnil,base[3],Cdata);          base[6]= VV[4];
436          V52=          base[7]= VV[5];
437          make_cclosure_new(LC21,Cnil,base[3],Cdata);          base[8]=
438          V53= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V51,VV[10],V52));          make_cclosure_new(LC13,Cnil,base[3],Cdata);
439          V54= make_cons(/* INLINE-ARGS */V53,Cnil);          base[9]= VV[6];
440          base[4]= make_cons(/* INLINE-ARGS */V54,symbol_value(VV[6]));          base[10]=
441          bds_bind(VV[6],base[4]);          make_cclosure_new(LC14,Cnil,base[3],Cdata);
442          {register object V55;          vs_top=(vs_base=base+5)+6;
443          V55= get(VV[21],VV[2],Cnil);          (void) (*Lnk24)();
444          if(((V55))==Cnil){          vs_top=sup;
445          goto T142;}          V33= vs_base[0];
446          base[5]= (V55);          V34= make_cons(V33,Cnil);
447          goto T139;          base[4]= make_cons(/* INLINE-ARGS */V34,(VV[2]->s.s_dbind));
448          goto T142;          bds_bind(VV[2],base[4]);
449  T142:;          {register object V35;
450          base[5]= symbol_function(VV[21]);}          {object V36 =(VV[17])->s.s_plist;
451          goto T139;           object ind= VV[0];
452  T139:;          while(V36!=Cnil){
453            if(V36->c.c_car==ind){
454            V35= (V36->c.c_cdr->c.c_car);
455            goto T136;
456            }else V36=V36->c.c_cdr->c.c_cdr;}
457            V35= Cnil;}
458            goto T136;
459    T136:;
460            if(((V35))==Cnil){
461            goto T138;}
462            base[5]= (V35);
463            goto T135;
464            goto T138;
465    T138:;
466            base[5]= (VV[17]->s.s_gfdef);}
467            goto T135;
468    T135:;
469          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
470          {object V56;          {object V37;
471          V56= (V50);          V37= (V32);
472           vs_top=base+7;           vs_top=base+7;
473           while(!endp(V56))           while(V37!=Cnil)
474           {vs_push(car(V56));V56=cdr(V56);}           {vs_push((V37)->c.c_car);V37=(V37)->c.c_cdr;}
475          vs_base=base+6;}          vs_base=base+6;}
476          {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))
477                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 514  T139:; Line 480  T139:;
480          frs_pop();          frs_pop();
481          bds_unwind1;          bds_unwind1;
482          return;          return;
483          goto T135;          goto T126;
484  T135:;  T126:;
485          {register object V57;          {register object V38;
486          V57= (base[2]->c.c_car);          V38= (base[2]->c.c_car);
         ck_larg_exactly(0,(V57));  
487          base[4]= Cnil;          base[4]= Cnil;
488          base[5]= Ct;          base[5]= Ct;
489          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
490          vs_top=sup;          vs_top=sup;
491          frs_pop();          frs_pop();
492          goto T133;}          goto T124;}
493          frs_pop();          frs_pop();
494          goto T133;          goto T124;
495          goto T133;          goto T124;
496  T133:;  T124:;
497          goto T132;          goto T123;
498          }          }
499  }  }
500  /*      function definition for CLCS-OPEN       */  /*      function definition for CLCS-OPEN       */
501    
502  static void L14()  static void L8()
503  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
504          register object *VOL sup=base+VM14; VC14          register object *VOL sup=base+VM8; VC8
505          vs_reserve(VM14);          vs_check;
506          bds_check;          bds_check;
507          {VOL object V58;          {VOL object V39;
         if(vs_top-vs_base<1) too_few_arguments();  
508          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
509          vs_base=vs_base+1;          vs_base=vs_base+1;
510          vs_top[0]=Cnil;          vs_top[0]=Cnil;
511          {object *p=vs_top;          {object *p=vs_top;
512           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
513          V58=(base[1]);          V39=(base[1]);
514          vs_top=sup;          vs_top=sup;
515          goto T151;          goto T147;
516  T151:;  T147:;
517          base[2]=MMcons(Cnil,base[0]);          base[2]=MMcons(Cnil,base[0]);
518          base[3]=alloc_frame_id();          base[3]=alloc_frame_id();
519          base[3]=MMcons(base[3],base[2]);          base[3]=MMcons(base[3],base[2]);
520          frs_push(FRS_CATCH,(base[3]->c.c_car));          frs_push(FRS_CATCH,(base[3]->c.c_car));
521          if(nlj_active){          if(nlj_active){
522          nlj_active=FALSE;          nlj_active=FALSE;
523          if(eql(nlj_tag,VV[25]))goto T154;          if(eql(nlj_tag,VV[21]))goto T150;
524          FEerror("The GO tag ~s is not established.",1,nlj_tag);          FEerror("The GO tag ~s is not established.",1,nlj_tag);
525          }          }
526          V59=          base[5]= VV[3];
527          make_cclosure_new(LC22,Cnil,base[3],Cdata);          base[6]= VV[4];
528          V60=          base[7]= VV[5];
529          make_cclosure_new(LC23,Cnil,base[3],Cdata);          base[8]=
530          V61= (VFUN_NARGS=6,(*(LnkLI29))(VV[7],VV[8],VV[9],V59,VV[10],V60));          make_cclosure_new(LC15,Cnil,base[3],Cdata);
531          V62= make_cons(/* INLINE-ARGS */V61,Cnil);          base[9]= VV[6];
532          base[4]= make_cons(/* INLINE-ARGS */V62,symbol_value(VV[6]));          base[10]=
533          bds_bind(VV[6],base[4]);          make_cclosure_new(LC16,Cnil,base[3],Cdata);
534          {register object V63;          vs_top=(vs_base=base+5)+6;
535          V63= get(VV[24],VV[2],Cnil);          (void) (*Lnk24)();
536          if(((V63))==Cnil){          vs_top=sup;
537          goto T161;}          V40= vs_base[0];
538          base[5]= (V63);          V41= make_cons(V40,Cnil);
539          goto T158;          base[4]= make_cons(/* INLINE-ARGS */V41,(VV[2]->s.s_dbind));
540          goto T161;          bds_bind(VV[2],base[4]);
541  T161:;          {register object V42;
542          base[5]= symbol_function(VV[24]);}          {object V43 =(VV[20])->s.s_plist;
543          goto T158;           object ind= VV[0];
544  T158:;          while(V43!=Cnil){
545            if(V43->c.c_car==ind){
546            V42= (V43->c.c_cdr->c.c_car);
547            goto T160;
548            }else V43=V43->c.c_cdr->c.c_cdr;}
549            V42= Cnil;}
550            goto T160;
551    T160:;
552            if(((V42))==Cnil){
553            goto T162;}
554            base[5]= (V42);
555            goto T159;
556            goto T162;
557    T162:;
558            base[5]= (VV[20]->s.s_gfdef);}
559            goto T159;
560    T159:;
561          base[6]= (base[0]->c.c_car);          base[6]= (base[0]->c.c_car);
562          {object V64;          {object V44;
563          V64= (V58);          V44= (V39);
564           vs_top=base+7;           vs_top=base+7;
565           while(!endp(V64))           while(V44!=Cnil)
566           {vs_push(car(V64));V64=cdr(V64);}           {vs_push((V44)->c.c_car);V44=(V44)->c.c_cdr;}
567          vs_base=base+6;}          vs_base=base+6;}
568          {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))
569                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 592  T158:; Line 572  T158:;
572          frs_pop();          frs_pop();
573          bds_unwind1;          bds_unwind1;
574          return;          return;
575          goto T154;          goto T150;
576  T154:;  T150:;
577          {register object V65;          {register object V45;
578          V65= (base[2]->c.c_car);          V45= (base[2]->c.c_car);
         ck_larg_exactly(0,(V65));  
579          base[4]= Cnil;          base[4]= Cnil;
580          base[5]= Ct;          base[5]= Ct;
581          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
582          vs_top=sup;          vs_top=sup;
583          frs_pop();          frs_pop();
584          goto T152;}          goto T148;}
585          frs_pop();          frs_pop();
586          goto T152;          goto T148;
587          goto T152;          goto T148;
588  T152:;  T148:;
589          goto T151;          goto T147;
590          }          }
591  }  }
 /*      local entry for function progn 'compile2835     */  
   
 static object LI15()  
   
 {        VMB15 VMS15 VMV15  
         goto TTL;  
 TTL:;  
         (void)((*(LnkLI31))());  
         {object V66 = Cnil;  
         VMR15(V66)}  
         return Cnil;  
 }  
592  /*      local function CLOSURE  */  /*      local function CLOSURE  */
593    
594  static void LC23(base0)  static void LC16(base0)
595  register object *base0;  register object *base0;
596  {       register object *base=vs_base;  {       register object *base=vs_base;
597          register object *sup=base+VM16; VC16          register object *sup=base+VM9; VC9
598          vs_reserve(VM16);          vs_check;
599          {register object V67;          {register object V46;
600          check_arg(1);          V46=(base[0]);
         V67=(base[0]);  
601          vs_top=sup;          vs_top=sup;
602          base[1]= (V67);          base[1]= (V46);
603          base[2]= VV[23];          base[2]= VV[19];
604          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
605          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
606          Lformat();          Lformat();
# Line 643  register object *base0; Line 609  register object *base0;
609  }  }
610  /*      local function CLOSURE  */  /*      local function CLOSURE  */
611    
612  static void LC22(base0)  static void LC15(base0)
613  register object *base0;  register object *base0;
614  {       register object *base=vs_base;  {       register object *base=vs_base;
615          register object *sup=base+VM17; VC17          register object *sup=base+VM10; VC10
616          vs_reserve(VM17);          vs_check;
617          {register object V68;          {register object V47;
618          vs_top[0]=Cnil;          vs_top[0]=Cnil;
619          {object *p=vs_top;          {object *p=vs_top;
620           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
621          V68=(base[0]);          V47=(base[0]);
622          vs_top=sup;          vs_top=sup;
623          (base0[1]->c.c_car)= (V68);          (base0[1]->c.c_car)= (V47);
624          {frame_ptr fr;          {frame_ptr fr;
625          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
626          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[21]);
627          vs_base=vs_top;          vs_base=vs_top;
628          unwind(fr,VV[25]);}          unwind(fr,VV[21]);}
629          }          }
630  }  }
631  /*      local function CLOSURE  */  /*      local function CLOSURE  */
632    
633  static void LC21(base0)  static void LC14(base0)
634  register object *base0;  register object *base0;
635  {       register object *base=vs_base;  {       register object *base=vs_base;
636          register object *sup=base+VM18; VC18          register object *sup=base+VM11; VC11
637          vs_reserve(VM18);          vs_check;
638          {register object V69;          {register object V48;
639          check_arg(1);          V48=(base[0]);
         V69=(base[0]);  
640          vs_top=sup;          vs_top=sup;
641          base[1]= (V69);          base[1]= (V48);
642          base[2]= VV[20];          base[2]= VV[16];
643          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
644          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
645          Lformat();          Lformat();
# Line 683  register object *base0; Line 648  register object *base0;
648  }  }
649  /*      local function CLOSURE  */  /*      local function CLOSURE  */
650    
651  static void LC20(base0)  static void LC13(base0)
652  register object *base0;  register object *base0;
653  {       register object *base=vs_base;  {       register object *base=vs_base;
654          register object *sup=base+VM19; VC19          register object *sup=base+VM12; VC12
655          vs_reserve(VM19);          vs_check;
656          {register object V70;          {register object V49;
657          vs_top[0]=Cnil;          vs_top[0]=Cnil;
658          {object *p=vs_top;          {object *p=vs_top;
659           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
660          V70=(base[0]);          V49=(base[0]);
661          vs_top=sup;          vs_top=sup;
662          (base0[1]->c.c_car)= (V70);          (base0[1]->c.c_car)= (V49);
663          {frame_ptr fr;          {frame_ptr fr;
664          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
665          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[18]);
666          vs_base=vs_top;          vs_base=vs_top;
667          unwind(fr,VV[22]);}          unwind(fr,VV[18]);}
668          }          }
669  }  }
670  /*      local function CLOSURE  */  /*      local function CLOSURE  */
671    
672  static void LC19(base0)  static void LC12(base0)
673  register object *base0;  register object *base0;
674  {       register object *base=vs_base;  {       register object *base=vs_base;
675          register object *sup=base+VM20; VC20          register object *sup=base+VM13; VC13
676          vs_reserve(VM20);          vs_check;
677          {register object V71;          {register object V50;
678          check_arg(1);          V50=(base[0]);
679          V71=(base[0]);          vs_top=sup;
680          vs_top=sup;          base[1]= (V50);
681          base[1]= (V71);          base[2]= VV[12];
682          base[2]= VV[16];          base[3]= CMPcar((base0[2]->c.c_car));
         base[3]= car((base0[2]->c.c_car));  
683          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
684          Lformat();          Lformat();
685          return;          return;
# Line 723  register object *base0; Line 687  register object *base0;
687  }  }
688  /*      local function CLOSURE  */  /*      local function CLOSURE  */
689    
690  static void LC18(base0)  static void LC11(base0)
691  register object *base0;  register object *base0;
692  {       register object *base=vs_base;  {       register object *base=vs_base;
693          register object *sup=base+VM21; VC21          register object *sup=base+VM14; VC14
694          vs_reserve(VM21);          vs_check;
695          {register object V72;          {register object V51;
696          vs_top[0]=Cnil;          vs_top[0]=Cnil;
697          {object *p=vs_top;          {object *p=vs_top;
698           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
699          V72=(base[0]);          V51=(base[0]);
700          vs_top=sup;          vs_top=sup;
701          (base0[1]->c.c_car)= (V72);          (base0[1]->c.c_car)= (V51);
702          {frame_ptr fr;          {frame_ptr fr;
703          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
704          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[15]);
705          vs_base=vs_top;          vs_base=vs_top;
706          unwind(fr,VV[19]);}          unwind(fr,VV[15]);}
707          }          }
708  }  }
709  /*      local function CLOSURE  */  /*      local function CLOSURE  */
710    
711  static void LC17(base0)  static void LC10(base0)
712  register object *base0;  register object *base0;
713  {       register object *base=vs_base;  {       register object *base=vs_base;
714          register object *sup=base+VM22; VC22          register object *sup=base+VM15; VC15
715          vs_reserve(VM22);          vs_check;
716          {register object V73;          {register object V52;
717          check_arg(1);          V52=(base[0]);
         V73=(base[0]);  
718          vs_top=sup;          vs_top=sup;
719          base[1]= (V73);          base[1]= (V52);
720          base[2]= VV[11];          base[2]= VV[7];
721          base[3]= (base0[2]->c.c_car);          base[3]= (base0[2]->c.c_car);
722          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
723          Lformat();          Lformat();
# Line 763  register object *base0; Line 726  register object *base0;
726  }  }
727  /*      local function CLOSURE  */  /*      local function CLOSURE  */
728    
729  static void LC16(base0)  static void LC9(base0)
730  register object *base0;  register object *base0;
731  {       register object *base=vs_base;  {       register object *base=vs_base;
732          register object *sup=base+VM23; VC23          register object *sup=base+VM16; VC16
733          vs_reserve(VM23);          vs_check;
734          {register object V74;          {register object V53;
735          vs_top[0]=Cnil;          vs_top[0]=Cnil;
736          {object *p=vs_top;          {object *p=vs_top;
737           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
738          V74=(base[0]);          V53=(base[0]);
739          vs_top=sup;          vs_top=sup;
740          (base0[1]->c.c_car)= (V74);          (base0[1]->c.c_car)= (V53);
741          {frame_ptr fr;          {frame_ptr fr;
742          fr=frs_sch((base0[0]->c.c_car));          fr=frs_sch((base0[0]->c.c_car));
743          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[11]);
744          vs_base=vs_top;          vs_base=vs_top;
745          unwind(fr,VV[15]);}          unwind(fr,VV[11]);}
746          }          }
747  }  }
748  static object  LnkTLI31(){return call_proc0(VV[31],(void **)(void *)&LnkLI31);} /* INSTALL-CLCS-SYMBOLS */  static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* ERROR */
749  static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ERROR */  static void LnkT24(){ call_or_link(VV[24],(void **)(void *)&Lnk24);} /* MAKE-RESTART */
750  static object  LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */  static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* REVERT-SYMBOL */
751  static object  LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[28],(void **)(void *)&LnkLI28,1,first,ap);va_end(ap);return V1;} /* REVERT-SYMBOL */  static void LnkT22(){ call_or_link(VV[22],(void **)(void *)&Lnk22);} /* INSTALL-SYMBOL */
 static object  LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INSTALL-SYMBOL */  
 static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* *MAKE-SPECIAL */  
752    
753  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
754  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3.4.1  
changed lines
  Added in v.1.3.4.1.4.1

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