X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=6d8072f0d91539a34a5f4fd89bdb11c36e4e974a;hb=ddaf14f0438b5252d4d5d149f65921795c9a771d;hp=5aca94fc65f67896a72c79a87343815f7711bf49;hpb=8f41e246101ca3906d6c77da51c9de5601777b28;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 5aca94f..6d8072f 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -410,4 +410,10 @@
 (with-test (:name (:print-readable :character :iso-8859-1))
   (test-readable-character (code-char #xfffe) :iso-8859-1))
 
+(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