Commit bcff7e0a authored by pfdietz's avatar pfdietz
Browse files

Wrapped ignore-errors around defun of (setf ...) to avoid bombing the test suite.

parent 480c5efd
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment