X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Ftoplevel.lisp;h=cdcc09b7b5d452cec85a631e1070bf873ac88524;hb=e8f691fc1ba5e3aebc74fd8723c7cc550a4f1e35;hp=b3f96f550904c333d0fb9d2653a2a5fd382e46ef;hpb=541c9393cf9d9b61271c5f087020d34547603a34;p=sbcl.git

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