X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=c17846b9e0b1f5828c0a61be02c8d9de9c8ee881;hb=fdf46e7bd7aba9b5c8af629fdb2692d9b33b9207;hp=9d2ea8e7482972f459b632c9c405da4748c781e5;hpb=d6d76c98535bddabd73c6338f8393b6e698f297f;p=sbcl.git

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