From ad052f4c21666df94a2355126d1fce6bfba0a7cd Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Wed, 18 Oct 2017 23:24:19 +0200 Subject: [PATCH] tests: Fix :RESTART-BOGUS-ARG-TO-VALUES-LIST-ERROR interface.pure.lisp --- tests/interface.pure.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp index 3d6216f3e..daa411f2f 100644 --- a/tests/interface.pure.lisp +++ b/tests/interface.pure.lisp @@ -301,7 +301,8 @@ (assert (= (eval '(cons 1)) 123)))) (with-test (:name :restart-bogus-arg-to-values-list-error) - (handler-bind ((error #'continue)) - (assert (= (funcall (checked-compile `(lambda (x) (values-list x))) - '(1 2 3 4 5 6 7 8 . 10)) - '(1 2 3 4 5 6 7 8))))) + (let ((fun (checked-compile `(lambda (x) (values-list x))))) + (assert (equal (handler-bind ((error #'continue)) + (multiple-value-list + (funcall fun '(1 2 3 4 5 6 7 8 . 10)))) + '(1 2 3 4 5 6 7 8))))) -- 2.11.4.GIT