[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-serv9890

Modified Files:
	repl.lisp 
Log Message:
Slightly better default-repl-prompter.

Date: Fri Apr 23 10:59:35 2004
Author: ffjeld

Index: movitz/losp/lib/repl.lisp
diff -u movitz/losp/lib/repl.lisp:1.10 movitz/losp/lib/repl.lisp:1.11
--- movitz/losp/lib/repl.lisp:1.10	Tue Apr  6 10:37:04 2004
+++ movitz/losp/lib/repl.lisp	Fri Apr 23 10:59:35 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.10 2004/04/06 14:37:04 ffjeld Exp $
+;;;; $Id: repl.lisp,v 1.11 2004/04/23 14:59:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -29,7 +29,7 @@
 
 (defun default-repl-prompter ()
   (fresh-line)
-  (when (plusp *repl-level*)
+  (when (or (plusp *repl-level*) *repl-prompt-context*)
     (format t "[~D~@[~A~]] " *repl-level* *repl-prompt-context*))
   (format t "~A> " (package-name *package*)))