Plaster
New
List
Login
text
default
phoe
2019.11.15 12:59:23
(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))
Raw
Annotate
Repaste