From d802ffb463198ff53e597403fb7cdd912a845da8 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sat, 25 Dec 2010 20:25:21 +0100
Subject: [PATCH] The output of FORMAT's ~:C must be exactly the same as
 CHAR-NAME.

---
 src/lsp/format.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp
index 1430b8abc..3f4fbb715 100644
--- a/src/lsp/format.lsp
+++ b/src/lsp/format.lsp
@@ -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))))