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 'compile2186 */ |
/* local entry for function progn 'compile2191 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
25 |
base[0]=base[0]; |
base[0]=base[0]; |
26 |
return Cnil; |
return Cnil; |
27 |
} |
} |
28 |
/* local entry for function progn 'compile2202 */ |
/* local entry for function progn 'compile2207 */ |
29 |
|
|
30 |
static object LI2() |
static object LI2() |
31 |
|
|
41 |
base[0]=base[0]; |
base[0]=base[0]; |
42 |
return Cnil; |
return Cnil; |
43 |
} |
} |
44 |
/* local entry for function progn 'compile2214 */ |
/* local entry for function progn 'compile2219 */ |
45 |
|
|
46 |
static object LI3() |
static object LI3() |
47 |
|
|
60 |
VMR3(V3)} |
VMR3(V3)} |
61 |
return Cnil; |
return Cnil; |
62 |
} |
} |
63 |
/* local entry for function progn 'compile2227 */ |
/* local entry for function progn 'compile2232 */ |
64 |
|
|
65 |
static object LI4() |
static object LI4() |
66 |
|
|
150 |
V12= list(4,VV[12],base[2],base[3],base[4]); |
V12= list(4,VV[12],base[2],base[3],base[4]); |
151 |
goto T42; |
goto T42; |
152 |
T42:; |
T42:; |
153 |
{object V14; |
V13 = base[2]; |
154 |
object V15= base[4]; |
V14 = base[3]; |
155 |
if(V15==Cnil){ |
{object V16; |
156 |
V13= Cnil; |
object V17= base[4]; |
157 |
|
if(V17==Cnil){ |
158 |
|
V15= Cnil; |
159 |
goto T46;} |
goto T46;} |
160 |
base[6]=V14=MMcons(Cnil,Cnil); |
base[6]=V16=MMcons(Cnil,Cnil); |
161 |
goto T47; |
goto T47; |
162 |
T47:; |
T47:; |
163 |
{object V17; |
{object V19; |
164 |
base[8]= CMPcdr((V15->c.c_car)); |
base[8]= CMPcdr((V17->c.c_car)); |
165 |
base[9]= VV[17]; |
base[9]= VV[17]; |
166 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
167 |
Lgetf(); |
Lgetf(); |
168 |
vs_top=sup; |
vs_top=sup; |
169 |
V17= vs_base[0]; |
V19= vs_base[0]; |
170 |
if(((V17))==Cnil){ |
if(((V19))==Cnil){ |
171 |
goto T53;}{object V19; |
goto T53;} |
172 |
base[8]= CMPcdr((V15->c.c_car)); |
V20 = (V19);{object V22; |
173 |
|
base[8]= CMPcdr((V17->c.c_car)); |
174 |
base[9]= VV[18]; |
base[9]= VV[18]; |
175 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
176 |
Lgetf(); |
Lgetf(); |
177 |
vs_top=sup; |
vs_top=sup; |
178 |
V19= vs_base[0]; |
V22= vs_base[0]; |
179 |
if(V19==Cnil)goto T56; |
if(V22==Cnil)goto T56; |
180 |
V18= V19; |
V21= V22; |
181 |
goto T55; |
goto T55; |
182 |
goto T56; |
goto T56; |
183 |
T56:;} |
T56:;} |
184 |
V18= Ct; |
V21= Ct; |
185 |
goto T55; |
goto T55; |
186 |
T55:; |
T55:; |
187 |
V20= make_cons((V17),V18); |
V23= make_cons(V20,V21); |
188 |
(V14->c.c_cdr)= make_cons(/* INLINE-ARGS */V20,Cnil); |
(V16->c.c_cdr)= make_cons(/* INLINE-ARGS */V23,Cnil); |
189 |
goto T48; |
goto T48; |
190 |
goto T53; |
goto T53; |
191 |
T53:; |
T53:; |
192 |
(V14->c.c_cdr)= Cnil;} |
(V16->c.c_cdr)= Cnil;} |
193 |
goto T48; |
goto T48; |
194 |
T48:; |
T48:; |
195 |
while(MMcdr(V14)!=Cnil)V14=MMcdr(V14); |
while(MMcdr(V16)!=Cnil)V16=MMcdr(V16); |
196 |
if((V15=MMcdr(V15))==Cnil){ |
if((V17=MMcdr(V17))==Cnil){ |
197 |
base[6]=base[6]->c.c_cdr; |
base[6]=base[6]->c.c_cdr; |
198 |
V13= base[6]; |
V15= base[6]; |
199 |
goto T46;} |
goto T46;} |
200 |
goto T47;} |
goto T47;} |
201 |
goto T46; |
goto T46; |
202 |
T46:; |
T46:; |
203 |
V21= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V13)),VV[1]); |
V24= list(3,VV[15],list(2,VV[16],listA(3,V13,V14,V15)),VV[1]); |
204 |
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)); |
V25= list(4,VV[13],VV[14],/* INLINE-ARGS */V24,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil)); |
205 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
206 |
goto T62;} |
goto T62;} |
207 |
V24= list(2,list(2,VV[24],base[2]),VV[7]); |
V27= list(2,list(2,VV[24],base[2]),VV[7]); |
208 |
V25= list(4,VV[22],VV[23],/* INLINE-ARGS */V24,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28]))); |
V28= list(4,VV[22],VV[23],/* INLINE-ARGS */V27,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28]))); |
209 |
V23= make_cons(/* INLINE-ARGS */V25,Cnil); |
V26= make_cons(/* INLINE-ARGS */V28,Cnil); |
210 |
goto T60; |
goto T60; |
211 |
goto T62; |
goto T62; |
212 |
T62:; |
T62:; |
213 |
V23= Cnil; |
V26= Cnil; |
214 |
goto T60; |
goto T60; |
215 |
T60:; |
T60:; |
216 |
V26= list(2,VV[16],base[2]); |
V29= list(2,VV[16],base[2]); |
217 |
V27= make_cons(/* INLINE-ARGS */V26,Cnil); |
V30= make_cons(/* INLINE-ARGS */V29,Cnil); |
218 |
base[6]= listA(5,VV[10],VV[11],V12,/* INLINE-ARGS */V22,append(V23,/* INLINE-ARGS */V27)); |
base[6]= listA(5,VV[10],VV[11],V12,/* INLINE-ARGS */V25,append(V26,/* INLINE-ARGS */V30)); |
219 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
220 |
return;} |
return;} |
221 |
} |
} |
222 |
/* function definition for Defclass CONDITION2304 */ |
/* function definition for Defclass CONDITION2309 */ |
223 |
|
|
224 |
static void L6() |
static void L6() |
225 |
{register object *base=vs_base; |
{register object *base=vs_base; |
237 |
symlispcall(VV[55],base+0,6); |
symlispcall(VV[55],base+0,6); |
238 |
return; |
return; |
239 |
} |
} |
240 |
/* local entry for function progn 'compile2320 */ |
/* local entry for function progn 'compile2325 */ |
241 |
|
|
242 |
static object LI7() |
static object LI7() |
243 |
|
|
247 |
vs_base=vs_top; |
vs_base=vs_top; |
248 |
(void) (*Lnk56)(); |
(void) (*Lnk56)(); |
249 |
vs_top=sup; |
vs_top=sup; |
250 |
{object V28 = Cnil; |
{object V31 = Cnil; |
251 |
VMR7(V28)} |
VMR7(V31)} |
252 |
base[0]=base[0]; |
base[0]=base[0]; |
253 |
return Cnil; |
return Cnil; |
254 |
} |
} |
255 |
/* local entry for function progn 'compile2337 */ |
/* local entry for function progn 'compile2342 */ |
256 |
|
|
257 |
static object LI8() |
static object LI8() |
258 |
|
|
265 |
Ladjoin(); |
Ladjoin(); |
266 |
vs_top=sup; |
vs_top=sup; |
267 |
(VV[1]->s.s_dbind)= vs_base[0]; |
(VV[1]->s.s_dbind)= vs_base[0]; |
268 |
{object V30 = Cnil; |
{object V33 = Cnil; |
269 |
VMR8(V30)} |
VMR8(V33)} |
270 |
base[0]=base[0]; |
base[0]=base[0]; |
271 |
return Cnil; |
return Cnil; |
272 |
} |
} |
273 |
/* local entry for function progn 'compile2361 */ |
/* local entry for function progn 'compile2366 */ |
274 |
|
|
275 |
static object LI9() |
static object LI9() |
276 |
|
|
278 |
goto TTL; |
goto TTL; |
279 |
TTL:; |
TTL:; |
280 |
(void)(sputprop(VV[2],VV[31],Cnil)); |
(void)(sputprop(VV[2],VV[31],Cnil)); |
281 |
{object V31 = Cnil; |
{object V34 = Cnil; |
282 |
VMR9(V31)} |
VMR9(V34)} |
283 |
return Cnil; |
return Cnil; |
284 |
} |
} |
285 |
/* local entry for function progn 'compile2373 */ |
/* local entry for function progn 'compile2378 */ |
286 |
|
|
287 |
static object LI10() |
static object LI10() |
288 |
|
|
289 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
290 |
goto TTL; |
goto TTL; |
291 |
TTL:; |
TTL:; |
292 |
{object V32 = Cnil; |
{object V35 = Cnil; |
293 |
VMR10(V32)} |
VMR10(V35)} |
294 |
return Cnil; |
return Cnil; |
295 |
} |
} |
296 |
/* local entry for function progn 'compile2389 */ |
/* local entry for function progn 'compile2394 */ |
297 |
|
|
298 |
static object LI11() |
static object LI11() |
299 |
|
|
308 |
goto T77;} |
goto T77;} |
309 |
base[0]=VV[32]->s.s_gfdef; |
base[0]=VV[32]->s.s_gfdef; |
310 |
{ |
{ |
311 |
object V33= VV[33]; |
object V36= VV[33]; |
312 |
if(V33==Cnil){ |
if(V36==Cnil){ |
313 |
goto T77;} |
goto T77;} |
314 |
goto T81; |
goto T81; |
315 |
T81:; |
T81:; |
316 |
base[1]= (V33->c.c_car); |
base[1]= (V36->c.c_car); |
317 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
318 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
319 |
vs_top=sup; |
vs_top=sup; |
320 |
if((V33=MMcdr(V33))==Cnil){ |
if((V36=MMcdr(V36))==Cnil){ |
321 |
goto T77;} |
goto T77;} |
322 |
goto T81;} |
goto T81;} |
323 |
goto T77; |
goto T77; |
324 |
T77:; |
T77:; |
325 |
{object V34 = Cnil; |
{object V37 = Cnil; |
326 |
VMR11(V34)} |
VMR11(V37)} |
327 |
base[0]=base[0]; |
base[0]=base[0]; |
328 |
return Cnil; |
return Cnil; |
329 |
} |
} |
330 |
/* local entry for function CONDITIONP */ |
/* local entry for function CONDITIONP */ |
331 |
|
|
332 |
static object LI12(V36) |
static object LI12(V39) |
333 |
|
|
334 |
object V36; |
object V39; |
335 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
336 |
goto TTL; |
goto TTL; |
337 |
TTL:; |
TTL:; |
338 |
base[0]= (V36); |
base[0]= (V39); |
339 |
base[1]= VV[2]; |
base[1]= VV[2]; |
340 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
341 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
342 |
vs_top=sup; |
vs_top=sup; |
343 |
{object V37 = vs_base[0]; |
{object V40 = vs_base[0]; |
344 |
VMR12(V37)} |
VMR12(V40)} |
345 |
base[0]=base[0]; |
base[0]=base[0]; |
346 |
return Cnil; |
return Cnil; |
347 |
} |
} |
348 |
/* local entry for function progn 'compile2413 */ |
/* local entry for function progn 'compile2418 */ |
349 |
|
|
350 |
static object LI13() |
static object LI13() |
351 |
|
|
357 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
358 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
359 |
vs_top=sup; |
vs_top=sup; |
360 |
{object V38 = Cnil; |
{object V41 = Cnil; |
361 |
VMR13(V38)} |
VMR13(V41)} |
362 |
base[0]=base[0]; |
base[0]=base[0]; |
363 |
return Cnil; |
return Cnil; |
364 |
} |
} |
365 |
/* local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) */ |
/* local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) */ |
366 |
|
|
367 |
static object LI14(V43,V44,V45,V46) |
static object LI14(V46,V47,V48,V49) |
368 |
|
|
369 |
object V43;object V44;register object V45;object V46; |
object V46;object V47;register object V48;object V49; |
370 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
371 |
goto TTL; |
goto TTL; |
372 |
TTL:; |
TTL:; |
373 |
if(((VV[26]->s.s_dbind))==Cnil){ |
if(((VV[26]->s.s_dbind))==Cnil){ |
374 |
goto T93;} |
goto T93;} |
375 |
base[0]= (V46); |
base[0]= (V49); |
376 |
base[1]= VV[35]; |
base[1]= VV[35]; |
377 |
base[4]= (V45); |
base[4]= (V48); |
378 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
379 |
(void) (*Lnk59)(); |
(void) (*Lnk59)(); |
380 |
vs_top=sup; |
vs_top=sup; |
383 |
(void) (*Lnk60)(Lclptr60); |
(void) (*Lnk60)(Lclptr60); |
384 |
vs_top=sup; |
vs_top=sup; |
385 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
386 |
base[3]= (*(LnkLI61))((V45)); |
base[3]= (*(LnkLI61))((V48)); |
387 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
388 |
Lformat(); |
Lformat(); |
389 |
vs_top=sup; |
vs_top=sup; |
390 |
{object V48 = vs_base[0]; |
{object V51 = vs_base[0]; |
391 |
VMR14(V48)} |
VMR14(V51)} |
392 |
goto T93; |
goto T93; |
393 |
T93:; |
T93:; |
394 |
base[0]= (V46); |
base[0]= (V49); |
395 |
base[1]= VV[36]; |
base[1]= VV[36]; |
396 |
base[3]= (V45); |
base[3]= (V48); |
397 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
398 |
Ltype_of(); |
Ltype_of(); |
399 |
vs_top=sup; |
vs_top=sup; |
401 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
402 |
Lformat(); |
Lformat(); |
403 |
vs_top=sup; |
vs_top=sup; |
404 |
{object V49 = vs_base[0]; |
{object V52 = vs_base[0]; |
405 |
VMR14(V49)} |
VMR14(V52)} |
406 |
base[0]=base[0]; |
base[0]=base[0]; |
407 |
return Cnil; |
return Cnil; |
408 |
} |
} |
409 |
/* local entry for function progn 'compile2482 */ |
/* local entry for function progn 'compile2487 */ |
410 |
|
|
411 |
static object LI15() |
static object LI15() |
412 |
|
|
418 |
base[2]= Cnil; |
base[2]= Cnil; |
419 |
base[3]= VV[38]; |
base[3]= VV[38]; |
420 |
base[4]= VV[39]; |
base[4]= VV[39]; |
421 |
V50= (VV[62]->s.s_gfdef); |
V53= (VV[62]->s.s_gfdef); |
422 |
base[5]= listA(3,VV[40],V50,VV[41]); |
base[5]= listA(3,VV[40],V53,VV[41]); |
423 |
base[6]= Cnil; |
base[6]= Cnil; |
424 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
425 |
(void) (*Lnk63)(); |
(void) (*Lnk63)(); |
426 |
vs_top=sup; |
vs_top=sup; |
427 |
{object V51 = Cnil; |
{object V54 = Cnil; |
428 |
VMR15(V51)} |
VMR15(V54)} |
429 |
base[0]=base[0]; |
base[0]=base[0]; |
430 |
return Cnil; |
return Cnil; |
431 |
} |
} |
432 |
/* local entry for function progn 'compile2494 */ |
/* local entry for function progn 'compile2499 */ |
433 |
|
|
434 |
static object LI16() |
static object LI16() |
435 |
|
|
440 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
441 |
(void) (*Lnk50)(); |
(void) (*Lnk50)(); |
442 |
vs_top=sup; |
vs_top=sup; |
443 |
{object V52 = Cnil; |
{object V55 = Cnil; |
444 |
VMR16(V52)} |
VMR16(V55)} |
445 |
base[0]=base[0]; |
base[0]=base[0]; |
446 |
return Cnil; |
return Cnil; |
447 |
} |
} |
448 |
/* local entry for function progn 'compile2506 */ |
/* local entry for function progn 'compile2511 */ |
449 |
|
|
450 |
static object LI17() |
static object LI17() |
451 |
|
|
464 |
(VV[42]->s.s_dbind)= vs_base[0]; |
(VV[42]->s.s_dbind)= vs_base[0]; |
465 |
goto T116; |
goto T116; |
466 |
T116:; |
T116:; |
467 |
{object V53 = Cnil; |
{object V56 = Cnil; |
468 |
VMR17(V53)} |
VMR17(V56)} |
469 |
base[0]=base[0]; |
base[0]=base[0]; |
470 |
return Cnil; |
return Cnil; |
471 |
} |
} |
472 |
/* local entry for function progn 'compile2519 */ |
/* local entry for function progn 'compile2524 */ |
473 |
|
|
474 |
static object LI18() |
static object LI18() |
475 |
|
|
476 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
477 |
goto TTL; |
goto TTL; |
478 |
TTL:; |
TTL:; |
479 |
{object V54 = Cnil; |
{object V57 = Cnil; |
480 |
VMR18(V54)} |
VMR18(V57)} |
481 |
return Cnil; |
return Cnil; |
482 |
} |
} |
483 |
/* local entry for function CONDITION-CLASS-P */ |
/* local entry for function CONDITION-CLASS-P */ |
484 |
|
|
485 |
static object LI19(V56) |
static object LI19(V59) |
486 |
|
|
487 |
register object V56; |
register object V59; |
488 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
489 |
goto TTL; |
goto TTL; |
490 |
TTL:; |
TTL:; |
491 |
if(!(type_of((V56))==t_symbol)){ |
if(!(type_of((V59))==t_symbol)){ |
492 |
goto T122;} |
goto T122;} |
493 |
base[0]= (V56); |
base[0]= (V59); |
494 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
495 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
V56= vs_base[0]; |
V59= vs_base[0]; |
498 |
goto T122; |
goto T122; |
499 |
T122:; |
T122:; |
500 |
base[0]= (V56); |
base[0]= (V59); |
501 |
base[1]= VV[29]; |
base[1]= VV[29]; |
502 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
503 |
(void) (*Lnk57)(); |
(void) (*Lnk57)(); |
504 |
vs_top=sup; |
vs_top=sup; |
505 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
506 |
goto T127;} |
goto T127;} |
507 |
{object V57 = Cnil; |
{object V60 = Cnil; |
508 |
VMR19(V57)} |
VMR19(V60)} |
509 |
goto T127; |
goto T127; |
510 |
T127:;{object V59; |
T127:;{object V62; |
511 |
V59= (VV[42]->s.s_dbind); |
V62= (VV[42]->s.s_dbind); |
512 |
base[0]= (V56); |
base[0]= (V59); |
513 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
514 |
(void) (*Lnk65)(Lclptr65); |
(void) (*Lnk65)(Lclptr65); |
515 |
vs_top=sup; |
vs_top=sup; |
516 |
V60= vs_base[0]; |
V63= vs_base[0]; |
517 |
{register object x= V59,V58= V60; |
{register object x= V62,V61= V63; |
518 |
while(V58!=Cnil) |
while(V61!=Cnil) |
519 |
if(eql(x,V58->c.c_car)){ |
if(eql(x,V61->c.c_car)){ |
520 |
{object V61 = V58; |
{object V64 = V61; |
521 |
VMR19(V61)} |
VMR19(V64)} |
522 |
}else V58=V58->c.c_cdr; |
}else V61=V61->c.c_cdr; |
523 |
{object V62 = Cnil; |
{object V65 = Cnil; |
524 |
VMR19(V62)}}} |
VMR19(V65)}}} |
525 |
base[0]=base[0]; |
base[0]=base[0]; |
526 |
return Cnil; |
return Cnil; |
527 |
} |
} |
531 |
{register object *base=vs_base; |
{register object *base=vs_base; |
532 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
533 |
vs_check; |
vs_check; |
534 |
{register object V63; |
{register object V66; |
535 |
object V64; |
object V67; |
536 |
V63=(base[0]); |
V66=(base[0]); |
537 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
538 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
539 |
{object *p=vs_top; |
{object *p=vs_top; |
540 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
541 |
V64=(base[1]); |
V67=(base[1]); |
542 |
vs_top=sup; |
vs_top=sup; |
543 |
if(((*(LnkLI66))((V63)))!=Cnil){ |
if(((*(LnkLI66))((V66)))!=Cnil){ |
544 |
goto T133;} |
goto T133;} |
545 |
base[2]= VV[43]; |
base[2]= VV[43]; |
546 |
base[3]= VV[44]; |
base[3]= VV[44]; |
547 |
base[4]= (V63); |
base[4]= (V66); |
548 |
base[5]= VV[45]; |
base[5]= VV[45]; |
549 |
base[6]= VV[46]; |
base[6]= VV[46]; |
550 |
base[7]= VV[47]; |
base[7]= VV[47]; |
551 |
base[8]= VV[48]; |
base[8]= VV[48]; |
552 |
base[9]= VV[49]; |
base[9]= VV[49]; |
553 |
base[10]= make_cons((V63),Cnil); |
base[10]= make_cons((V66),Cnil); |
554 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
555 |
(void) (*Lnk67)(); |
(void) (*Lnk67)(); |
556 |
vs_top=sup; |
vs_top=sup; |
557 |
goto T133; |
goto T133; |
558 |
T133:; |
T133:; |
559 |
base[2]=VV[68]->s.s_gfdef; |
base[2]=VV[68]->s.s_gfdef; |
560 |
base[3]= (V63); |
base[3]= (V66); |
561 |
{object V65; |
{object V68; |
562 |
V65= (V64); |
V68= (V67); |
563 |
vs_top=base+4; |
vs_top=base+4; |
564 |
while(V65!=Cnil) |
while(V68!=Cnil) |
565 |
{vs_push((V65)->c.c_car);V65=(V65)->c.c_cdr;} |
{vs_push((V68)->c.c_car);V68=(V68)->c.c_cdr;} |
566 |
vs_base=base+3;} |
vs_base=base+3;} |
567 |
(void) (*Lnk68)(Lclptr68); |
(void) (*Lnk68)(Lclptr68); |
568 |
return; |
return; |
580 |
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* PROCLAIM-DEFGENERIC */ |
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* PROCLAIM-DEFGENERIC */ |
581 |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* TYPEP */ |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* TYPEP */ |
582 |
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 */ |
583 |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* Defclass CONDITION2304 */ |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* Defclass CONDITION2309 */ |
584 |
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 */ |
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 */ |
585 |
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 */ |
586 |
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 */ |