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