From 4c5e23fcafe61659c7fa082f29c2f95686ffb5c3 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 22 Apr 2012 01:10:42 +0200
Subject: [PATCH] Added slot GENERIC-FUNCTION-DECLARATIONS

---
 src/CHANGELOG       | 3 +++
 src/clos/kernel.lsp | 4 ++++
 2 files changed, 7 insertions(+)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index c75a324e9..325a24497 100755
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -48,6 +48,9 @@ ECL 12.2.2:
 
  - EXTRACT-LAMBDA-LIST and EXTRACT-SPECIALIZER-NAMES implemented.
 
+ - CLOS:GENERIC-FUNCTION-DECLARATIONS and slot CLOS:DECLARATIONS are now
+   implemented (even if not used by ECL itself).
+
 ;;; Local Variables: ***
 ;;; mode:text ***
 ;;; fill-column:79 ***
diff --git a/src/clos/kernel.lsp b/src/clos/kernel.lsp
index e42fc4731..8cbb76cef 100644
--- a/src/clos/kernel.lsp
+++ b/src/clos/kernel.lsp
@@ -122,6 +122,10 @@
       (documentation :initarg :documentation :initform nil)
       (methods :initform nil :accessor generic-function-methods)
       (a-p-o-function :initform nil :accessor generic-function-a-p-o-function)
+      (declarations
+       :initarg :declarations
+       :initform nil
+       :accessor generic-function-declarations)
       (dependents :initform nil :accessor generic-function-dependents))))
 
 #.(create-accessors +standard-generic-function-slots+