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