Skip to content
Snippets Groups Projects
Commit d2d07659 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

tests: defsetf: add extended syntax test

Closes #6.
parent 187913a8
No related branches found
No related tags found
No related merge requests found
...@@ -154,3 +154,14 @@ ...@@ -154,3 +154,14 @@
(setf (defsetf.6-accessor x) 'c) (setf (defsetf.6-accessor x) 'c)
x)) x))
c (c . b)) 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))
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