From e88a11e118496669a4085cdb01d79408a1d543d7 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Tue, 4 Mar 2014 18:15:54 -0500 Subject: [PATCH] Have println and writeln flush their output stream. --- uiop/stream.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/uiop/stream.lisp b/uiop/stream.lisp index c138626a..464e933e 100644 --- a/uiop/stream.lisp +++ b/uiop/stream.lisp @@ -511,11 +511,11 @@ If a string, repeatedly read and evaluate from it, returning the last values." (with-upgradability () (defun println (x &optional (stream *standard-output*)) "Variant of PRINC that also calls TERPRI afterwards" - (princ x stream) (terpri stream) (values)) + (princ x stream) (terpri stream) (finish-output stream) (values)) (defun writeln (x &rest keys &key (stream *standard-output*) &allow-other-keys) "Variant of WRITE that also calls TERPRI afterwards" - (apply 'write x keys) (terpri stream) (values))) + (apply 'write x keys) (terpri stream) (finish-output stream) (values))) ;;; Using temporary files -- GitLab