Commit d880405f authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

Merge branch 'defsetf.7a' into 'master'


Closes #19

See merge request !25
parents 1b8a8157 c1269f3b
......@@ -160,8 +160,7 @@
;;; Test that defsetf works with places
(deftest defsetf.7a
(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))
Supports Markdown
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