Skip to content
Snippets Groups Projects
Commit ae18401e authored by rtoy's avatar rtoy
Browse files

Fix up printing of symbols. Passes Paul Dietz's symbol printing

tests, now.  (Based on SBCL's fixes.)
parent 719b5219
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.91 2004/04/22 18:04:19 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.92 2004/04/22 21:31:14 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -648,10 +648,13 @@ ...@@ -648,10 +648,13 @@
;;; ;;;
(defun output-symbol-name (name stream &optional (maybe-quote t)) (defun output-symbol-name (name stream &optional (maybe-quote t))
(declare (type simple-base-string name)) (declare (type simple-base-string name))
(setup-printer-state) (let ((*readtable* (if *print-readably*
(if (and maybe-quote (symbol-quotep name)) std-lisp-readtable
(output-quoted-symbol-name name stream) *readtable*)))
(funcall *internal-symbol-output-function* name stream))) (setup-printer-state)
(if (and maybe-quote (symbol-quotep name))
(output-quoted-symbol-name name stream)
(funcall *internal-symbol-output-function* name stream))))
;;;; Escaping symbols: ;;;; Escaping symbols:
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment