From d6a6666797287f9c19866a1ef590d32cfcdeaef7 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 22 Mar 2005 13:57:07 +0000 Subject: [PATCH] defsetf.1 doesn't conform when compiled, so wrap in eval --- ansi-tests/defsetf.lsp | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/ansi-tests/defsetf.lsp b/ansi-tests/defsetf.lsp index 1cdcbc9e..e78fe073 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)) -- GitLab