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

Diff of /gcl/clcs/clcs_conditions.c

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

revision 1.5 by camm, Mon Sep 22 22:03:47 2003 UTC revision 1.6 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_conditions.h"  #include "clcs_conditions.h"
4  void init_clcs_conditions(){do_init(VV);}  void init_clcs_conditions(){do_init(VV);}
5  /*      local entry for function progn 'compile2184     */  /*      local entry for function progn 'compile2186     */
6    
7  static object LI1()  static object LI1()
8    
# Line 25  T1:; Line 25  T1:;
25          base[0]=base[0];          base[0]=base[0];
26          return Cnil;          return Cnil;
27  }  }
28  /*      local entry for function progn 'compile2200     */  /*      local entry for function progn 'compile2202     */
29    
30  static object LI2()  static object LI2()
31    
# Line 41  TTL:; Line 41  TTL:;
41          base[0]=base[0];          base[0]=base[0];
42          return Cnil;          return Cnil;
43  }  }
44  /*      local entry for function progn 'compile2212     */  /*      local entry for function progn 'compile2214     */
45    
46  static object LI3()  static object LI3()
47    
48  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
49          goto TTL;          goto TTL;
50  TTL:;  TTL:;
51          base[0]= VV[1];          if(!((VV[1])->s.s_dbind!=OBJNULL)){
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
52          goto T8;}          goto T8;}
53          goto T7;          goto T7;
54          goto T8;          goto T8;
55  T8:;  T8:;
56          setq(VV[1],Cnil);          (VV[1]->s.s_dbind)= Cnil;
57          goto T7;          goto T7;
58  T7:;  T7:;
59          {object V3 = Cnil;          {object V3 = Cnil;
60          VMR3(V3)}          VMR3(V3)}
         base[0]=base[0];  
61          return Cnil;          return Cnil;
62  }  }
63  /*      local entry for function progn 'compile2225     */  /*      local entry for function progn 'compile2227     */
64    
65  static object LI4()  static object LI4()
66    
# Line 81  TTL:; Line 76  TTL:;
76  static void L5()  static void L5()
77  {register object *base=vs_base;  {register object *base=vs_base;
78          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
79          vs_reserve(VM5);          vs_check;
         check_arg(2);  
80          vs_top=sup;          vs_top=sup;
81          {object V5=base[0]->c.c_cdr;          {object V5=base[0]->c.c_cdr;
         if(endp(V5))invalid_macro_call();  
82          base[2]= (V5->c.c_car);          base[2]= (V5->c.c_car);
83          V5=V5->c.c_cdr;          V5=V5->c.c_cdr;
         if(endp(V5))invalid_macro_call();  
84          base[3]= (V5->c.c_car);          base[3]= (V5->c.c_car);
85          V5=V5->c.c_cdr;          V5=V5->c.c_cdr;
         if(endp(V5))invalid_macro_call();  
86          base[4]= (V5->c.c_car);          base[4]= (V5->c.c_car);
87          V5=V5->c.c_cdr;          V5=V5->c.c_cdr;
88          base[5]= V5;}          base[5]= V5;}
89          if((base[3])!=Cnil){          if((base[3])!=Cnil){
90          goto T13;}          goto T12;}
91          if((base[2])==(VV[2])){          if((base[2])==(VV[2])){
92          goto T13;}          goto T12;}
93          base[3]= make_cons(VV[2],Cnil);          base[3]= make_cons(VV[2],Cnil);
94          goto T13;          goto T12;
95  T13:;  T12:;
96          {register object V6;          {register object V6;
97          register object V7;          register object V7;
98          V6= Cnil;          V6= Cnil;
99          V7= Cnil;          V7= Cnil;
100          {register object V8;          {register object V8;
101          V8= base[5];          V8= base[5];
102            goto T22;
103    T22:;
104            if(((V8))!=Cnil){
105            goto T23;}
106            goto T20;
107          goto T23;          goto T23;
108  T23:;  T23:;
         if(((V8))!=Cnil){  
         goto T24;}  
         goto T21;  
         goto T24;  
 T24:;  
109          {register object V9;          {register object V9;
110          V9= car((V8));          V9= CMPcar((V8));
111          {object V10= car((V9));          {object V10= CMPcar((V9));
112          if((V10!= VV[51]))goto T30;          if((V10!= VV[51]))goto T29;
113          if(!(type_of(cadr((V9)))==t_string)){          if(!(type_of(CMPcadr((V9)))==t_string)){
114          goto T33;}          goto T32;}
115          V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],cadr((V9)),VV[7]));          V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],CMPcadr((V9)),VV[7]));
116          goto T31;          goto T30;
117          goto T33;          goto T32;
118  T33:;  T32:;
119          V6= cadr((V9));          V6= CMPcadr((V9));
         goto T31;  
 T31:;  
         goto T28;  
120          goto T30;          goto T30;
121  T30:;  T30:;
122          if((V10!= VV[52]))goto T35;          goto T27;
123          V7= cadr((V9));          goto T29;
124          goto T28;  T29:;
125          goto T35;          if((V10!= VV[52]))goto T34;
126  T35:;          V7= CMPcadr((V9));
127            goto T27;
128            goto T34;
129    T34:;
130          (void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}}          (void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}}
131          goto T28;          goto T27;
132  T28:;  T27:;
133          V8= cdr((V8));          V8= CMPcdr((V8));
134          goto T23;}          goto T22;}
135          goto T21;          goto T20;
136  T21:;  T20:;
137          V11= list(4,VV[12],base[2],base[3],base[4]);          V11= list(4,VV[12],base[2],base[3],base[4]);
138          {object V13;          {object V13;
139          object V14= base[4];          object V14= base[4];
140          if(endp(V14)){          if(V14==Cnil){
141          V12= Cnil;          V12= Cnil;
142          goto T40;}          goto T39;}
143          base[6]=V13=MMcons(Cnil,Cnil);          base[6]=V13=MMcons(Cnil,Cnil);
144          goto T41;          goto T40;
145  T41:;  T40:;
146          {object V16;          {object V16;
147          base[8]= cdr((V14->c.c_car));          base[8]= CMPcdr((V14->c.c_car));
148          base[9]= VV[17];          base[9]= VV[17];
149          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
150          Lgetf();          Lgetf();
151          vs_top=sup;          vs_top=sup;
152          V16= vs_base[0];          V16= vs_base[0];
153          if(((V16))==Cnil){          if(((V16))==Cnil){
154          goto T47;}{object V18;          goto T46;}{object V18;
155          base[8]= cdr((V14->c.c_car));          base[8]= CMPcdr((V14->c.c_car));
156          base[9]= VV[18];          base[9]= VV[18];
157          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
158          Lgetf();          Lgetf();
159          vs_top=sup;          vs_top=sup;
160          V18= vs_base[0];          V18= vs_base[0];
161          if(V18==Cnil)goto T50;          if(V18==Cnil)goto T49;
162          V17= V18;          V17= V18;
163            goto T48;
164          goto T49;          goto T49;
165          goto T50;  T49:;}
 T50:;}  
166          V17= Ct;          V17= Ct;
167          goto T49;          goto T48;
168  T49:;  T48:;
169          V19= make_cons((V16),V17);          V19= make_cons((V16),V17);
170          (V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil);          (V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil);
171          goto T42;          goto T41;
172          goto T47;          goto T46;
173  T47:;  T46:;
174          (V13->c.c_cdr)= Cnil;}          (V13->c.c_cdr)= Cnil;}
175          goto T42;          goto T41;
176  T42:;  T41:;
177          {object cdr_V13=MMcdr(V13);while(!endp(cdr_V13)) {cdr_V13=MMcdr(cdr_V13);V13=MMcdr(V13);}}          while(MMcdr(V13)!=Cnil)V13=MMcdr(V13);
178          V14=MMcdr(V14);          if((V14=MMcdr(V14))==Cnil){
         if(endp(V14)){  
179          base[6]=base[6]->c.c_cdr;          base[6]=base[6]->c.c_cdr;
180          V12= base[6];          V12= base[6];
181            goto T39;}
182          goto T40;}          goto T40;}
183          goto T41;}          goto T39;
184          goto T40;  T39:;
 T40:;  
185          V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]);          V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]);
186          V21= list(4,VV[13],VV[14],/* INLINE-ARGS */V20,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil));          V21= list(4,VV[13],VV[14],/* INLINE-ARGS */V20,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil));
187          if(((V6))==Cnil){          if(((V6))==Cnil){
188          goto T56;}          goto T55;}
189          V23= list(2,list(2,VV[24],base[2]),VV[7]);          V23= list(2,list(2,VV[24],base[2]),VV[7]);
190          V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28])));          V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28])));
191          V22= make_cons(/* INLINE-ARGS */V24,Cnil);          V22= make_cons(/* INLINE-ARGS */V24,Cnil);
192          goto T54;          goto T53;
193          goto T56;          goto T55;
194  T56:;  T55:;
195          V22= Cnil;          V22= Cnil;
196          goto T54;          goto T53;
197  T54:;  T53:;
198          V25= list(2,VV[16],base[2]);          V25= list(2,VV[16],base[2]);
199          V26= make_cons(/* INLINE-ARGS */V25,Cnil);          V26= make_cons(/* INLINE-ARGS */V25,Cnil);
200          base[6]= listA(5,VV[10],VV[11],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26));          base[6]= listA(5,VV[10],VV[11],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26));
201          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
202          return;}          return;}
203  }  }
204  /*      function definition for Defclass CONDITION2302  */  /*      function definition for Defclass CONDITION2304  */
205    
206  static void L6()  static void L6()
207  {register object *base=vs_base;  {register object *base=vs_base;
208          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
209          vs_reserve(VM6);          vs_check;
         check_arg(0);  
210          vs_top=sup;          vs_top=sup;
211          goto TTL;          goto TTL;
212  TTL:;  TTL:;
# Line 230  TTL:; Line 219  TTL:;
219          symlispcall(VV[54],base+0,6);          symlispcall(VV[54],base+0,6);
220          return;          return;
221  }  }
222  /*      local entry for function progn 'compile2318     */  /*      local entry for function progn 'compile2320     */
223    
224  static object LI7()  static object LI7()
225    
# Line 245  TTL:; Line 234  TTL:;
234          base[0]=base[0];          base[0]=base[0];
235          return Cnil;          return Cnil;
236  }  }
237  /*      local entry for function progn 'compile2335     */  /*      local entry for function progn 'compile2337     */
238    
239  static object LI8()  static object LI8()
240    
# Line 253  static object LI8() Line 242  static object LI8()
242          goto TTL;          goto TTL;
243  TTL:;  TTL:;
244          base[0]= VV[30];          base[0]= VV[30];
245          base[1]= symbol_value(VV[1]);          base[1]= (VV[1]->s.s_dbind);
246          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
247          Ladjoin();          Ladjoin();
248          vs_top=sup;          vs_top=sup;
249          setq(VV[1],vs_base[0]);          (VV[1]->s.s_dbind)= vs_base[0];
250          {object V29 = Cnil;          {object V29 = Cnil;
251          VMR8(V29)}          VMR8(V29)}
252          base[0]=base[0];          base[0]=base[0];
253          return Cnil;          return Cnil;
254  }  }
255  /*      local entry for function progn 'compile2359     */  /*      local entry for function progn 'compile2361     */
256    
257  static object LI9()  static object LI9()
258    
# Line 275  TTL:; Line 264  TTL:;
264          VMR9(V30)}          VMR9(V30)}
265          return Cnil;          return Cnil;
266  }  }
267  /*      local entry for function progn 'compile2371     */  /*      local entry for function progn 'compile2373     */
268    
269  static object LI10()  static object LI10()
270    
# Line 286  TTL:; Line 275  TTL:;
275          VMR10(V31)}          VMR10(V31)}
276          return Cnil;          return Cnil;
277  }  }
278  /*      local entry for function progn 'compile2387     */  /*      local entry for function progn 'compile2389     */
279    
280  static object LI11()  static object LI11()
281    
# Line 298  TTL:; Line 287  TTL:;
287          Lfboundp();          Lfboundp();
288          vs_top=sup;          vs_top=sup;
289          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
290          goto T71;}          goto T70;}
291          base[0]=symbol_function(VV[32]);          base[0]=VV[32]->s.s_gfdef;
292          {          {
293          object V32= VV[33];          object V32= VV[33];
294          if(endp(V32)){          if(V32==Cnil){
295          goto T71;}          goto T70;}
296          goto T75;          goto T74;
297  T75:;  T74:;
298          base[1]= (V32->c.c_car);          base[1]= (V32->c.c_car);
299          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
300          (void) (*Lnk32)();          (void) (*Lnk32)();
301          vs_top=sup;          vs_top=sup;
302          V32=MMcdr(V32);          if((V32=MMcdr(V32))==Cnil){
303          if(endp(V32)){          goto T70;}
304          goto T71;}          goto T74;}
305          goto T75;}          goto T70;
306          goto T71;  T70:;
 T71:;  
307          {object V33 = Cnil;          {object V33 = Cnil;
308          VMR11(V33)}          VMR11(V33)}
309          base[0]=base[0];          base[0]=base[0];
# Line 339  TTL:; Line 327  TTL:;
327          base[0]=base[0];          base[0]=base[0];
328          return Cnil;          return Cnil;
329  }  }
330  /*      local entry for function progn 'compile2411     */  /*      local entry for function progn 'compile2413     */
331    
332  static object LI13()  static object LI13()
333    
# Line 364  object V42;object V43;register object V4 Line 352  object V42;object V43;register object V4
352  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
353          goto TTL;          goto TTL;
354  TTL:;  TTL:;
355          if((symbol_value(VV[26]))==Cnil){          if(((VV[26]->s.s_dbind))==Cnil){
356          goto T87;}          goto T86;}
357          base[0]= (V45);          base[0]= (V45);
358          base[1]= VV[35];          base[1]= VV[35];
359          base[4]= (V44);          base[4]= (V44);
# Line 383  TTL:; Line 371  TTL:;
371          vs_top=sup;          vs_top=sup;
372          {object V47 = vs_base[0];          {object V47 = vs_base[0];
373          VMR14(V47)}          VMR14(V47)}
374          goto T87;          goto T86;
375  T87:;  T86:;
376          base[0]= (V45);          base[0]= (V45);
377          base[1]= VV[36];          base[1]= VV[36];
378          base[3]= (V44);          base[3]= (V44);
# Line 400  T87:; Line 388  T87:;
388          base[0]=base[0];          base[0]=base[0];
389          return Cnil;          return Cnil;
390  }  }
391  /*      local entry for function progn 'compile2480     */  /*      local entry for function progn 'compile2482     */
392    
393  static object LI15()  static object LI15()
394    
# Line 412  TTL:; Line 400  TTL:;
400          base[2]= Cnil;          base[2]= Cnil;
401          base[3]= VV[38];          base[3]= VV[38];
402          base[4]= VV[39];          base[4]= VV[39];
403          V49= symbol_function(VV[61]);          V49= (VV[61]->s.s_gfdef);
404          base[5]= listA(3,VV[40],V49,VV[41]);          base[5]= listA(3,VV[40],V49,VV[41]);
405          base[6]= Cnil;          base[6]= Cnil;
406          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
# Line 423  TTL:; Line 411  TTL:;
411          base[0]=base[0];          base[0]=base[0];
412          return Cnil;          return Cnil;
413  }  }
414  /*      local entry for function progn 'compile2492     */  /*      local entry for function progn 'compile2494     */
415    
416  static object LI16()  static object LI16()
417    
# Line 439  TTL:; Line 427  TTL:;
427          base[0]=base[0];          base[0]=base[0];
428          return Cnil;          return Cnil;
429  }  }
430  /*      local entry for function progn 'compile2504     */  /*      local entry for function progn 'compile2506     */
431    
432  static object LI17()  static object LI17()
433    
434  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
435          goto TTL;          goto TTL;
436  TTL:;  TTL:;
437          base[0]= VV[42];          if(!((VV[42])->s.s_dbind!=OBJNULL)){
438          vs_top=(vs_base=base+0)+1;          goto T110;}
439          Lboundp();          goto T109;
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T111;}  
440          goto T110;          goto T110;
441          goto T111;  T110:;
 T111:;  
442          base[0]= VV[2];          base[0]= VV[2];
443          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
444          (void) (*Lnk63)();          (void) (*Lnk63)();
445          vs_top=sup;          vs_top=sup;
446          setq(VV[42],vs_base[0]);          (VV[42]->s.s_dbind)= vs_base[0];
447          goto T110;          goto T109;
448  T110:;  T109:;
449          {object V52 = Cnil;          {object V52 = Cnil;
450          VMR17(V52)}          VMR17(V52)}
451          base[0]=base[0];          base[0]=base[0];
452          return Cnil;          return Cnil;
453  }  }
454  /*      local entry for function progn 'compile2517     */  /*      local entry for function progn 'compile2519     */
455    
456  static object LI18()  static object LI18()
457    
# Line 487  register object V55; Line 471  register object V55;
471          goto TTL;          goto TTL;
472  TTL:;  TTL:;
473          if(!(type_of((V55))==t_symbol)){          if(!(type_of((V55))==t_symbol)){
474          goto T117;}          goto T115;}
475          base[0]= (V55);          base[0]= (V55);
476          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
477          (void) (*Lnk63)();          (void) (*Lnk63)();
478          vs_top=sup;          vs_top=sup;
479          V55= vs_base[0];          V55= vs_base[0];
480          goto T117;          goto T115;
481  T117:;  T115:;
482          base[0]= (V55);          base[0]= (V55);
483          base[1]= VV[29];          base[1]= VV[29];
484          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
485          (void) (*Lnk56)();          (void) (*Lnk56)();
486          vs_top=sup;          vs_top=sup;
487          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
488          goto T122;}          goto T120;}
489          {object V56 = Cnil;          {object V56 = Cnil;
490          VMR19(V56)}          VMR19(V56)}
491          goto T122;          goto T120;
492  T122:;{object V58;  T120:;{object V58;
493          V58= symbol_value(VV[42]);          V58= (VV[42]->s.s_dbind);
494          base[0]= (V55);          base[0]= (V55);
495          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
496          (void) (*Lnk64)(Lclptr64);          (void) (*Lnk64)(Lclptr64);
497          vs_top=sup;          vs_top=sup;
498          V59= vs_base[0];          V59= vs_base[0];
499          {register object x= V58,V57= V59;          {register object x= V58,V57= V59;
500          while(!endp(V57))          while(V57!=Cnil)
501          if(eql(x,V57->c.c_car)){          if(eql(x,V57->c.c_car)){
502          {object V60 = V57;          {object V60 = V57;
503          VMR19(V60)}          VMR19(V60)}
# Line 528  T122:;{object V58; Line 512  T122:;{object V58;
512  static void L20()  static void L20()
513  {register object *base=vs_base;  {register object *base=vs_base;
514          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
515          vs_reserve(VM20);          vs_check;
516          {register object V62;          {register object V62;
517          object V63;          object V63;
         if(vs_top-vs_base<1) too_few_arguments();  
518          V62=(base[0]);          V62=(base[0]);
519          vs_base=vs_base+1;          vs_base=vs_base+1;
520          vs_top[0]=Cnil;          vs_top[0]=Cnil;
# Line 540  static void L20() Line 523  static void L20()
523          V63=(base[1]);          V63=(base[1]);
524          vs_top=sup;          vs_top=sup;
525          if(((*(LnkLI65))((V62)))!=Cnil){          if(((*(LnkLI65))((V62)))!=Cnil){
526          goto T128;}          goto T126;}
527          base[2]= VV[43];          base[2]= VV[43];
528          base[3]= VV[44];          base[3]= VV[44];
529          base[4]= (V62);          base[4]= (V62);
# Line 553  static void L20() Line 536  static void L20()
536          vs_top=(vs_base=base+2)+9;          vs_top=(vs_base=base+2)+9;
537          (void) (*Lnk66)();          (void) (*Lnk66)();
538          vs_top=sup;          vs_top=sup;
539          goto T128;          goto T126;
540  T128:;  T126:;
541          base[2]=symbol_function(VV[67]);          base[2]=VV[67]->s.s_gfdef;
542          base[3]= (V62);          base[3]= (V62);
543          {object V64;          {object V64;
544          V64= (V63);          V64= (V63);
545           vs_top=base+4;           vs_top=base+4;
546           while(!endp(V64))           while(V64!=Cnil)
547           {vs_push(car(V64));V64=cdr(V64);}           {vs_push((V64)->c.c_car);V64=(V64)->c.c_cdr;}
548          vs_base=base+3;}          vs_base=base+3;}
549          (void) (*Lnk67)(Lclptr67);          (void) (*Lnk67)(Lclptr67);
550          return;          return;
# Line 579  static void LnkT58(){ call_or_link(VV[58 Line 562  static void LnkT58(){ call_or_link(VV[58
562  static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */  static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */
563  static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */  static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */
564  static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */  static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */
565  static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2302 */  static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2304 */
566  static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CERROR */  static object  LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CERROR */
567  static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */  static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */
568  static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */  static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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