Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv20721/tests
Modified Files:
compiler.pure.lisp
Log Message:
0.8alpha.0.16:
Fix for SXHASH on condition objects
... was causing compilation failures when referencing explicit
constant conditions
Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- compiler.pure.lisp 4 May 2003 19:20:33 -0000 1.33
+++ compiler.pure.lisp 7 May 2003 11:19:00 -0000 1.34
@@ -377,3 +377,7 @@
(bar))))
(error (c)
(values nil t t))))))
+
+(assert (typep (eval `(the arithmetic-error
+ ',(make-condition 'arithmetic-error)))
+ 'arithmetic-error))
|