[Sbcl-commits] CVS: sbcl/tests condition.pure.lisp,1.4,1.5

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13395/tests

Modified Files:
	condition.pure.lisp 
Log Message:
0.8.10.74:
	Sneaking in under the wire before the door is bolted
	... it's a pure bugfix anyway: make the CONTROL-ERROR in
		FIND-RESTART-OR-CONTROL-ERROR be printable


Index: condition.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/condition.pure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- condition.pure.lisp	15 Nov 2003 15:21:01 -0000	1.4
+++ condition.pure.lisp	1 Jun 2004 10:36:27 -0000	1.5
@@ -106,3 +106,11 @@
 ;;; indeed, only declarations)
 (assert 
  (null (handler-case (error "foo") (error () (declare (optimize speed))))))
+
+(handler-case
+    (handler-bind ((warning #'muffle-warning))
+      (signal 'warning))
+  ;; if it's a control error, it had better be printable
+  (control-error (c) (format nil "~A" c))
+  ;; there had better be an error
+  (:no-error (&rest args) (error "No error: ~S" args)))