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

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 5aca94f..6a18d72 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -410,4 +410,6 @@
 (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"))
 ;;; success