129 |
goto T22; |
goto T22; |
130 |
goto T29; |
goto T29; |
131 |
T29:; |
T29:; |
132 |
base[6]= VV[7]; |
(void)((VFUN_NARGS=3,(*(LnkLI53))(VV[7],VV[8],(V9))));}} |
|
base[7]= VV[8]; |
|
|
base[8]= (V9); |
|
|
vs_top=(vs_base=base+6)+3; |
|
|
(void) (*Lnk53)(); |
|
|
vs_top=sup;}} |
|
133 |
goto T22; |
goto T22; |
134 |
T22:; |
T22:; |
135 |
V8= cdr((V8)); |
V8= cdr((V8)); |
141 |
object V14= base[4]; |
object V14= base[4]; |
142 |
if(endp(V14)){ |
if(endp(V14)){ |
143 |
V12= Cnil; |
V12= Cnil; |
144 |
goto T37;} |
goto T34;} |
145 |
base[6]=V13=MMcons(Cnil,Cnil); |
base[6]=V13=MMcons(Cnil,Cnil); |
146 |
goto T38; |
goto T35; |
147 |
T38:; |
T35:; |
148 |
{object V16; |
{object V16; |
149 |
base[8]= cdr((V14->c.c_car)); |
base[8]= cdr((V14->c.c_car)); |
150 |
base[9]= VV[16]; |
base[9]= VV[16]; |
153 |
vs_top=sup; |
vs_top=sup; |
154 |
V16= vs_base[0]; |
V16= vs_base[0]; |
155 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
156 |
goto T44;}{object V18; |
goto T41;}{object V18; |
157 |
base[8]= cdr((V14->c.c_car)); |
base[8]= cdr((V14->c.c_car)); |
158 |
base[9]= VV[17]; |
base[9]= VV[17]; |
159 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
160 |
Lgetf(); |
Lgetf(); |
161 |
vs_top=sup; |
vs_top=sup; |
162 |
V18= vs_base[0]; |
V18= vs_base[0]; |
163 |
if(V18==Cnil)goto T47; |
if(V18==Cnil)goto T44; |
164 |
V17= V18; |
V17= V18; |
165 |
goto T46; |
goto T43; |
166 |
goto T47; |
goto T44; |
167 |
T47:;} |
T44:;} |
168 |
V17= Ct; |
V17= Ct; |
169 |
goto T46; |
goto T43; |
170 |
T46:; |
T43:; |
171 |
V19= make_cons((V16),V17); |
V19= make_cons((V16),V17); |
172 |
(V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil); |
(V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil); |
173 |
goto T39; |
goto T36; |
174 |
goto T44; |
goto T41; |
175 |
T44:; |
T41:; |
176 |
(V13->c.c_cdr)= Cnil;} |
(V13->c.c_cdr)= Cnil;} |
177 |
goto T39; |
goto T36; |
178 |
T39:; |
T36:; |
179 |
{object cdr_V13=MMcdr(V13);while(!endp(cdr_V13)) {cdr_V13=MMcdr(cdr_V13);V13=MMcdr(V13);}} |
{object cdr_V13=MMcdr(V13);while(!endp(cdr_V13)) {cdr_V13=MMcdr(cdr_V13);V13=MMcdr(V13);}} |
180 |
V14=MMcdr(V14); |
V14=MMcdr(V14); |
181 |
if(endp(V14)){ |
if(endp(V14)){ |
182 |
base[6]=base[6]->c.c_cdr; |
base[6]=base[6]->c.c_cdr; |
183 |
V12= base[6]; |
V12= base[6]; |
184 |
goto T37;} |
goto T34;} |
185 |
goto T38;} |
goto T35;} |
186 |
goto T37; |
goto T34; |
187 |
T37:; |
T34:; |
188 |
V20= list(3,VV[14],list(2,VV[15],listA(3,base[2],base[3],V12)),VV[1]); |
V20= list(3,VV[14],list(2,VV[15],listA(3,base[2],base[3],V12)),VV[1]); |
189 |
V21= list(4,VV[12],VV[13],/* INLINE-ARGS */V20,list(3,VV[18],list(3,VV[19],list(2,VV[15],base[2]),VV[20]),Cnil)); |
V21= list(4,VV[12],VV[13],/* INLINE-ARGS */V20,list(3,VV[18],list(3,VV[19],list(2,VV[15],base[2]),VV[20]),Cnil)); |
190 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
191 |
goto T53;} |
goto T50;} |
192 |
V23= list(2,list(2,VV[23],base[2]),VV[6]); |
V23= list(2,list(2,VV[23],base[2]),VV[6]); |
193 |
V24= list(4,VV[21],VV[22],/* INLINE-ARGS */V23,list(4,VV[24],VV[25],VV[26],make_cons((V6),VV[27]))); |
V24= list(4,VV[21],VV[22],/* INLINE-ARGS */V23,list(4,VV[24],VV[25],VV[26],make_cons((V6),VV[27]))); |
194 |
V22= make_cons(/* INLINE-ARGS */V24,Cnil); |
V22= make_cons(/* INLINE-ARGS */V24,Cnil); |
195 |
goto T51; |
goto T48; |
196 |
goto T53; |
goto T50; |
197 |
T53:; |
T50:; |
198 |
V22= Cnil; |
V22= Cnil; |
199 |
goto T51; |
goto T48; |
200 |
T51:; |
T48:; |
201 |
V25= list(2,VV[15],base[2]); |
V25= list(2,VV[15],base[2]); |
202 |
V26= make_cons(/* INLINE-ARGS */V25,Cnil); |
V26= make_cons(/* INLINE-ARGS */V25,Cnil); |
203 |
base[6]= listA(5,VV[9],VV[10],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26)); |
base[6]= listA(5,VV[9],VV[10],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26)); |
291 |
Lfboundp(); |
Lfboundp(); |
292 |
vs_top=sup; |
vs_top=sup; |
293 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
294 |
goto T68;} |
goto T65;} |
295 |
base[0]=symbol_function(VV[32]); |
base[0]=symbol_function(VV[32]); |
296 |
{ |
{ |
297 |
object V32= VV[33]; |
object V32= VV[33]; |
298 |
if(endp(V32)){ |
if(endp(V32)){ |
299 |
goto T68;} |
goto T65;} |
300 |
goto T72; |
goto T69; |
301 |
T72:; |
T69:; |
302 |
base[1]= (V32->c.c_car); |
base[1]= (V32->c.c_car); |
303 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
304 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
305 |
vs_top=sup; |
vs_top=sup; |
306 |
V32=MMcdr(V32); |
V32=MMcdr(V32); |
307 |
if(endp(V32)){ |
if(endp(V32)){ |
308 |
goto T68;} |
goto T65;} |
309 |
goto T72;} |
goto T69;} |
310 |
goto T68; |
goto T65; |
311 |
T68:; |
T65:; |
312 |
{object V33 = Cnil; |
{object V33 = Cnil; |
313 |
VMR11(V33)} |
VMR11(V33)} |
314 |
base[0]=base[0]; |
base[0]=base[0]; |
315 |
return Cnil; |
return Cnil; |
316 |
} |
} |
317 |
/* function definition for CONDITIONP */ |
/* local entry for function CONDITIONP */ |
318 |
|
|
319 |
static void L12() |
static object LI12(V35) |
320 |
{register object *base=vs_base; |
|
321 |
register object *sup=base+VM12; VC12 |
object V35; |
322 |
vs_reserve(VM12); |
{ VMB12 VMS12 VMV12 |
|
{object V34; |
|
|
check_arg(1); |
|
|
V34=(base[0]); |
|
|
vs_top=sup; |
|
323 |
goto TTL; |
goto TTL; |
324 |
TTL:; |
TTL:; |
325 |
base[1]= (V34); |
base[0]= (V35); |
326 |
base[2]= VV[28]; |
base[1]= VV[28]; |
327 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
328 |
(void) (*Lnk56)(); |
(void) (*Lnk56)(); |
329 |
return; |
vs_top=sup; |
330 |
} |
{object V36 = vs_base[0]; |
331 |
|
VMR12(V36)} |
332 |
|
base[0]=base[0]; |
333 |
|
return Cnil; |
334 |
} |
} |
335 |
/* local entry for function progn 'compile2404 */ |
/* local entry for function progn 'compile2404 */ |
336 |
|
|
344 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
345 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
346 |
vs_top=sup; |
vs_top=sup; |
347 |
{object V35 = Cnil; |
{object V37 = Cnil; |
348 |
VMR13(V35)} |
VMR13(V37)} |
349 |
base[0]=base[0]; |
base[0]=base[0]; |
350 |
return Cnil; |
return Cnil; |
351 |
} |
} |
352 |
/* function definition for (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) */ |
/* local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) */ |
353 |
|
|
354 |
static void L14() |
static object LI14(V42,V43,V44,V45) |
355 |
{register object *base=vs_base; |
|
356 |
register object *sup=base+VM14; VC14 |
object V42;object V43;register object V44;object V45; |
357 |
vs_reserve(VM14); |
{ VMB14 VMS14 VMV14 |
|
{object V36; |
|
|
object V37; |
|
|
register object V38; |
|
|
object V39; |
|
|
check_arg(4); |
|
|
V36=(base[0]); |
|
|
V37=(base[1]); |
|
|
V38=(base[2]); |
|
|
V39=(base[3]); |
|
|
vs_top=sup; |
|
358 |
goto TTL; |
goto TTL; |
359 |
TTL:; |
TTL:; |
360 |
if((symbol_value(VV[25]))==Cnil){ |
if((symbol_value(VV[25]))==Cnil){ |
361 |
goto T84;} |
goto T81;} |
362 |
base[4]= (V39); |
base[0]= (V45); |
363 |
base[5]= VV[35]; |
base[1]= VV[35]; |
364 |
base[8]= (V38); |
base[4]= (V44); |
365 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+4)+1; |
366 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
367 |
vs_top=sup; |
vs_top=sup; |
368 |
base[7]= vs_base[0]; |
base[3]= vs_base[0]; |
369 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+3)+1; |
370 |
(void) (*Lnk59)(Lclptr59); |
(void) (*Lnk59)(Lclptr59); |
371 |
vs_top=sup; |
vs_top=sup; |
372 |
base[6]= vs_base[0]; |
base[2]= vs_base[0]; |
373 |
base[8]= (V38); |
base[3]= (*(LnkLI60))((V44)); |
374 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+0)+4; |
|
(void) (*Lnk60)(); |
|
|
vs_top=sup; |
|
|
base[7]= vs_base[0]; |
|
|
vs_top=(vs_base=base+4)+4; |
|
375 |
Lformat(); |
Lformat(); |
376 |
return; |
vs_top=sup; |
377 |
goto T84; |
{object V47 = vs_base[0]; |
378 |
T84:; |
VMR14(V47)} |
379 |
base[4]= (V39); |
goto T81; |
380 |
base[5]= VV[36]; |
T81:; |
381 |
base[7]= (V38); |
base[0]= (V45); |
382 |
vs_top=(vs_base=base+7)+1; |
base[1]= VV[36]; |
383 |
|
base[3]= (V44); |
384 |
|
vs_top=(vs_base=base+3)+1; |
385 |
Ltype_of(); |
Ltype_of(); |
386 |
vs_top=sup; |
vs_top=sup; |
387 |
base[6]= vs_base[0]; |
base[2]= vs_base[0]; |
388 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+0)+3; |
389 |
Lformat(); |
Lformat(); |
390 |
return; |
vs_top=sup; |
391 |
} |
{object V48 = vs_base[0]; |
392 |
|
VMR14(V48)} |
393 |
|
base[0]=base[0]; |
394 |
|
return Cnil; |
395 |
} |
} |
396 |
/* local entry for function progn 'compile2473 */ |
/* local entry for function progn 'compile2473 */ |
397 |
|
|
405 |
base[2]= Cnil; |
base[2]= Cnil; |
406 |
base[3]= VV[38]; |
base[3]= VV[38]; |
407 |
base[4]= VV[39]; |
base[4]= VV[39]; |
408 |
V41= symbol_function(VV[61]); |
V49= symbol_function(VV[61]); |
409 |
base[5]= listA(3,VV[40],V41,VV[41]); |
base[5]= listA(3,VV[40],V49,VV[41]); |
410 |
base[6]= Cnil; |
base[6]= Cnil; |
411 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
412 |
(void) (*Lnk62)(); |
(void) (*Lnk62)(); |
413 |
vs_top=sup; |
vs_top=sup; |
414 |
{object V42 = Cnil; |
{object V50 = Cnil; |
415 |
VMR15(V42)} |
VMR15(V50)} |
416 |
base[0]=base[0]; |
base[0]=base[0]; |
417 |
return Cnil; |
return Cnil; |
418 |
} |
} |
427 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
428 |
(void) (*Lnk50)(); |
(void) (*Lnk50)(); |
429 |
vs_top=sup; |
vs_top=sup; |
430 |
{object V43 = Cnil; |
{object V51 = Cnil; |
431 |
VMR16(V43)} |
VMR16(V51)} |
432 |
base[0]=base[0]; |
base[0]=base[0]; |
433 |
return Cnil; |
return Cnil; |
434 |
} |
} |
444 |
Lboundp(); |
Lboundp(); |
445 |
vs_top=sup; |
vs_top=sup; |
446 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
447 |
goto T109;} |
goto T105;} |
448 |
goto T108; |
goto T104; |
449 |
goto T109; |
goto T105; |
450 |
T109:; |
T105:; |
451 |
base[0]= VV[28]; |
base[0]= VV[28]; |
452 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
453 |
(void) (*Lnk63)(); |
(void) (*Lnk63)(); |
454 |
vs_top=sup; |
vs_top=sup; |
455 |
setq(VV[42],vs_base[0]); |
setq(VV[42],vs_base[0]); |
456 |
goto T108; |
goto T104; |
457 |
T108:; |
T104:; |
458 |
{object V44 = Cnil; |
{object V52 = Cnil; |
459 |
VMR17(V44)} |
VMR17(V52)} |
460 |
base[0]=base[0]; |
base[0]=base[0]; |
461 |
return Cnil; |
return Cnil; |
462 |
} |
} |
467 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
468 |
goto TTL; |
goto TTL; |
469 |
TTL:; |
TTL:; |
470 |
{object V45 = Cnil; |
{object V53 = Cnil; |
471 |
VMR18(V45)} |
VMR18(V53)} |
472 |
return Cnil; |
return Cnil; |
473 |
} |
} |
474 |
/* function definition for CONDITION-CLASS-P */ |
/* local entry for function CONDITION-CLASS-P */ |
475 |
|
|
476 |
static void L19() |
static object LI19(V55) |
477 |
{register object *base=vs_base; |
|
478 |
register object *sup=base+VM19; VC19 |
register object V55; |
479 |
vs_reserve(VM19); |
{ VMB19 VMS19 VMV19 |
|
{register object V46; |
|
|
check_arg(1); |
|
|
V46=(base[0]); |
|
|
vs_top=sup; |
|
480 |
goto TTL; |
goto TTL; |
481 |
TTL:; |
TTL:; |
482 |
if(!(type_of((V46))==t_symbol)){ |
if(!(type_of((V55))==t_symbol)){ |
483 |
goto T115;} |
goto T111;} |
484 |
base[1]= (V46); |
base[0]= (V55); |
485 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
486 |
(void) (*Lnk63)(); |
(void) (*Lnk63)(); |
487 |
vs_top=sup; |
vs_top=sup; |
488 |
V46= vs_base[0]; |
V55= vs_base[0]; |
489 |
goto T115; |
goto T111; |
490 |
T115:; |
T111:; |
491 |
base[1]= (V46); |
base[0]= (V55); |
492 |
base[2]= VV[29]; |
base[1]= VV[29]; |
493 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
494 |
(void) (*Lnk56)(); |
(void) (*Lnk56)(); |
495 |
vs_top=sup; |
vs_top=sup; |
496 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
497 |
goto T120;} |
goto T116;} |
498 |
base[1]= Cnil; |
{object V56 = Cnil; |
499 |
vs_top=(vs_base=base+1)+1; |
VMR19(V56)} |
500 |
return; |
goto T116; |
501 |
goto T120; |
T116:;{object V58; |
502 |
T120:;{object V48; |
V58= symbol_value(VV[42]); |
503 |
V48= symbol_value(VV[42]); |
base[0]= (V55); |
504 |
base[1]= (V46); |
vs_top=(vs_base=base+0)+1; |
|
vs_top=(vs_base=base+1)+1; |
|
505 |
(void) (*Lnk64)(Lclptr64); |
(void) (*Lnk64)(Lclptr64); |
506 |
vs_top=sup; |
vs_top=sup; |
507 |
V49= vs_base[0]; |
V59= vs_base[0]; |
508 |
{register object x= V48,V47= V49; |
{register object x= V58,V57= V59; |
509 |
while(!endp(V47)) |
while(!endp(V57)) |
510 |
if(eql(x,V47->c.c_car)){ |
if(eql(x,V57->c.c_car)){ |
511 |
base[1]= V47; |
{object V60 = V57; |
512 |
vs_top=(vs_base=base+1)+1; |
VMR19(V60)} |
513 |
return; |
}else V57=V57->c.c_cdr; |
514 |
}else V47=V47->c.c_cdr; |
{object V61 = Cnil; |
515 |
base[1]= Cnil; |
VMR19(V61)}}} |
516 |
vs_top=(vs_base=base+1)+1; |
base[0]=base[0]; |
517 |
return;}} |
return Cnil; |
|
} |
|
518 |
} |
} |
519 |
/* function definition for MAKE-CONDITION */ |
/* function definition for MAKE-CONDITION */ |
520 |
|
|
522 |
{register object *base=vs_base; |
{register object *base=vs_base; |
523 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
524 |
vs_reserve(VM20); |
vs_reserve(VM20); |
525 |
{register object V50; |
{register object V62; |
526 |
object V51; |
object V63; |
527 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
528 |
V50=(base[0]); |
V62=(base[0]); |
529 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
530 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
531 |
{object *p=vs_top; |
{object *p=vs_top; |
532 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
533 |
V51=(base[1]); |
V63=(base[1]); |
534 |
vs_top=sup; |
vs_top=sup; |
535 |
base[2]= (V50); |
if(((*(LnkLI65))((V62)))!=Cnil){ |
536 |
vs_top=(vs_base=base+2)+1; |
goto T122;} |
|
(void) (*Lnk65)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T126;} |
|
537 |
base[2]= VV[43]; |
base[2]= VV[43]; |
538 |
base[3]= VV[44]; |
base[3]= VV[44]; |
539 |
base[4]= (V50); |
base[4]= (V62); |
540 |
base[5]= VV[45]; |
base[5]= VV[45]; |
541 |
base[6]= VV[46]; |
base[6]= VV[46]; |
542 |
base[7]= VV[47]; |
base[7]= VV[47]; |
543 |
base[8]= VV[48]; |
base[8]= VV[48]; |
544 |
base[9]= VV[49]; |
base[9]= VV[49]; |
545 |
base[10]= make_cons((V50),Cnil); |
base[10]= make_cons((V62),Cnil); |
546 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
547 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
goto T126; |
goto T122; |
550 |
T126:; |
T122:; |
551 |
base[2]=symbol_function(VV[67]); |
base[2]=symbol_function(VV[67]); |
552 |
base[3]= (V50); |
base[3]= (V62); |
553 |
{object V52; |
{object V64; |
554 |
V52= (V51); |
V64= (V63); |
555 |
vs_top=base+4; |
vs_top=base+4; |
556 |
while(!endp(V52)) |
while(!endp(V64)) |
557 |
{vs_push(car(V52));V52=cdr(V52);} |
{vs_push(car(V64));V64=cdr(V64);} |
558 |
vs_base=base+3;} |
vs_base=base+3;} |
559 |
(void) (*Lnk67)(Lclptr67); |
(void) (*Lnk67)(Lclptr67); |
560 |
return; |
return; |
562 |
} |
} |
563 |
static void LnkT67(ptr) object *ptr;{ call_or_link_closure(VV[67],(void **)&Lnk67,(void **)&Lclptr67);} /* MAKE-INSTANCE */ |
static void LnkT67(ptr) object *ptr;{ call_or_link_closure(VV[67],(void **)&Lnk67,(void **)&Lclptr67);} /* MAKE-INSTANCE */ |
564 |
static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* ERROR */ |
static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* ERROR */ |
565 |
static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* CONDITION-CLASS-P */ |
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* CONDITION-CLASS-P */ |
566 |
static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)&Lnk64,(void **)&Lclptr64);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)&Lnk64,(void **)&Lclptr64);} /* CLASS-PRECEDENCE-LIST */ |
567 |
static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* FIND-CLASS */ |
static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* FIND-CLASS */ |
568 |
static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* LOAD-DEFMETHOD */ |
static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* LOAD-DEFMETHOD */ |
569 |
static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* UNIQUE-ID */ |
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
570 |
static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)&Lnk59,(void **)&Lclptr59);} /* CLASS-NAME */ |
static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)&Lnk59,(void **)&Lclptr59);} /* CLASS-NAME */ |
571 |
static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* CLASS-OF */ |
static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* CLASS-OF */ |
572 |
static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* PROCLAIM-DEFGENERIC */ |
static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* PROCLAIM-DEFGENERIC */ |
573 |
static void LnkT56(){ call_or_link(VV[56],(void **)&Lnk56);} /* TYPEP */ |
static void LnkT56(){ call_or_link(VV[56],(void **)&Lnk56);} /* TYPEP */ |
574 |
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
575 |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* Defclass CONDITION2295 */ |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* Defclass CONDITION2295 */ |
576 |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* CERROR */ |
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)&LnkLI53,first,ap);va_end(ap);return V1;} /* CERROR */ |
577 |
static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* *MAKE-SPECIAL */ |
static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* *MAKE-SPECIAL */ |
578 |
static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */ |
static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */ |
579 |
|
|