From b591218fe1dc3d0853a980da3e1d5510db2ddca6 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Thu, 26 Mar 1998 13:08:55 +0000
Subject: [PATCH] Bind *print-readably* to NIL in PRINC. Spotted by Sam
 Steingold.

---
 code/print.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/code/print.lisp b/code/print.lisp
index 87b41c2d9..80a1553f7 100644
--- a/code/print.lisp
+++ b/code/print.lisp
@@ -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)
 
-- 
GitLab