From: David Vázquez <davazp@gmail.com>
Date: Thu, 25 Apr 2013 22:03:24 +0000 (+0100)
Subject: Add test case for ticket #23
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=68c717b14f4bd94a041115f15d192a0c28714b6c;p=jscl.git

Add test case for ticket #23
---

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