- assert-curr-char CHAR-LIST STRING #!optional PORTprocedure
Reads a character from the PORT and looks it up in the CHAR-LIST of expected characters. If the read character was found among expected, it is returned Otherwise, the procedure writes a nasty message using STRING as a comment, and quits.
The optional argument PORT defaults to the current input port.