From 167783bfb18752b93ab76993a39bc5161a73448a Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 7 May 2003 11:18:59 +0000 Subject: [PATCH] 0.8alpha.0.16: Fix for SXHASH on condition objects ... was causing compilation failures when referencing explicit constant conditions --- NEWS | 2 +- src/code/target-sxhash.lisp | 2 +- tests/compiler.pure.lisp | 4 ++++ version.lisp-expr | 2 +- 4 files changed, 7 insertions(+), 3 deletions(-) diff --git a/NEWS b/NEWS index 92d3a42..33c7dc4 100644 --- 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 --- 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 --- 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 --- 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" -- 1.7.10.4