From 3e1f7cb45ac17e7f133474c0c62197d118f09614 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 1 May 2013 13:50:19 +0100 Subject: [PATCH] Fix test --- tests/read.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/read.lisp b/tests/read.lisp index b8e851c..ddcc647 100644 --- 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))) -- 1.7.10.4