Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv30553
Modified Files: repl.lisp Log Message: Minor edits.
Date: Thu Mar 25 20:36:30 2004 Author: ffjeld
Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.5 movitz/losp/lib/repl.lisp:1.6 --- movitz/losp/lib/repl.lisp:1.5 Wed Mar 24 19:40:35 2004 +++ movitz/losp/lib/repl.lisp Thu Mar 25 20:36:30 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.5 2004/03/25 00:40:35 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.6 2004/03/26 01:36:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -45,12 +45,12 @@ (terpri) (multiple-value-bind (form buffer-pointer) (handler-bind - (#+ignore (muerte::missing-delimiter - (lambda (c) - (declare (ignore c)) - (format t "~&> ") - (invoke-restart 'muerte::next-line - (muerte.readline:contextual-readline *repl-readline-context*))))) + ((muerte::missing-delimiter + (lambda (c) + (declare (ignore c)) + (format t "~&> ") + (invoke-restart 'muerte::next-line + (muerte.readline:contextual-readline *repl-readline-context*))))) (simple-read-from-string buffer-string t t)) (multiple-value-call (lambda (form previous-package &rest results) @@ -74,11 +74,11 @@ (apply 'muerte.toplevel:invoke-toplevel-command form (loop for arg = (multiple-value-bind (arg x) - (simple-read-from-string buffer-string nil 'eof + (simple-read-from-string buffer-string nil '#0=#:eof :start buffer-pointer) (setq buffer-pointer x) arg) - until (eq arg 'eof) + until (eq arg '#0#) collect arg))))))) #+ignore (muerte.readline::readline-break (c) (declare (ignore c))