0.9.4:

     Fix ANSI test ENSURE-GENERIC-FUNCTION.9

diff --git a/NEWS b/NEWS
index 3b44037..890078b 100644 (file)
--- 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
   * 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
 
 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 (file)
--- 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)
     (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
 
 (defun real-ensure-gf-using-class--generic-function
        (existing

diff --git a/version.lisp-expr b/version.lisp-expr
index d2cd328..6801619 100644 (file)
--- 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".)
 ;;; 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"