0.8.5.20:

	* contrib/sb-aclrepl/toplevel.lisp: Commit patch from David
	Lictheblau to better support multiple listener processes.

diff --git a/contrib/sb-aclrepl/toplevel.lisp b/contrib/sb-aclrepl/toplevel.lisp
index cdcc09b..4b418d3 100644 (file)
--- 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*)))))
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 2bad905..4d83863 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.5.19"
+"0.8.5.20"