Commit 61ea3cda authored by pfdietz's avatar pfdietz

defsetf.1 doesn't conform when compiled, so wrap the second form in an eval

parent d6a66667
......@@ -19,14 +19,14 @@
(setf (cadr x) val))
(deftest defsetf.1
(eval
'(progn
(let ((vals (multiple-value-list
(defsetf defsetf.1-accessor defsetf.1-accessor-settor))))
(assert (equal vals '(defsetf.1-accessor))
()
"Return values are ~A~%" vals))
(let ((x (list 1 2 3)))
(progn
(let ((vals (multiple-value-list
(defsetf defsetf.1-accessor defsetf.1-accessor-settor))))
(assert (equal vals '(defsetf.1-accessor))
()
"Return values are ~A~%" vals))
(eval
'(let ((x (list 1 2 3)))
(values
(setf (defsetf.1-accessor x) 4)
x))))
......
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