(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