diff --git a/code/print.lisp b/code/print.lisp index 87b41c2d9f67fd439ea0e2e4935fa13e27e338a0..80a1553f71873f84dae7c2c49c8b1d786a5d545c 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)