diff --git a/src/org/armedbear/lisp/format.lisp b/src/org/armedbear/lisp/format.lisp index 0e5af9c525d3205e27194721411f07f585a88af6..bfc711b501d3261e6dd05fc0f3934b1f03e9da09 100644 --- a/src/org/armedbear/lisp/format.lisp +++ b/src/org/armedbear/lisp/format.lisp @@ -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)))))