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

Added some more keywords used by CLOS to the core.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-08 23:02:09 +01:00
parent 2c0bead95f
commit 2959b35ce3
2 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/symbols_list.h
View file

@ -1078,16 +1078,30 @@ cl_symbols[] = {
{"UPDATE-INSTANCE-FOR-REDEFINED-CLASS", CL_ORDINARY, NULL, -1, OBJNULL},
{"WITH-ACCESSORS", CL_ORDINARY, NULL, -1, OBJNULL},
{"WITH-SLOTS", CL_ORDINARY, NULL, -1, OBJNULL},
{KEY_ "ACCESSOR", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "ARGUMENT-PRECEDENCE-ORDER", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "ALLOCATION", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DECLARE", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DEFAULT-INITARGS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DESCRIPTION", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DIRECT-DEFAULT-INITARGS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DIRECT-SLOTS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "DIRECT-SUPERCLASSES", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "GENERIC-FUNCTION-CLASS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "IDENTITY-WITH-ONE-ARGUMENT", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "INITARG", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "INITARGS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "INITFORM", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "LAMBDA-LIST", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "METACLASS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "METHOD", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "METHOD-CLASS", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "METHOD-COMBINATION", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "OPERATOR", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "ORDER", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "READER", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "REQUIRED", KEYWORD, NULL, -1, OBJNULL},
{KEY_ "WRITER", KEYWORD, NULL, -1, OBJNULL},
#endif
/* SYSTEM PACKAGE */

14
src/c/symbols_list2.h
View file

@ -1078,16 +1078,30 @@ cl_symbols[] = {
{"UPDATE-INSTANCE-FOR-REDEFINED-CLASS",NULL},
{"WITH-ACCESSORS",NULL},
{"WITH-SLOTS",NULL},
{KEY_ "ACCESSOR",NULL},
{KEY_ "ARGUMENT-PRECEDENCE-ORDER",NULL},
{KEY_ "ALLOCATION",NULL},
{KEY_ "DECLARE",NULL},
{KEY_ "DEFAULT-INITARGS",NULL},
{KEY_ "DESCRIPTION",NULL},
{KEY_ "DIRECT-DEFAULT-INITARGS",NULL},
{KEY_ "DIRECT-SLOTS",NULL},
{KEY_ "DIRECT-SUPERCLASSES",NULL},
{KEY_ "GENERIC-FUNCTION-CLASS",NULL},
{KEY_ "IDENTITY-WITH-ONE-ARGUMENT",NULL},
{KEY_ "INITARG",NULL},
{KEY_ "INITARGS",NULL},
{KEY_ "INITFORM",NULL},
{KEY_ "LAMBDA-LIST",NULL},
{KEY_ "METACLASS",NULL},
{KEY_ "METHOD",NULL},
{KEY_ "METHOD-CLASS",NULL},
{KEY_ "METHOD-COMBINATION",NULL},
{KEY_ "OPERATOR",NULL},
{KEY_ "ORDER",NULL},
{KEY_ "READER",NULL},
{KEY_ "REQUIRED",NULL},
{KEY_ "WRITER",NULL},
#endif
/* SYSTEM PACKAGE */