Gabor Melis <mega@hotpop.com> writes:
Reading a line from *query-io* two makes the next read-line return an empty string. Tested under cmucl/sbcl-mt with sigio/spawn. ...
CL-USER> (foo) 1 2 ("1" "" "2")
Gabor
I've run into a possibly similar problem with the slime repl for code that has a (read-line) following a (read). I'm running cmucl (April snapshot) with emacs 2.3.1. I'm using the CVS tarball of the 15th, and I've had the problem for at least a couple of weeks but I didn't report it because I thought I was doing something wrong in the more complex queries of my real program. The following stripped-down example runs okay with an empty (read-line) -- labeled as a hack in the listing. The original code runs properly in a terminal or under inferior-lisp-mode without slime. ;; ------- code follows (defvar value "") (defvar number "") (format t "Enter a number: ") (setf number (read)) ;;; **** HACK (when (find-package "SWANK-LOADER") (read-line)) (format t "Enter a string: ") (setf value (read-line)) (format t "NUMBER is now: ~A~%" number) (format t "VALUE is now: ~A~%" value) ;; ------- end of code ;; ------- output with the hack commented out CL-USER> (load #P"/home/loydf/pinfo/librarian/junk.lisp") ; Loading #p"/home/loydf/pinfo/librarian/junk.lisp". Enter a number: 3 Enter a string: NUMBER is now: 3 VALUE is now: T ;; ------- end of output I get no chance to enter an answer to the second real query. Similar code with a (read) following a (read-line) seems to run okay.