X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-sxhash.lisp;h=cc574a5d11c3249ecb985fc08043d5a9c6db0b9a;hb=df679ed627975948b1cee190f4d79c397588c43e;hp=3df7c3d7172467405e5ef36e48039bf197d71ca7;hpb=b870615b146940f661e5d0e9069ca4e16e9f483d;p=sbcl.git

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