diff --git a/ansi-tests/defsetf.lsp b/ansi-tests/defsetf.lsp index e78fe073c9c084800fe78ed3cc749ea4c54e768e..a026beff4357918b7f16281da021bd94511f8673 100644 --- a/ansi-tests/defsetf.lsp +++ b/ansi-tests/defsetf.lsp @@ -19,14 +19,14 @@ (setf (cadr x) val)) (deftest defsetf.1 - (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))) + (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)) + (eval + '(let ((x (list 1 2 3))) (values (setf (defsetf.1-accessor x) 4) x))))