1 files changed, 11 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index e834d0a6..16c047bd 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -71,4 +71,14 @@
       (set b y)
       (if (set (:foo x) z)
           (set (.bar y) z)
-        (set (foo x y) z)))
-\ No newline at end of file
+        (set (foo x y) z)))
+
+(defn fdo (a b c)
+      (do ((a b a)
+           (b c b))
+          (c)
+        a b c)
+      (do ((a b a)
+           (b c b))
+          (c b)
+        a b c))
+\ No newline at end of file