1 files changed, 8 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index f17e4ded..e834d0a6 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -64,4 +64,11 @@
 (defn fand (x y z)
       (if (and x y)
           x
-        (and x y z)))
-\ No newline at end of file
+        (and x y z)))
+
+(defn fset (x y z)
+      (set x a)
+      (set b y)
+      (if (set (:foo x) z)
+          (set (.bar y) z)
+        (set (foo x y) z)))
+\ No newline at end of file