X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcondition.pure.lisp;h=cddc4be1227413119d980379093dd3f4ec0c6fc6;hb=9b55754d5328a5f44ee224d32865fc8dadee123b;hp=370ce4b43c6bc79094f1f380842ea56b9e177092;hpb=dfa8294a1580e8aa099a92baebba7d9caddb2fcb;p=sbcl.git

diff --git a/tests/condition.pure.lisp b/tests/condition.pure.lisp
index 370ce4b..cddc4be 100644
--- a/tests/condition.pure.lisp
+++ b/tests/condition.pure.lisp
@@ -140,3 +140,14 @@
   (test t)
   (test 42)
   (test (make-instance 'standard-object)))
+
+;;; If CERROR is given a condition, any remaining arguments are only
+;;; used for the continue format control.
+(let ((x 0))
+  (handler-bind
+      ((simple-error (lambda (c) (incf x) (continue c))))
+    (cerror "Continue from ~A at ~A"
+            (make-condition 'simple-error :format-control "foo"
+                            :format-arguments nil)
+            'cerror (get-universal-time))
+    (assert (= x 1))))