From 2959b35ce3fd0a19d7d75bc9fba4f9abfc3677e9 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 8 Dec 2011 23:02:09 +0100
Subject: [PATCH] Added some more keywords used by CLOS to the core.

---
 src/c/symbols_list.h  | 14 ++++++++++++++
 src/c/symbols_list2.h | 14 ++++++++++++++
 2 files changed, 28 insertions(+)

diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 7d69e46e8..fc1b8e4df 100755
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -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 */
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 99d2fece7..61dbe0bdd 100644
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -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 */