Skip to content
Snippets Groups Projects
Commit c1269f3b authored by Michał Herda's avatar Michał Herda :thinking:
Browse files

Fix DEFSETF.7A

parent ed4a6bd6
No related branches found
No related tags found
No related merge requests found
......@@ -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))
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