Skip to content
Snippets Groups Projects
Commit 668b13f5 authored by rtoy's avatar rtoy
Browse files

Bug from cmucl-imp, 2005-05-17 by Fredrik Sandstrom:

    Description: In (peek-char nil s nil foo), if foo happens to be the
    same character that peek-char returns, the character is removed from
    the input stream, as if read by read-char.

    Examples:

    * (with-input-from-string (s "123")
	(list (peek-char nil s nil #\1) (read-char s) (read-char s)))
    (#\1 #\2 #\3)

This fix is based on the version proposed by Rudi Schlatte, with minor
changes in naming.
parent 9976492d
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment