X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Ftoplevel.lisp;h=cdcc09b7b5d452cec85a631e1070bf873ac88524;hb=77af6d16968262049d6dadfb5521af7a8a7c6868;hp=41d871ce74822a8c9e298ab14371bed7866edf5a;hpb=b79fc0e07dc40c8c0f7b59e0fa6006042986758a;p=sbcl.git

diff --git a/contrib/sb-aclrepl/toplevel.lisp b/contrib/sb-aclrepl/toplevel.lisp
index 41d871c..cdcc09b 100644
--- 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))