stream-peek-char (stream)

Used to implement cl:peek-char; this corresponds to peek-type of nil. It returns either a character or :eof. The default method calls stream-read-char and stream-unread-char.