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