X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=6d8072f0d91539a34a5f4fd89bdb11c36e4e974a;hb=90c2b0563695904419451b6172efcf9c7008ad8b;hp=6a18d728c3d93e481e6dac3048b1f1e038157b30;hpb=01d3afd8254db54a95552d6e4d09f54a9c970449;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 6a18d72..6d8072f 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -412,4 +412,8 @@
 
 (assert (string= (eval '(format nil "~:C" #\a)) "a"))
 (assert (string= (format nil (formatter "~:C") #\a) "a"))
+
+;;; This used to trigger an AVER instead.
+(assert (raises-error? (format t "~>") sb-format:format-error))
+
 ;;; success