On 11/22/08, Dieter Kaiser <drdieterkaiser at web.de> wrote:
> --- commac.lisp 11 Oct 2008 16:38:01 -0000 1.54
> +++ commac.lisp 26 Oct 2008 14:06:35 -0000
> @@ -555,6 +555,10 @@
> (defvar *read-hang-prompt* "")
>
> (defun tyi-raw (&optional (stream *standard-input*) eof-option)
> + ;; Adding this extra EOF test, because the testsuite generates
> + ;; unexpected end of input-stream with Windows XP and GCL 2.6.8.
> + (when (eq (peek-char nil stream nil eof-option) eof-option)
> + (return-from tyi-raw eof-option))
> (let ((ch (read-char-no-hang stream nil eof-option)))
> (if ch
> ch
OK by me to commit this patch with #+gcl. I can test it on Linux.
best
Robert Dodier