diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 10a07c90c2d5d5364350bc50c7fece85a24d6cce..acf29d31b164f350ffb2412fd1ceae3b9312e289 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