read-until-match stream terminal => string
Read characters from STREAM until a sequence equal to string TERMINAL is read.
Return all characters read as string omitting TERMINAL itself. Signal error upon
read-heredoc stream char arg => string
Return string from STREAM up to the point where the string read first until CHAR
is encountered. All evaluation is completely turned off so no quoting is
required at all.
CL-USER> (set-dispatch-macro-character ## #> #'cl-heredoc:read-heredoc)
CL-USER> #>eof>Write whatever (you) "want"!eof => Write whatever (you) "want"!