Format character directive prints glyph for #\No-break_space

This restores ANSI-TEST compatibility for the FORMATTER.C.2A and
FORMAT.C.2A tests.

Addresses <http://abcl.org/trac/ticket/399>.
parent 95d8d950
......@@ -1929,7 +1929,9 @@
(defun format-print-named-character (char stream)
(let* ((name (char-name char)))
(cond (name
(cond ((and name
;;; Fixes ANSI-TEST FORMATTER.C.2A and FORMAT.C.2A
(not (eq 160 (char-code char))))
(write-string (string-capitalize name) stream))
(t
(write-char char stream)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment