Re: Why this hangs clisp?

> * <nfgronxbi@xxxxxxxxx> [2005-09-27 14:23:51 -0700]:
>
> (let ((files (list-directory "C:/Music")))
> (dolist (item files)
> (setq cmd-str (concatenate 'string "mpgtx -i " (namestring item)))
> (with-open-stream (*output* (ext:run-shell-command cmd-str :output
> :stream))
> (loop for line = (read-line *output* nil)
> when line do

while line

> (progn
> (format t "~a~%" line))))))

--
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.openvotingconsortium.org/> <http://pmw.org.il/>
<http://www.camera.org> <http://truepeace.org> <http://ffii.org/>
The early worm gets caught by the bird.
.