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 'compile2195 */ |
/* local entry for function progn 'compile2194 */ |
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 'compile2211 */ |
/* local entry for function progn 'compile2210 */ |
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 'compile2223 */ |
/* local entry for function progn 'compile2222 */ |
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 'compile2236 */ |
/* local entry for function progn 'compile2235 */ |
64 |
|
|
65 |
static object LI4() |
static object LI4() |
66 |
|
|
216 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
217 |
return;} |
return;} |
218 |
} |
} |
219 |
/* function definition for Defclass CONDITION2313 */ |
/* function definition for Defclass CONDITION2312 */ |
220 |
|
|
221 |
static void L6() |
static void L6() |
222 |
{register object *base=vs_base; |
{register object *base=vs_base; |
234 |
symlispcall(VV[55],base+0,6); |
symlispcall(VV[55],base+0,6); |
235 |
return; |
return; |
236 |
} |
} |
237 |
/* local entry for function progn 'compile2329 */ |
/* local entry for function progn 'compile2328 */ |
238 |
|
|
239 |
static object LI7() |
static object LI7() |
240 |
|
|
249 |
base[0]=base[0]; |
base[0]=base[0]; |
250 |
return Cnil; |
return Cnil; |
251 |
} |
} |
252 |
/* local entry for function progn 'compile2346 */ |
/* local entry for function progn 'compile2345 */ |
253 |
|
|
254 |
static object LI8() |
static object LI8() |
255 |
|
|
267 |
base[0]=base[0]; |
base[0]=base[0]; |
268 |
return Cnil; |
return Cnil; |
269 |
} |
} |
270 |
/* local entry for function progn 'compile2370 */ |
/* local entry for function progn 'compile2369 */ |
271 |
|
|
272 |
static object LI9() |
static object LI9() |
273 |
|
|
279 |
VMR9(V31)} |
VMR9(V31)} |
280 |
return Cnil; |
return Cnil; |
281 |
} |
} |
282 |
/* local entry for function progn 'compile2382 */ |
/* local entry for function progn 'compile2381 */ |
283 |
|
|
284 |
static object LI10() |
static object LI10() |
285 |
|
|
290 |
VMR10(V32)} |
VMR10(V32)} |
291 |
return Cnil; |
return Cnil; |
292 |
} |
} |
293 |
/* local entry for function progn 'compile2398 */ |
/* local entry for function progn 'compile2397 */ |
294 |
|
|
295 |
static object LI11() |
static object LI11() |
296 |
|
|
342 |
base[0]=base[0]; |
base[0]=base[0]; |
343 |
return Cnil; |
return Cnil; |
344 |
} |
} |
345 |
/* local entry for function progn 'compile2422 */ |
/* local entry for function progn 'compile2421 */ |
346 |
|
|
347 |
static object LI13() |
static object LI13() |
348 |
|
|
403 |
base[0]=base[0]; |
base[0]=base[0]; |
404 |
return Cnil; |
return Cnil; |
405 |
} |
} |
406 |
/* local entry for function progn 'compile2523 */ |
/* local entry for function progn 'compile2522 */ |
407 |
|
|
408 |
static object LI15() |
static object LI15() |
409 |
|
|
426 |
base[0]=base[0]; |
base[0]=base[0]; |
427 |
return Cnil; |
return Cnil; |
428 |
} |
} |
429 |
/* local entry for function progn 'compile2535 */ |
/* local entry for function progn 'compile2534 */ |
430 |
|
|
431 |
static object LI16() |
static object LI16() |
432 |
|
|
442 |
base[0]=base[0]; |
base[0]=base[0]; |
443 |
return Cnil; |
return Cnil; |
444 |
} |
} |
445 |
/* local entry for function progn 'compile2547 */ |
/* local entry for function progn 'compile2546 */ |
446 |
|
|
447 |
static object LI17() |
static object LI17() |
448 |
|
|
466 |
base[0]=base[0]; |
base[0]=base[0]; |
467 |
return Cnil; |
return Cnil; |
468 |
} |
} |
469 |
/* local entry for function progn 'compile2560 */ |
/* local entry for function progn 'compile2559 */ |
470 |
|
|
471 |
static object LI18() |
static object LI18() |
472 |
|
|
577 |
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 */ |
578 |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* 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 LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* Defclass CONDITION2313 */ |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* Defclass CONDITION2312 */ |
581 |
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 */ |
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 */ |