|
Last change
on this file was
15210,
checked in by Mark Evenson, 5 years ago
|
|
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.
|
|
File size:
307 bytes
|
| Line | |
|---|
| 1 | (in-package :cl-user) |
|---|
| 2 | |
|---|
| 3 | (prove:plan 1) |
|---|
| 4 | |
|---|
| 5 | ;;; Test for <https://github.com/armedbear/abcl/commit/dbba85a710ecc1baaafda38e820cf7fce40b05e5> |
|---|
| 6 | (prove:is |
|---|
| 7 | (let ((*read-suppress* t)) |
|---|
| 8 | (with-input-from-string (s "") |
|---|
| 9 | (read s nil :eof))) |
|---|
| 10 | :eof |
|---|
| 11 | "Testing CL:READ when *READ-SUPPRESS* is t") |
|---|
| 12 | |
|---|
| 13 | (prove:finalize) |
|---|
| 14 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
