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