Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
user avatar
rtoy authored
    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.
668b13f5
History
Name Last commit Last update