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

[Raymond Toy]

    Date: Saturday, April 17, 2010 @ 14:31:42
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

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

pcl/boot.lisp:
o Allow class objects as well as names for the :METHOD-CLASS argument

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


------------------------------+
 general-info/release-20b.txt |    2 ++
 pcl/boot.lisp                |    6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)


Index: src/general-info/release-20b.txt
diff -u src/general-info/release-20b.txt:1.17 src/general-info/release-20b.txt:1.18
--- src/general-info/release-20b.txt:1.17	Sat Apr 17 11:57:04 2010
+++ src/general-info/release-20b.txt	Sat Apr 17 14:31:42 2010
@@ -54,6 +54,8 @@
       Previously, it used the current value of *PRINT-READABLY*.
     - DEFCLASS signals an error if the class name already names a
       DECLARATION. 
+    - The :METHOD-CLASS argument to ENSURE-GENERIC-FUNCTION can be a
+      class object as well as a name.
 
   * Bugfixes:
     - On Unicode builds, printing of '|\|| and '|`| was incorrect
Index: src/pcl/boot.lisp
diff -u src/pcl/boot.lisp:1.75 src/pcl/boot.lisp:1.76
--- src/pcl/boot.lisp:1.75	Fri Mar 19 11:19:03 2010
+++ src/pcl/boot.lisp	Sat Apr 17 14:31:42 2010
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/boot.lisp,v 1.75 2010-03-19 15:19:03 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/boot.lisp,v 1.76 2010-04-17 18:31:42 rtoy Exp $")
 
 (in-package :pcl)
 (intl:textdomain "cmucl")
@@ -1900,7 +1900,9 @@
      (let ((method-class (getf ,all-keys :method-class '.shes-not-there.)))
        (unless (eq method-class '.shes-not-there.)
 	 (setf (getf ,all-keys :method-class)
-	       (find-class method-class t ,env))))))
+	       (if (symbolp method-class)
+		   (find-class method-class t ,env)
+		   method-class))))))
 
 #+loadable-pcl
 (progn