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 41d871c..cdcc09b 100644 (file)
--- a/contrib/sb-aclrepl/toplevel.lisp
+++ b/contrib/sb-aclrepl/toplevel.lisp
@@ -55,8 +55,10 @@
         (results (multiple-value-list (sb-impl::interactive-eval form))))
     (unless *noprint*
       (dolist (result results)
-       (fresh-line)
-       (prin1 result)))))
+       ;; Don't fresh-line before a result, since newline was entered by user
+       ;; in *repl-read-form-fun*
+       (fresh-line *standard-output*)
+       (prin1 result *standard-output*)))))
 
 (defun repl-fun (noprint)
   (repl :noprint noprint :break-level 0))