0.8.2.39:

[sbcl.git] / contrib / sb-aclrepl / toplevel.lisp

diff --git a/contrib/sb-aclrepl/toplevel.lisp b/contrib/sb-aclrepl/toplevel.lisp
index b3f96f5..cdcc09b 100644 (file)
--- a/contrib/sb-aclrepl/toplevel.lisp
+++ b/contrib/sb-aclrepl/toplevel.lisp
@@ -57,8 +57,8 @@
       (dolist (result results)
        ;; Don't fresh-line before a result, since newline was entered by user
        ;; in *repl-read-form-fun*
-       (prin1 result)
-       (fresh-line)))))
+       (fresh-line *standard-output*)
+       (prin1 result *standard-output*)))))
 
 (defun repl-fun (noprint)
   (repl :noprint noprint :break-level 0))