From d2d0765979299167f0796ccd9663133a5ef045d2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Fri, 12 Feb 2016 21:50:34 +0100 Subject: [PATCH] tests: defsetf: add extended syntax test Closes #6. --- data-and-control-flow/defsetf.lsp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/data-and-control-flow/defsetf.lsp b/data-and-control-flow/defsetf.lsp index 89d5c58e..dc8904b2 100644 --- a/data-and-control-flow/defsetf.lsp +++ b/data-and-control-flow/defsetf.lsp @@ -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)) -- GitLab