Skip to content
Snippets Groups Projects
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
Branches issue-100-ldb-base-char-printing
No related tags found
No related merge requests found
...@@ -40,11 +40,6 @@ ...@@ -40,11 +40,6 @@
(defun defun-test-fun-4 (x) (defun defun-test-fun-4 (x)
(car 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 (deftest defun.4
(let ((x (list 'a 'b))) (let ((x (list 'a 'b)))
(values (values
...@@ -53,6 +48,9 @@ ...@@ -53,6 +48,9 @@
c c
(c b)) (c b))
(defun (setf defun-test-fun-4) (newval x)
(return-from defun-test-fun-4 (setf (car x) newval)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment