Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv20721/src/code
Modified Files:
target-sxhash.lisp
Log Message:
0.8alpha.0.16:
Fix for SXHASH on condition objects
... was causing compilation failures when referencing explicit
constant conditions
Index: target-sxhash.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-sxhash.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- target-sxhash.lisp 1 Apr 2003 14:14:12 -0000 1.13
+++ target-sxhash.lisp 7 May 2003 11:19:00 -0000 1.14
@@ -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
|