0.8.5.20:

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

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*)))))
 

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"