diff --git a/data-and-control-flow/defsetf.lsp b/data-and-control-flow/defsetf.lsp index 89d5c58ecf1940e700baa1ff26a8175ec378981b..dc8904b2892110fa22a0ed40979a944823682058 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))