Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
d2d07659
Commit
d2d07659
authored
Feb 12, 2016
by
Daniel Kochmański
Browse files
tests: defsetf: add extended syntax test
Closes #6.
parent
187913a8
Changes
1
Hide whitespace changes
Inline
Side-by-side
data-and-control-flow/defsetf.lsp
View file @
d2d07659
...
...
@@ -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))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment