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)