Commit 3670f78e authored by Mark Evenson's avatar Mark Evenson

Test for CL:READ respecting EOF options

When CL:*READ-SUPPRESS* is t, a CL:read should generally return nil,
but it should respect the EOF options.
parent 2e23b580
(in-package :cl-user)
(prove:plan 1)
;;; Test for <https://github.com/armedbear/abcl/commit/dbba85a710ecc1baaafda38e820cf7fce40b05e5>
(prove:is
(let ((*read-suppress* t))
(with-input-from-string (s "")
(read s nil :eof)))
:eof
"Testing CL:READ when *READ-SUPPRESS* is t")
(prove:finalize)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment