Fix test

diff --git a/tests/read.lisp b/tests/read.lisp
index b8e851c..ddcc647 100644 (file)
--- a/tests/read.lisp
+++ b/tests/read.lisp
@@ -2,4 +2,5 @@
 ;; or when test macro supports error handling, whichever comes first
 ;; (test (equal (read-from-string " 1 3 5" t nil :start 2) (values 3 5)))
 (expected-failure
- (equal (read-from-string "(a b c)") (values '(A B C) 7)))
+ (equal (multiple-value-list (read-from-string "(a b c)"))
+        '((A B C) 7)))