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