Skip to content
Snippets Groups Projects
Commit d6a66667 authored by pfdietz's avatar pfdietz
Browse files

defsetf.1 doesn't conform when compiled, so wrap in eval

parent c7481dbd
No related branches found
No related tags found
No related merge requests found
...@@ -19,16 +19,17 @@ ...@@ -19,16 +19,17 @@
(setf (cadr x) val)) (setf (cadr x) val))
(deftest defsetf.1 (deftest defsetf.1
(progn (eval
(let ((vals (multiple-value-list '(progn
(defsetf defsetf.1-accessor defsetf.1-accessor-settor)))) (let ((vals (multiple-value-list
(assert (equal vals '(defsetf.1-accessor)) (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))) "Return values are ~A~%" vals))
(values (let ((x (list 1 2 3)))
(setf (defsetf.1-accessor x) 4) (values
x))) (setf (defsetf.1-accessor x) 4)
x))))
4 4
(1 4 3)) (1 4 3))
......
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