mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 04:42:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

Symbol UNBOUND already existed in the SI package

Browse source
This commit is contained in:
jjgarcia 2003-12-11 16:16:06 +00:00
parent 789844e8d3
commit 84d17508bb
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/symbols_list.h
View file

@ -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