From: Christophe R. <cr...@us...> - 2004-03-16 18:17:42
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32600/src/code Modified Files: print.lisp Log Message: 0.8.8.29: Fix for *PRINT-READABLY* printing of symbols ... *PRINT-READABLY* targets the /standard/ readtable, not the current readtable. Index: print.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/print.lisp,v retrieving revision 1.47 retrieving revision 1.48 diff -u -d -r1.47 -r1.48 --- print.lisp 8 Mar 2004 22:14:31 -0000 1.47 +++ print.lisp 16 Mar 2004 18:08:22 -0000 1.48 @@ -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 |