0.8.9.45:

[sbcl.git] / src / code / print.lisp

diff --git a/src/code/print.lisp b/src/code/print.lisp
index d27924a..4981c77 100644 (file)
--- 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))))
 \f
 ;;;; escaping symbols