[movitz-cvs] CVS update: movitz/losp/lib/repl.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/lib
In directory common-lisp.net:/tmp/cvs-serv2608

Modified Files:
	repl.lisp 
Log Message:
In read-eval-print, output a fresh-line immediately before evaluating,
so the user can know he did in fact hit enter.

Date: Wed Mar 31 11:38:21 2004
Author: ffjeld

Index: movitz/losp/lib/repl.lisp
diff -u movitz/losp/lib/repl.lisp:1.8 movitz/losp/lib/repl.lisp:1.9
--- movitz/losp/lib/repl.lisp:1.8	Mon Mar 29 14:16:19 2004
+++ movitz/losp/lib/repl.lisp	Wed Mar 31 11:38:20 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Mar 19 14:58:12 2003
 ;;;;                
-;;;; $Id: repl.lisp,v 1.8 2004/03/29 19:16:19 ffjeld Exp $
+;;;; $Id: repl.lisp,v 1.9 2004/03/31 16:38:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -52,6 +52,7 @@
 		      (invoke-restart 'muerte::next-line
 				      (muerte.readline:contextual-readline *repl-readline-context*)))))
 		(simple-read-from-string buffer-string t t))
+	    (fresh-line)		; Let the user know something happened.
 	    (flet ((process-expresion (form previous-package printp &rest results)
 		     (declare (dynamic-extent results))
 		     (unless (packagep *package*)