The output of FORMAT's ~:C must be exactly the same as CHAR-NAME.

This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-25 20:25:21 +01:00
parent 5986c0d6e3
commit d802ffb463

View file

@ -895,7 +895,7 @@
(defun format-print-named-character (char stream)
(cond ((not (char-printing-p char))
(write-string (string-capitalize (char-name char)) stream))
(write-string (char-name char) stream))
(t
(write-char char stream))))