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