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