mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-15 05:43:19 -08:00
The output of FORMAT's ~:C must be exactly the same as CHAR-NAME.
This commit is contained in:
parent
5986c0d6e3
commit
d802ffb463
1 changed files with 1 additions and 1 deletions
|
|
@ -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))))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue