From b420873de742dd0e9ff0d2231d2cc37cf6aba3f8 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Tue, 16 Mar 2004 18:08:22 +0000 Subject: [PATCH] 0.8.8.29: Fix for *PRINT-READABLY* printing of symbols ... *PRINT-READABLY* targets the /standard/ readtable, not the current readtable. --- NEWS | 2 ++ src/code/print.lisp | 9 +++++---- version.lisp-expr | 2 +- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/NEWS b/NEWS index 6a840a1..180f239 100644 --- a/NEWS +++ b/NEWS @@ -2358,6 +2358,8 @@ changes in sbcl-0.8.9 relative to sbcl-0.8.8: less than 10 works correctly. ** Reading floating-point numbers with *READ-BASE* set to a number more than 10 works correctly. + ** Printing with *PRINT-READABLY* targets the standard readtable, not + the readtable currently in effect. planned incompatible changes in 0.8.x: * (not done yet, but planned:) When the profiling interface settles 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 diff --git a/version.lisp-expr b/version.lisp-expr index 8edb825..16835dc 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.8.28" +"0.8.8.29" -- 1.7.10.4