diff --git a/ansi-tests/defmethod.lsp b/ansi-tests/defmethod.lsp index 625430d95ba177391c1320e0e644d45aa28a1603..4971b6bc7a54512e44f06989448564a8c5fe645c 100644 --- a/ansi-tests/defmethod.lsp +++ b/ansi-tests/defmethod.lsp @@ -206,8 +206,8 @@ (deftest defmethod.error.13 (let ((sym (gensym))) (eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t)) x))) - (list (eval `(signals-error (,sym) program-error)) - (eval `(signals-error (,sym 1 2) program-error)))) + (values (eval `(signals-error (,sym) program-error)) + (eval `(signals-error (,sym 1 2) program-error)))) t t)