diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp index cce0123c037ee923a35d7cc8bd8b90d4ac1451bc..35fb6d0f834659416aa0ed115c16434878bf450e 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))) +