Skip to content
Snippets Groups Projects
Commit b591218f authored by pw's avatar pw
Browse files

Bind *print-readably* to NIL in PRINC. Spotted by Sam Steingold.

parent 795f987a
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.68 1998/03/21 08:12:03 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.69 1998/03/26 13:08:55 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -161,7 +161,8 @@
(defun princ (object &optional stream)
"Outputs an asthetic but not READable printed representation of OBJECT on the
specified stream."
(let ((*print-escape* NIL))
(let ((*print-escape* NIL)
(*print-readably* NIL))
(output-object object (out-synonym-of stream)))
object)
......
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