From 84d17508bb490199e65cf8bdf8854a84dff425c0 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Thu, 11 Dec 2003 16:16:06 +0000 Subject: [PATCH] Symbol UNBOUND already existed in the SI package --- src/c/symbols_list.h | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index c15da66a6..b69070737 100644 --- a/src/c/symbols_list.h +++ b/src/c/symbols_list.h @@ -18,7 +18,11 @@ cl_symbols[] = { {"NIL", CL_ORDINARY, NULL, -1}, {"T", CL_ORDINARY, NULL, -1}, +#ifdef CLOS +{SYS_ "UNBOUND", SI_ORDINARY, si_unbound, 0, OBJNULL}, +#else {SYS_ "UNBOUND", SI_ORDINARY, NULL, -1, OBJNULL}, +#endif /* LISP PACKAGE */ {"&ALLOW-OTHER-KEYS", CL_ORDINARY, NULL, -1, OBJNULL}, @@ -1173,7 +1177,7 @@ cl_symbols[] = { {SYS_ "SET-FUNCALLABLE", SI_ORDINARY, si_set_funcallable, 2, OBJNULL}, {SYS_ "SL-BOUNDP", SI_ORDINARY, si_sl_boundp, 1, OBJNULL}, {SYS_ "SL-MAKUNBOUND", SI_ORDINARY, si_sl_makunbound, 2, OBJNULL}, -{SYS_ "UNBOUND", SI_ORDINARY, si_unbound, 0, OBJNULL}, +/*{SYS_ "UNBOUND", SI_ORDINARY, si_unbound, 0, OBJNULL}, */ #endif #ifdef PROFILE