diff --git a/ansi-tests/defsetf.lsp b/ansi-tests/defsetf.lsp index 1cdcbc9ec9f074e71d22e91f9188cae06c8a78d1..e78fe073c9c084800fe78ed3cc749ea4c54e768e 100644 --- a/ansi-tests/defsetf.lsp +++ b/ansi-tests/defsetf.lsp @@ -19,16 +19,17 @@ (setf (cadr x) val)) (deftest defsetf.1 - (progn - (let ((vals (multiple-value-list - (defsetf defsetf.1-accessor defsetf.1-accessor-settor)))) - (assert (equal vals '(defsetf.1-accessor)) - () - "Return values are ~A~%" vals)) - (let ((x (list 1 2 3))) - (values - (setf (defsetf.1-accessor x) 4) - x))) + (eval + '(progn + (let ((vals (multiple-value-list + (defsetf defsetf.1-accessor defsetf.1-accessor-settor)))) + (assert (equal vals '(defsetf.1-accessor)) + () + "Return values are ~A~%" vals)) + (let ((x (list 1 2 3))) + (values + (setf (defsetf.1-accessor x) 4) + x)))) 4 (1 4 3))