Commit d880405f authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

Merge branch 'defsetf.7a' into 'master'

Fix DEFSETF.7A

Closes #19

See merge request !25
parents 1b8a8157 c1269f3b
...@@ -160,8 +160,7 @@ ...@@ -160,8 +160,7 @@
;;; Test that defsetf works with places ;;; Test that defsetf works with places
(deftest defsetf.7a (deftest defsetf.7a
(progn (progn
(defsetf access-fn (x) (val-1 val-2) (eval '(defsetf access-fn (x) (val-1 val-2)
`(list ,x ,val-1 ,val-2)) `(list ,x ,val-1 ,val-2)))
(eval (read-from-string (eval '(setf (access-fn 1) (values 2 3))))
"(setf (access-fn 1) (values 2 3))")))
(1 2 3)) (1 2 3))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment