0.8alpha.0.16:

	Fix for SXHASH on condition objects
	... was causing compilation failures when referencing explicit
		constant conditions

diff --git a/NEWS b/NEWS
index 92d3a42..33c7dc4 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1721,7 +1721,7 @@ changes in sbcl-0.8.0 relative to sbcl-0.8alpha.0
     ** the GENERIC-FUNCTION type is no longer disjoint from FUNCTION
        types.
     ** &ENVIRONMENT parameter in macro lambda list is bound first.
-
+    ** SXHASH on condition objects no longer returns NIL.
 
 planned incompatible changes in 0.8.x:
   * (not done yet, but planned:) When the profiling interface settles

diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp
index 3df7c3d..cc574a5 100644 (file)
--- a/src/code/target-sxhash.lisp
+++ b/src/code/target-sxhash.lisp
@@ -144,7 +144,7 @@
                         (sxhash-recurse (cdr x) (1- depthoid)))
                    261835505))
               (instance
-               (if (typep x 'structure-object)
+               (if (or (typep x 'structure-object) (typep x 'condition))
                    (logxor 422371266
                            (sxhash ; through DEFTRANSFORM
                             (classoid-name

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index d9d88e3..c8f2de6 100644 (file)
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -377,3 +377,7 @@
                                        (bar))))
                        (error (c)
                          (values nil t t))))))
+
+(assert (typep (eval `(the arithmetic-error
+                          ',(make-condition 'arithmetic-error)))
+              'arithmetic-error))

diff --git a/version.lisp-expr b/version.lisp-expr
index b6516e0..f875a95 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".)
-"0.8alpha.0.15"
+"0.8alpha.0.16"