[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-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 at 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)