Commit 3c55f869 authored by Alan Ruttenberg's avatar Alan Ruttenberg

When *read-suppress* is t, a read should generally return nil, but it should...

When *read-suppress* is t, a read should generally return nil, but it should respect the EOF options. So (let ((*read-suppress* t)) (with-input-from-string (s ) (read s nil :eof))) should return :eof, but before this patch returns nil
parent 3670f78e
......@@ -515,6 +515,7 @@ public class Stream extends StructureObject {
return error(new StreamError(this, e));
}
}
if (!eofError && result == eofValue) return result;
if (Symbol.READ_SUPPRESS.symbolValue(thread) != NIL)
return NIL;
else
......
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