diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-17 10:56:38 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-17 10:58:09 -0700 |
| commit | 758289cd702a741cad2c2461b997cdb5e41ab3ea (patch) | |
| tree | 79141a38e1ce463446e5ad1a7c673c9f836fc4ed | |
| parent | f70878a4b404dccd50fb3f9b82267d8362bb9b7c (diff) | |
| download | consfigurator-758289cd702a741cad2c2461b997cdb5e41ab3ea.tar.gz | |
tests/reader.lisp: perl-tilde-reader.6: bind *READTABLE*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | tests/reader.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/reader.lisp b/tests/reader.lisp index eb4feec..19b680a 100644 --- a/tests/reader.lisp +++ b/tests/reader.lisp @@ -56,7 +56,9 @@ line 2 t) (deftest perl-tilde-reader.6 - (handler-case (read-from-string "(#!/bar/ \"foo\")") + (handler-case (let ((*readtable* + (named-readtables:find-readtable :consfigurator))) + (read-from-string "(#!/bar/ \"foo\")")) (simple-reader-error (err) (format nil (simple-condition-format-control err)))) "Expected \"~\" following \"!\".") |