From 79a29d16d4721384f7af4b11827dc094509b3af9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 26 Jan 1992 07:36:36 +0000 Subject: [PATCH] Fixed PPRINT to call OUT-SYNONYM-OF on it's stream argument so that it will actually work for the ``streams'' T and NIL. --- code/print.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/print.lisp b/code/print.lisp index 385910c74..415c67ecc 100644 --- a/code/print.lisp +++ b/code/print.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.32 1992/01/02 23:44:17 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.33 1992/01/26 07:36:36 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -178,7 +178,8 @@ (defun pprint (object &optional stream) "Prettily outputs the Object preceded by a newline." (let ((*print-pretty* t) - (*print-escape* t)) + (*print-escape* t) + (stream (out-synonym-of stream))) (terpri stream) (output-object object stream)) (values)) -- GitLab