X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcondition.pure.lisp;h=0a4dd84575f0371eb5b2c7aeb05190a626741093;hb=3a618201c9f2370bb8784217a866d000371769e5;hp=f594e99af6f2a9b48102ee70fc6643f2630f2370;hpb=6de1a3e9a75dcf54c6db2d5768afb8e41266a207;p=sbcl.git

diff --git a/tests/condition.pure.lisp b/tests/condition.pure.lisp
index f594e99..0a4dd84 100644
--- a/tests/condition.pure.lisp
+++ b/tests/condition.pure.lisp
@@ -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)))