From 758289cd702a741cad2c2461b997cdb5e41ab3ea Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 17 Mar 2023 10:56:38 -0700 Subject: tests/reader.lisp: perl-tilde-reader.6: bind *READTABLE* Signed-off-by: Sean Whitton --- tests/reader.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/reader.lisp') 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 \"!\".") -- cgit v1.2.3