Changeset 14889

Timestamp:

Jul 18, 2011, 4:33:52 PM (13 years ago)

Author:

gz

Message:

Add test for ~* error stack overflow

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1802 +1802 @@
     (eql 111 (aref m 2 3 4)))
   t)
+
+(deftest ccl.format-goto-error
+    (handler-case
+        (format nil "This is an error ~*~a")
+      (error (c)
+        (handler-case (progn
+                        (ccl::report-condition c (make-broadcast-stream))
+                        :win)
+          (error (cc) :error))))
+  :win)