Commit 7313eb9a authored by pfdietz's avatar pfdietz
Browse files

Fixed problem that was breaking the load in gcl.

parent ddff5720
......@@ -53,9 +53,7 @@
c
(c b))
(defun (setf defun-test-fun-4) (newval x)
(return-from defun-test-fun-4 (setf (car x) newval)))
(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)))))
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