Skip to content
Snippets Groups Projects
Commit 0bbd4f0e authored by wlott's avatar wlott
Browse files

Fixed OUTPUT-SYMBOL to no longer call CHECK-FOR-CIRCULARITY now that

OUTPUT-OBJECT does it for us.  This was causing gensyms to print as #1=#1#
when *PRINT-CIRCLE* was T.
parent 327aae7a
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.43 1992/06/14 07:08:27 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.44 1992/07/28 01:57:31 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -606,13 +606,6 @@ ...@@ -606,13 +606,6 @@
(write-char #\: stream)) (write-char #\: stream))
;; Uninterned symbols print with a leading #:. ;; Uninterned symbols print with a leading #:.
((null package) ((null package)
(when (or *print-circle* *print-readably*)
(let ((marker (check-for-circularity object t)))
(case marker
((:initiate nil))
(t
(unless (handle-circularity marker stream)
(return-from output-symbol nil))))))
(when (or *print-gensym* *print-readably*) (when (or *print-gensym* *print-readably*)
(write-string "#:" stream))) (write-string "#:" stream)))
(t (t
......
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