On Mon, Nov 18, 2002 at 11:00:13AM -0500, Matthew Danish wrote:
> The following code:
> (defun echo-unread-test ()
> (let* ((in-stream (make-string-input-stream "abc"))
> (out-stream (make-string-output-stream))
> (echo-stream (make-echo-stream in-stream out-stream)))
> (unread-char (read-char echo-stream) echo-stream)
> (peek-char #\a echo-stream)
> (get-output-stream-string out-stream)))
> should return "a" when called, but signals an error in SBCL.
> This is due to my previous patch, which fixed the problem with peek-char
> on echo-streams, but failed to completely implement the semantics of
> peek-char in combination with an echo-stream that had been operated on
> by unread-char.
> A patch against the latest stream.lisp is attached.
Thank you, I've merged this in sbcl-0.7.9.66.
William Harold Newman <william.newman@...>
"If you can't remember what mnemonic means, you've got a problem."
-- Wall, Christiansen, and Schwartz, _Programming Perl_, 2d edn., p. 548.
PGP key fingerprint 85 CE 1C BA 79 8D 51 8C B9 25 FB EE E0 C3 E5 7C