X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Ftoplevel.lisp;h=4b418d3609a530d32cb5d1c9526441f156726219;hb=837bd0de8dabfd4199e886397420a9d912681396;hp=cdcc09b7b5d452cec85a631e1070bf873ac88524;hpb=79c8aba8d1af834f7c1db289f33ede663fdbb7eb;p=sbcl.git

diff --git a/contrib/sb-aclrepl/toplevel.lisp b/contrib/sb-aclrepl/toplevel.lisp
index cdcc09b..4b418d3 100644
--- a/contrib/sb-aclrepl/toplevel.lisp
+++ b/contrib/sb-aclrepl/toplevel.lisp
@@ -21,7 +21,11 @@
   (let ((*noprint* noprint)
 	(*break-level* break-level)
 	(*inspect-break* inspect)
-	(*continuable-break* continuable))
+	(*continuable-break* continuable)
+	(*dir-stack* nil)
+	(*history* nil)
+	(*cmd-number* 1)
+	(*package* *package*))
     (sb-int:/show0 "entering REPL")
     (loop
      (multiple-value-bind (reason reason-param)
@@ -55,8 +59,11 @@
 	 (results (multiple-value-list (sb-impl::interactive-eval form))))
     (unless *noprint*
       (dolist (result results)
-	;; Don't fresh-line before a result, since newline was entered by user
-	;; in *repl-read-form-fun*
+	;; FIXME: Calling fresh-line before a result ensures the result starts
+	;; on a newline, but it usually generates an empty line.
+	;; One solution would be to have the newline's entered on the
+	;; input stream inform the output stream that the column should be
+	;; reset to the beginning of the line.
 	(fresh-line *standard-output*)
 	(prin1 result *standard-output*)))))