Commit d2d07659 authored by Daniel Kochmański's avatar Daniel Kochmański

tests: defsetf: add extended syntax test

Closes #6.
parent 187913a8
......@@ -154,3 +154,14 @@
(setf (defsetf.6-accessor x) 'c)
x))
c (c . b))
;;; 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))")))
(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