X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fprint.lisp;h=4981c77f2e0a32f9b8354b5fb5531509e9b7e04b;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=d27924ae6358228662533fb53386ab5673081ad1;hpb=e5e1b41799b814bca18e5f6e5c10b12d06c35c46;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index d27924a..4981c77 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -598,10 +598,11 @@
 ;;; READTABLE-CASE.
 (defun output-symbol-name (name stream &optional (maybe-quote t))
   (declare (type simple-string name))
-  (setup-printer-state)
-  (if (and maybe-quote (symbol-quotep name))
-      (output-quoted-symbol-name name stream)
-      (funcall *internal-symbol-output-fun* name stream)))
+  (let ((*readtable* (if *print-readably* *standard-readtable* *readtable*)))
+    (setup-printer-state)
+    (if (and maybe-quote (symbol-quotep name))
+	(output-quoted-symbol-name name stream)
+	(funcall *internal-symbol-output-fun* name stream))))
 
 ;;;; escaping symbols