From f7dc9e81b8e054ecc35ba60bf7f4102065839498 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 14 Sep 2000 14:31:52 +0000 Subject: [PATCH] Have interactive-eval flush the standard output streams, avoiding confusing output noted by Tunc Simsek. --- code/lispinit.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 10a07c90c..acf29d31b 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.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/lispinit.lisp,v 1.59 2000/01/17 16:45:56 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.60 2000/09/14 14:31:52 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -537,6 +537,7 @@ +, ///, //, /, and -." (setf - form) (let ((results (multiple-value-list (eval form)))) + (finish-standard-output-streams) (setf /// // // / / results -- GitLab