From: Brian Mastenbrook <bmastenb@cs.indiana.edu>
Date: Fri, 26 Aug 2005 19:54:17 +0000 (+0000)
Subject: 0.9.4:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=08d8d7bccb7642ba4fb54e05fe55c47228951130;p=sbcl.git

0.9.4:
     Fix ANSI test ENSURE-GENERIC-FUNCTION.9
---

diff --git a/NEWS b/NEWS
index 3b44037..890078b 100644
--- a/NEWS
+++ b/NEWS
@@ -5,6 +5,9 @@ changes in sbcl-0.9.5 relative to sbcl-0.9.4:
   * threads
     ** bug fix: parent thread now can be gc'ed even with a live
        child thread
+  * fixed some bugs revealed by Paul Dietz' test suite:
+    ** ENSURE-GENERIC-FUNCTION should take a method class object for
+       the :method-class keyword argument.
 
 changes in sbcl-0.9.4 relative to sbcl-0.9.3:
   * new port: the Solaris operating system on x86 processors is now
diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 10edc78..7487b14 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1987,7 +1987,9 @@ bootstrapping.
     (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))))))
+	      (cond ((classp method-class)
+		     method-class)
+		    (t (find-class method-class t ,env))))))))
 
 (defun real-ensure-gf-using-class--generic-function
        (existing
diff --git a/version.lisp-expr b/version.lisp-expr
index d2cd328..6801619 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.4.3"
+"0.9.4.4"