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