Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv6348
Modified Files: repl.lisp Log Message: Use just readline if there is no *repl-readline-context*.
Date: Sun Aug 28 23:12:27 2005 Author: ffjeld
Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.15 movitz/losp/lib/repl.lisp:1.16 --- movitz/losp/lib/repl.lisp:1.15 Wed Mar 9 08:16:48 2005 +++ movitz/losp/lib/repl.lisp Sun Aug 28 23:12:27 2005 @@ -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.15 2005/03/09 07:16:48 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.16 2005/08/28 21:12:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -52,7 +52,10 @@ (funcall *repl-prompter*))) (handler-case (let ((previous-package *package*) - (buffer-string (muerte.readline:contextual-readline *repl-readline-context*))) + (buffer-string + (if *repl-readline-context* + (muerte.readline:contextual-readline *repl-readline-context*) + (muerte.readline:readline (make-string 256) *terminal-io*)))) (when (plusp (length buffer-string)) (terpri) (multiple-value-bind (form buffer-pointer)