Commit c1269f3b authored by Michał Herda's avatar Michał Herda 🤔

Fix DEFSETF.7A

parent ed4a6bd6
......@@ -160,8 +160,7 @@
;;; Test that defsetf works with places
(deftest defsetf.7a
(progn
(defsetf access-fn (x) (val-1 val-2)
`(list ,x ,val-1 ,val-2))
(eval (read-from-string
"(setf (access-fn 1) (values 2 3))")))
(eval '(defsetf access-fn (x) (val-1 val-2)
`(list ,x ,val-1 ,val-2)))
(eval '(setf (access-fn 1) (values 2 3))))
(1 2 3))
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