/[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.6 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.7 by camm, Thu Sep 25 16:11:27 2003 UTC
# Line 95  static void L5() Line 95  static void L5()
95  T12:;  T12:;
96          {register object V6;          {register object V6;
97          register object V7;          register object V7;
98            register object V8;
99          V6= Cnil;          V6= Cnil;
100          V7= Cnil;          V7= Cnil;
101          {register object V8;          V8= Cnil;
102          V8= base[5];          {register object V9;
103          goto T22;          V9= base[5];
 T22:;  
         if(((V8))!=Cnil){  
         goto T23;}  
         goto T20;  
104          goto T23;          goto T23;
105  T23:;  T23:;
106          {register object V9;          if(((V9))!=Cnil){
107          V9= CMPcar((V8));          goto T24;}
108          {object V10= CMPcar((V9));          goto T21;
109          if((V10!= VV[51]))goto T29;          goto T24;
110          if(!(type_of(CMPcadr((V9)))==t_string)){  T24:;
111          goto T32;}          {register object V10;
112          V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],CMPcadr((V9)),VV[7]));          V10= CMPcar((V9));
113          goto T30;          {object V11= CMPcar((V10));
114          goto T32;          if((V11!= VV[51]))goto T30;
115  T32:;          if(!(type_of(CMPcadr((V10)))==t_string)){
116          V6= CMPcadr((V9));          goto T33;}
117            V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],CMPcadr((V10)),VV[7]));
118            goto T31;
119            goto T33;
120    T33:;
121            V6= CMPcadr((V10));
122            goto T31;
123    T31:;
124            goto T28;
125          goto T30;          goto T30;
126  T30:;  T30:;
127          goto T27;          if((V11!= VV[52]))goto T35;
128          goto T29;          V7= (V10);
129  T29:;          goto T28;
130          if((V10!= VV[52]))goto T34;          goto T35;
131          V7= CMPcadr((V9));  T35:;
132          goto T27;          if((V11!= VV[53]))goto T37;
133          goto T34;          V8= CMPcadr((V10));
134  T34:;          goto T28;
135          (void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}}          goto T37;
136          goto T27;  T37:;
137  T27:;          (void)((VFUN_NARGS=3,(*(LnkLI54))(VV[8],VV[9],(V10))));}}
138          V8= CMPcdr((V8));          goto T28;
139          goto T22;}  T28:;
140          goto T20;          V9= CMPcdr((V9));
141  T20:;          goto T23;}
142          V11= list(4,VV[12],base[2],base[3],base[4]);          goto T21;
143          {object V13;  T21:;
144          object V14= base[4];          if(((V7))==Cnil){
145          if(V14==Cnil){          goto T44;}
146          V12= Cnil;          V12= list(5,VV[12],base[2],base[3],base[4],(V7));
147          goto T39;}          goto T42;
148          base[6]=V13=MMcons(Cnil,Cnil);          goto T44;
149          goto T40;  T44:;
150  T40:;          V12= list(4,VV[12],base[2],base[3],base[4]);
151          {object V16;          goto T42;
152          base[8]= CMPcdr((V14->c.c_car));  T42:;
153            {object V14;
154            object V15= base[4];
155            if(V15==Cnil){
156            V13= Cnil;
157            goto T46;}
158            base[6]=V14=MMcons(Cnil,Cnil);
159            goto T47;
160    T47:;
161            {object V17;
162            base[8]= CMPcdr((V15->c.c_car));
163          base[9]= VV[17];          base[9]= VV[17];
164          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
165          Lgetf();          Lgetf();
166          vs_top=sup;          vs_top=sup;
167          V16= vs_base[0];          V17= vs_base[0];
168          if(((V16))==Cnil){          if(((V17))==Cnil){
169          goto T46;}{object V18;          goto T53;}{object V19;
170          base[8]= CMPcdr((V14->c.c_car));          base[8]= CMPcdr((V15->c.c_car));
171          base[9]= VV[18];          base[9]= VV[18];
172          vs_top=(vs_base=base+8)+2;          vs_top=(vs_base=base+8)+2;
173          Lgetf();          Lgetf();
174          vs_top=sup;          vs_top=sup;
175          V18= vs_base[0];          V19= vs_base[0];
176          if(V18==Cnil)goto T49;          if(V19==Cnil)goto T56;
177          V17= V18;          V18= V19;
178            goto T55;
179            goto T56;
180    T56:;}
181            V18= Ct;
182            goto T55;
183    T55:;
184            V20= make_cons((V17),V18);
185            (V14->c.c_cdr)= make_cons(/* INLINE-ARGS */V20,Cnil);
186          goto T48;          goto T48;
187          goto T49;          goto T53;
188  T49:;}  T53:;
189          V17= Ct;          (V14->c.c_cdr)= Cnil;}
190          goto T48;          goto T48;
191  T48:;  T48:;
192          V19= make_cons((V16),V17);          while(MMcdr(V14)!=Cnil)V14=MMcdr(V14);
193          (V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil);          if((V15=MMcdr(V15))==Cnil){
194          goto T41;          base[6]=base[6]->c.c_cdr;
195            V13= base[6];
196            goto T46;}
197            goto T47;}
198          goto T46;          goto T46;
199  T46:;  T46:;
200          (V13->c.c_cdr)= Cnil;}          V21= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V13)),VV[1]);
201          goto T41;          V22= list(4,VV[13],VV[14],/* INLINE-ARGS */V21,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil));
 T41:;  
         while(MMcdr(V13)!=Cnil)V13=MMcdr(V13);  
         if((V14=MMcdr(V14))==Cnil){  
         base[6]=base[6]->c.c_cdr;  
         V12= base[6];  
         goto T39;}  
         goto T40;}  
         goto T39;  
 T39:;  
         V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]);  
         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));  
202          if(((V6))==Cnil){          if(((V6))==Cnil){
203          goto T55;}          goto T62;}
204          V23= list(2,list(2,VV[24],base[2]),VV[7]);          V24= list(2,list(2,VV[24],base[2]),VV[7]);
205          V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28])));          V25= list(4,VV[22],VV[23],/* INLINE-ARGS */V24,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28])));
206          V22= make_cons(/* INLINE-ARGS */V24,Cnil);          V23= make_cons(/* INLINE-ARGS */V25,Cnil);
207          goto T53;          goto T60;
208          goto T55;          goto T62;
209  T55:;  T62:;
210          V22= Cnil;          V23= Cnil;
211          goto T53;          goto T60;
212  T53:;  T60:;
213          V25= list(2,VV[16],base[2]);          V26= list(2,VV[16],base[2]);
214          V26= make_cons(/* INLINE-ARGS */V25,Cnil);          V27= make_cons(/* INLINE-ARGS */V26,Cnil);
215          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],V12,/* INLINE-ARGS */V22,append(V23,/* INLINE-ARGS */V27));
216          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
217          return;}          return;}
218  }  }
# Line 216  TTL:; Line 231  TTL:;
231          base[3]= Cnil;          base[3]= Cnil;
232          base[4]= Cnil;          base[4]= Cnil;
233          base[5]= Cnil;          base[5]= Cnil;
234          symlispcall(VV[54],base+0,6);          symlispcall(VV[55],base+0,6);
235          return;          return;
236  }  }
237  /*      local entry for function progn 'compile2320     */  /*      local entry for function progn 'compile2320     */
# Line 227  static object LI7() Line 242  static object LI7()
242          goto TTL;          goto TTL;
243  TTL:;  TTL:;
244          vs_base=vs_top;          vs_base=vs_top;
245          (void) (*Lnk55)();          (void) (*Lnk56)();
246          vs_top=sup;          vs_top=sup;
247          {object V27 = Cnil;          {object V28 = Cnil;
248          VMR7(V27)}          VMR7(V28)}
249          base[0]=base[0];          base[0]=base[0];
250          return Cnil;          return Cnil;
251  }  }
# Line 247  TTL:; Line 262  TTL:;
262          Ladjoin();          Ladjoin();
263          vs_top=sup;          vs_top=sup;
264          (VV[1]->s.s_dbind)= vs_base[0];          (VV[1]->s.s_dbind)= vs_base[0];
265          {object V29 = Cnil;          {object V30 = Cnil;
266          VMR8(V29)}          VMR8(V30)}
267          base[0]=base[0];          base[0]=base[0];
268          return Cnil;          return Cnil;
269  }  }
# Line 260  static object LI9() Line 275  static object LI9()
275          goto TTL;          goto TTL;
276  TTL:;  TTL:;
277          (void)(sputprop(VV[2],VV[31],Cnil));          (void)(sputprop(VV[2],VV[31],Cnil));
278          {object V30 = Cnil;          {object V31 = Cnil;
279          VMR9(V30)}          VMR9(V31)}
280          return Cnil;          return Cnil;
281  }  }
282  /*      local entry for function progn 'compile2373     */  /*      local entry for function progn 'compile2373     */
# Line 271  static object LI10() Line 286  static object LI10()
286  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
287          goto TTL;          goto TTL;
288  TTL:;  TTL:;
289          {object V31 = Cnil;          {object V32 = Cnil;
290          VMR10(V31)}          VMR10(V32)}
291          return Cnil;          return Cnil;
292  }  }
293  /*      local entry for function progn 'compile2389     */  /*      local entry for function progn 'compile2389     */
# Line 287  TTL:; Line 302  TTL:;
302          Lfboundp();          Lfboundp();
303          vs_top=sup;          vs_top=sup;
304          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
305          goto T70;}          goto T77;}
306          base[0]=VV[32]->s.s_gfdef;          base[0]=VV[32]->s.s_gfdef;
307          {          {
308          object V32= VV[33];          object V33= VV[33];
309          if(V32==Cnil){          if(V33==Cnil){
310          goto T70;}          goto T77;}
311          goto T74;          goto T81;
312  T74:;  T81:;
313          base[1]= (V32->c.c_car);          base[1]= (V33->c.c_car);
314          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
315          (void) (*Lnk32)();          (void) (*Lnk32)();
316          vs_top=sup;          vs_top=sup;
317          if((V32=MMcdr(V32))==Cnil){          if((V33=MMcdr(V33))==Cnil){
318          goto T70;}          goto T77;}
319          goto T74;}          goto T81;}
320          goto T70;          goto T77;
321  T70:;  T77:;
322          {object V33 = Cnil;          {object V34 = Cnil;
323          VMR11(V33)}          VMR11(V34)}
324          base[0]=base[0];          base[0]=base[0];
325          return Cnil;          return Cnil;
326  }  }
327  /*      local entry for function CONDITIONP     */  /*      local entry for function CONDITIONP     */
328    
329  static object LI12(V35)  static object LI12(V36)
330    
331  object V35;  object V36;
332  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
333          goto TTL;          goto TTL;
334  TTL:;  TTL:;
335          base[0]= (V35);          base[0]= (V36);
336          base[1]= VV[2];          base[1]= VV[2];
337          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
338          (void) (*Lnk56)();          (void) (*Lnk57)();
339          vs_top=sup;          vs_top=sup;
340          {object V36 = vs_base[0];          {object V37 = vs_base[0];
341          VMR12(V36)}          VMR12(V37)}
342          base[0]=base[0];          base[0]=base[0];
343          return Cnil;          return Cnil;
344  }  }
# Line 337  TTL:; Line 352  TTL:;
352          base[0]= VV[23];          base[0]= VV[23];
353          base[1]= VV[34];          base[1]= VV[34];
354          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
355          (void) (*Lnk57)();          (void) (*Lnk58)();
356          vs_top=sup;          vs_top=sup;
357          {object V37 = Cnil;          {object V38 = Cnil;
358          VMR13(V37)}          VMR13(V38)}
359          base[0]=base[0];          base[0]=base[0];
360          return Cnil;          return Cnil;
361  }  }
362  /*      local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))  */  /*      local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))  */
363    
364  static object LI14(V42,V43,V44,V45)  static object LI14(V43,V44,V45,V46)
365    
366  object V42;object V43;register object V44;object V45;  object V43;object V44;register object V45;object V46;
367  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
368          goto TTL;          goto TTL;
369  TTL:;  TTL:;
370          if(((VV[26]->s.s_dbind))==Cnil){          if(((VV[26]->s.s_dbind))==Cnil){
371          goto T86;}          goto T93;}
372          base[0]= (V45);          base[0]= (V46);
373          base[1]= VV[35];          base[1]= VV[35];
374          base[4]= (V44);          base[4]= (V45);
375          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
376          (void) (*Lnk58)();          (void) (*Lnk59)();
377          vs_top=sup;          vs_top=sup;
378          base[3]= vs_base[0];          base[3]= vs_base[0];
379          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
380          (void) (*Lnk59)(Lclptr59);          (void) (*Lnk60)(Lclptr60);
381          vs_top=sup;          vs_top=sup;
382          base[2]= vs_base[0];          base[2]= vs_base[0];
383          base[3]= (*(LnkLI60))((V44));          base[3]= (*(LnkLI61))((V45));
384          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
385          Lformat();          Lformat();
386          vs_top=sup;          vs_top=sup;
387          {object V47 = vs_base[0];          {object V48 = vs_base[0];
388          VMR14(V47)}          VMR14(V48)}
389          goto T86;          goto T93;
390  T86:;  T93:;
391          base[0]= (V45);          base[0]= (V46);
392          base[1]= VV[36];          base[1]= VV[36];
393          base[3]= (V44);          base[3]= (V45);
394          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
395          Ltype_of();          Ltype_of();
396          vs_top=sup;          vs_top=sup;
# Line 383  T86:; Line 398  T86:;
398          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
399          Lformat();          Lformat();
400          vs_top=sup;          vs_top=sup;
401          {object V48 = vs_base[0];          {object V49 = vs_base[0];
402          VMR14(V48)}          VMR14(V49)}
403          base[0]=base[0];          base[0]=base[0];
404          return Cnil;          return Cnil;
405  }  }
# Line 400  TTL:; Line 415  TTL:;
415          base[2]= Cnil;          base[2]= Cnil;
416          base[3]= VV[38];          base[3]= VV[38];
417          base[4]= VV[39];          base[4]= VV[39];
418          V49= (VV[61]->s.s_gfdef);          V50= (VV[62]->s.s_gfdef);
419          base[5]= listA(3,VV[40],V49,VV[41]);          base[5]= listA(3,VV[40],V50,VV[41]);
420          base[6]= Cnil;          base[6]= Cnil;
421          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
422          (void) (*Lnk62)();          (void) (*Lnk63)();
423          vs_top=sup;          vs_top=sup;
424          {object V50 = Cnil;          {object V51 = Cnil;
425          VMR15(V50)}          VMR15(V51)}
426          base[0]=base[0];          base[0]=base[0];
427          return Cnil;          return Cnil;
428  }  }
# Line 422  TTL:; Line 437  TTL:;
437          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
438          (void) (*Lnk50)();          (void) (*Lnk50)();
439          vs_top=sup;          vs_top=sup;
440          {object V51 = Cnil;          {object V52 = Cnil;
441          VMR16(V51)}          VMR16(V52)}
442          base[0]=base[0];          base[0]=base[0];
443          return Cnil;          return Cnil;
444  }  }
# Line 435  static object LI17() Line 450  static object LI17()
450          goto TTL;          goto TTL;
451  TTL:;  TTL:;
452          if(!((VV[42])->s.s_dbind!=OBJNULL)){          if(!((VV[42])->s.s_dbind!=OBJNULL)){
453          goto T110;}          goto T117;}
454          goto T109;          goto T116;
455          goto T110;          goto T117;
456  T110:;  T117:;
457          base[0]= VV[2];          base[0]= VV[2];
458          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
459          (void) (*Lnk63)();          (void) (*Lnk64)();
460          vs_top=sup;          vs_top=sup;
461          (VV[42]->s.s_dbind)= vs_base[0];          (VV[42]->s.s_dbind)= vs_base[0];
462          goto T109;          goto T116;
463  T109:;  T116:;
464          {object V52 = Cnil;          {object V53 = Cnil;
465          VMR17(V52)}          VMR17(V53)}
466          base[0]=base[0];          base[0]=base[0];
467          return Cnil;          return Cnil;
468  }  }
# Line 458  static object LI18() Line 473  static object LI18()
473  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
474          goto TTL;          goto TTL;
475  TTL:;  TTL:;
476          {object V53 = Cnil;          {object V54 = Cnil;
477          VMR18(V53)}          VMR18(V54)}
478          return Cnil;          return Cnil;
479  }  }
480  /*      local entry for function CONDITION-CLASS-P      */  /*      local entry for function CONDITION-CLASS-P      */
481    
482  static object LI19(V55)  static object LI19(V56)
483    
484  register object V55;  register object V56;
485  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
486          goto TTL;          goto TTL;
487  TTL:;  TTL:;
488          if(!(type_of((V55))==t_symbol)){          if(!(type_of((V56))==t_symbol)){
489          goto T115;}          goto T122;}
490          base[0]= (V55);          base[0]= (V56);
491          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
492          (void) (*Lnk63)();          (void) (*Lnk64)();
493          vs_top=sup;          vs_top=sup;
494          V55= vs_base[0];          V56= vs_base[0];
495          goto T115;          goto T122;
496  T115:;  T122:;
497          base[0]= (V55);          base[0]= (V56);
498          base[1]= VV[29];          base[1]= VV[29];
499          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
500          (void) (*Lnk56)();          (void) (*Lnk57)();
501          vs_top=sup;          vs_top=sup;
502          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
503          goto T120;}          goto T127;}
504          {object V56 = Cnil;          {object V57 = Cnil;
505          VMR19(V56)}          VMR19(V57)}
506          goto T120;          goto T127;
507  T120:;{object V58;  T127:;{object V59;
508          V58= (VV[42]->s.s_dbind);          V59= (VV[42]->s.s_dbind);
509          base[0]= (V55);          base[0]= (V56);
510          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
511          (void) (*Lnk64)(Lclptr64);          (void) (*Lnk65)(Lclptr65);
512          vs_top=sup;          vs_top=sup;
513          V59= vs_base[0];          V60= vs_base[0];
514          {register object x= V58,V57= V59;          {register object x= V59,V58= V60;
515          while(V57!=Cnil)          while(V58!=Cnil)
516          if(eql(x,V57->c.c_car)){          if(eql(x,V58->c.c_car)){
517          {object V60 = V57;          {object V61 = V58;
518          VMR19(V60)}          VMR19(V61)}
519          }else V57=V57->c.c_cdr;          }else V58=V58->c.c_cdr;
520          {object V61 = Cnil;          {object V62 = Cnil;
521          VMR19(V61)}}}          VMR19(V62)}}}
522          base[0]=base[0];          base[0]=base[0];
523          return Cnil;          return Cnil;
524  }  }
# Line 513  static void L20() Line 528  static void L20()
528  {register object *base=vs_base;  {register object *base=vs_base;
529          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
530          vs_check;          vs_check;
531          {register object V62;          {register object V63;
532          object V63;          object V64;
533          V62=(base[0]);          V63=(base[0]);
534          vs_base=vs_base+1;          vs_base=vs_base+1;
535          vs_top[0]=Cnil;          vs_top[0]=Cnil;
536          {object *p=vs_top;          {object *p=vs_top;
537           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
538          V63=(base[1]);          V64=(base[1]);
539          vs_top=sup;          vs_top=sup;
540          if(((*(LnkLI65))((V62)))!=Cnil){          if(((*(LnkLI66))((V63)))!=Cnil){
541          goto T126;}          goto T133;}
542          base[2]= VV[43];          base[2]= VV[43];
543          base[3]= VV[44];          base[3]= VV[44];
544          base[4]= (V62);          base[4]= (V63);
545          base[5]= VV[45];          base[5]= VV[45];
546          base[6]= VV[46];          base[6]= VV[46];
547          base[7]= VV[47];          base[7]= VV[47];
548          base[8]= VV[48];          base[8]= VV[48];
549          base[9]= VV[49];          base[9]= VV[49];
550          base[10]= make_cons((V62),Cnil);          base[10]= make_cons((V63),Cnil);
551          vs_top=(vs_base=base+2)+9;          vs_top=(vs_base=base+2)+9;
552          (void) (*Lnk66)();          (void) (*Lnk67)();
553          vs_top=sup;          vs_top=sup;
554          goto T126;          goto T133;
555  T126:;  T133:;
556          base[2]=VV[67]->s.s_gfdef;          base[2]=VV[68]->s.s_gfdef;
557          base[3]= (V62);          base[3]= (V63);
558          {object V64;          {object V65;
559          V64= (V63);          V65= (V64);
560           vs_top=base+4;           vs_top=base+4;
561           while(V64!=Cnil)           while(V65!=Cnil)
562           {vs_push((V64)->c.c_car);V64=(V64)->c.c_cdr;}           {vs_push((V65)->c.c_car);V65=(V65)->c.c_cdr;}
563          vs_base=base+3;}          vs_base=base+3;}
564          (void) (*Lnk67)(Lclptr67);          (void) (*Lnk68)(Lclptr68);
565          return;          return;
566          }          }
567  }  }
568  static void LnkT67(ptr) object *ptr;{ call_or_link_closure(VV[67],(void **)(void *)&Lnk67,(void **)(void *)&Lclptr67);} /* MAKE-INSTANCE */  static void LnkT68(ptr) object *ptr;{ call_or_link_closure(VV[68],(void **)(void *)&Lnk68,(void **)(void *)&Lclptr68);} /* MAKE-INSTANCE */
569  static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* ERROR */  static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* ERROR */
570  static object  LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* CONDITION-CLASS-P */  static object  LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* CONDITION-CLASS-P */
571  static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-PRECEDENCE-LIST */  static void LnkT65(ptr) object *ptr;{ call_or_link_closure(VV[65],(void **)(void *)&Lnk65,(void **)(void *)&Lclptr65);} /* CLASS-PRECEDENCE-LIST */
572  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* FIND-CLASS */  static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* FIND-CLASS */
573  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* LOAD-DEFMETHOD */  static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* LOAD-DEFMETHOD */
574  static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */  static object  LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */
575  static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-NAME */  static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* CLASS-NAME */
576  static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* CLASS-OF */  static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* CLASS-OF */
577  static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */  static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* PROCLAIM-DEFGENERIC */
578  static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */  static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* TYPEP */
579  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 */
580  static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2304 */  static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* Defclass CONDITION2304 */
581  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  LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)(void *)&LnkLI54,first,ap);va_end(ap);return V1;} /* CERROR */
582  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 */
583  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 */
584    

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

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