From 64f97e28cd3b1f06a31f9f05a479178e65be0027 Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Fri, 22 Nov 2002 01:05:23 +0000 Subject: [PATCH] Entomotomy Bug: generic-function-declarations-unimplemented Committed adapted patch from Gerd Moellmann via SBCL that implements the mandated GFs generic-functions-declarations and (setf g-f-declarations). --- pcl/defs.lisp | 4 ++++ pcl/generic-functions.lisp | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/pcl/defs.lisp b/pcl/defs.lisp index f2b440d2d..0f7ea9169 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 f7e2cd221..131dcd215 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) -- GitLab