diff options
Diffstat (limited to 'tests/reader.lisp')
| -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 \"!\".") |