1 files changed, 9 insertions, 1 deletions
diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index 16c43539..d724da70 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -103,4 +103,12 @@
       (try
        (foo x)
        (fred ex)
-       (bar x)))
-\ No newline at end of file
+       (bar x)))
+
+(defn fbind (a b c x)
+      (bind ((x a)
+             (y b))
+            c)
+      (bind ((x a)
+             (y b))
+            c))
+\ No newline at end of file