CMUCL commit: src (general-info/release-20b.txt pcl/boot.lisp)

[Raymond Toy]

    Date: Saturday, April 17, 2010 @ 15:05:51
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: general-info/release-20b.txt pcl/boot.lisp

pcl/boot.lisp:
o Recognize but ignore the :DECLARE argument to
  ENSURE-GENERIC-FUNCTION. 

general-info/release-20b.txt:
o Update


------------------------------+
 general-info/release-20b.txt |    2 ++
 pcl/boot.lisp                |    3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)


Index: src/general-info/release-20b.txt
diff -u src/general-info/release-20b.txt:1.18 src/general-info/release-20b.txt:1.19
--- src/general-info/release-20b.txt:1.18	Sat Apr 17 14:31:42 2010
+++ src/general-info/release-20b.txt	Sat Apr 17 15:05:51 2010
@@ -56,6 +56,8 @@
       DECLARATION. 
     - The :METHOD-CLASS argument to ENSURE-GENERIC-FUNCTION can be a
       class object as well as a name.
+    - Recognize but ignore the :DECLARE argument to
+      ENSURE-GENERIC-FUNCTION. 
 
   * Bugfixes:
     - On Unicode builds, printing of '|\|| and '|`| was incorrect
Index: src/pcl/boot.lisp
diff -u src/pcl/boot.lisp:1.76 src/pcl/boot.lisp:1.77
--- src/pcl/boot.lisp:1.76	Sat Apr 17 14:31:42 2010
+++ src/pcl/boot.lisp	Sat Apr 17 15:05:51 2010
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/boot.lisp,v 1.76 2010-04-17 18:31:42 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/boot.lisp,v 1.77 2010-04-17 19:05:51 rtoy Exp $")
 
 (in-package :pcl)
 (intl:textdomain "cmucl")
@@ -1891,6 +1891,7 @@
 		   :generic-function-class ,gf-class)))
      (remf ,all-keys :generic-function-class)
      (remf ,all-keys :environment)
+     (remf ,all-keys :declare)
      (let ((combin (getf ,all-keys :method-combination '.shes-not-there.)))
        (unless (eq combin '.shes-not-there.)
 	 (setf (getf ,all-keys :method-combination)