Consumes one character from the input stream.
(defmacro eat () "Consumes one character from the input stream." `(read-char (state-stream s)))