From 61ea3cdabd4393c5f062f82bb980c5f341b8ab05 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 22 Mar 2005 13:58:15 +0000 Subject: [PATCH] defsetf.1 doesn't conform when compiled, so wrap the second form in an eval --- ansi-tests/defsetf.lsp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/ansi-tests/defsetf.lsp b/ansi-tests/defsetf.lsp index e78fe073..a026beff 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)))) -- GitLab