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 <>
(let ((*read-suppress* t))
(with-input-from-string (s "")
(read s nil :eof)))
"Testing CL:READ when *READ-SUPPRESS* is t")
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