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