X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=d27924ae6358228662533fb53386ab5673081ad1;hb=56a972e201d117a8d5d769527f2bafd23cba7de9;hp=96823725f73e9f0090bb3ab5f66d71e095ae1586;hpb=0728e7b99692f32f23ba63be90c56f4a3358e692;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 9682372..d27924a 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1528,9 +1528,10 @@
 ;;; the character name or the character in the #\char format.
 (defun output-character (char stream)
   (if (or *print-escape* *print-readably*)
-      (let ((name (char-name char)))
+      (let ((graphicp (graphic-char-p char))
+	    (name (char-name char)))
 	(write-string "#\\" stream)
-	(if name
+	(if (and name (not graphicp))
 	    (quote-string name stream)
 	    (write-char char stream)))
       (write-char char stream)))