From: Christophe R. <cr...@us...> - 2003-05-07 11:19:03
|
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)) |