diff --git a/pcl/defs.lisp b/pcl/defs.lisp
index f2b440d2da64fd0504d2e257203cb29759765ff2..0f7ea9169ace4397d937be783fc52b7ad3f7dc58 100644
--- a/pcl/defs.lisp
+++ b/pcl/defs.lisp
@@ -707,6 +707,10 @@
       (method-combination
 	:initarg :method-combination
 	:accessor generic-function-method-combination)
+      (declarations
+        :initarg :declarations
+        :initform ()
+        :accessor generic-function-declarations)
       (arg-info
         :initform (make-arg-info)
 	:reader gf-arg-info)
diff --git a/pcl/generic-functions.lisp b/pcl/generic-functions.lisp
index f7e2cd2217f29b308723edcc3dd97bcd97f540c5..131dcd2152a2a0c48768d6ecf303a8922b853b67 100644
--- a/pcl/generic-functions.lisp
+++ b/pcl/generic-functions.lisp
@@ -2,7 +2,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.14 2002/11/22 00:39:56 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/generic-functions.lisp,v 1.15 2002/11/22 01:05:23 pmai Exp $")
 ;;;
 
 (in-package :pcl)
@@ -138,6 +138,9 @@
 (defgeneric eql-specializer-object (eql-specializer))
 ;          (eql-specializer)
 
+(defgeneric generic-function-declarations (standard-generic-function))
+;          (standard-generic-function)
+
 (defgeneric generic-function-method-class (standard-generic-function))
 ;          (standard-generic-function)
 
@@ -272,6 +275,9 @@
 (defgeneric (setf generic-function-method-combination) (new-value standard-generic-function))
 ;          (t standard-generic-function)
 
+(defgeneric (setf generic-function-declarations) (new-value standard-generic-function))
+;          (t standard-generic-function)
+
 (defgeneric (setf generic-function-methods) (new-value standard-generic-function))
 ;          (t standard-generic-function)