From bcff7e0a14b22a893282cfa9bde948d8449df6e7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 15 Mar 2003 19:18:25 +0000
Subject: [PATCH] Wrapped ignore-errors around defun of (setf ...) to avoid
 bombing the test suite.

---
 ansi-tests/defun.lsp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp
index cce0123c..35fb6d0f 100644
--- a/ansi-tests/defun.lsp
+++ b/ansi-tests/defun.lsp
@@ -40,11 +40,6 @@
 (defun defun-test-fun-4 (x)
   (car x))
 
-(eval-when (load eval compile)
-  (ignore-errors
-    (defun (setf defun-test-fun-4) (newval x)
-      (return-from defun-test-fun-4 (setf (car x) newval)))))
-
 (deftest defun.4
   (let ((x (list 'a 'b)))
     (values
@@ -53,6 +48,9 @@
   c
   (c b))
 
+(defun (setf defun-test-fun-4) (newval x)
+  (return-from defun-test-fun-4 (setf (car x) newval)))
+
 
 
 
-- 
GitLab