(peek-char &optional (peek-type null) (stream $stdin) (eof-error? true) (eof-value null))
Peeks at a character from a TextReader stream.
peek-char is equivalent to
read-char followed by
ends up peeking at the first non-whitespace character (by really reading the
whitespace characters). When
peek-type is a character,
peek-char ends up
peeking at that character (by really reading the characters that are not equal).