1 files changed, 10 insertions, 0 deletions
diff --git a/tests/macro.lisp b/tests/macro.lisp
new file mode 100644
index 0000000..4564cb9
--- /dev/null
+++ b/tests/macro.lisp
@@ -0,0 +1,10 @@
+(defmacro for (start pred inc . body)
+  `(let (,start)
+     (while ,pred
+       ,@body
+       ,inc)))
+(assert (= 10
+  (let ((sum 0))
+    (for (i 0) (< i 5) (incq i)
+      (setq sum (+ sum i)))
+    sum)))