Commit e88a11e1 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Have println and writeln flush their output stream.

parent 32cde3ba
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment