Add test case for ticket #23

diff --git a/tests/setf.lisp b/tests/setf.lisp
new file mode 100644 (file)
index 0000000..2107115
--- /dev/null
+++ b/tests/setf.lisp
@@ -0,0 +1,5 @@
+
+(test (= 2
+         (let ((x 0))
+           (incf x (setf x 1))
+           x)))