X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fiter-macros.lisp;h=a19fd1672b5084ffc9408a37f5aa429ccd7d68bb;hb=43fdd8d126248aa25a56771febf11b4f5efe397c;hp=d1e9ca377e1987a1fbbe8df0522d65118492a05b;hpb=b750c1445db20997237b1defb6583effb5f4d59d;p=jscl.git

diff --git a/tests/iter-macros.lisp b/tests/iter-macros.lisp
index d1e9ca3..a19fd16 100644
--- a/tests/iter-macros.lisp
+++ b/tests/iter-macros.lisp
@@ -17,3 +17,10 @@
            (n 0 (1+ n)))                                                          
         ((= n 10) 
          (= a 55))))
+
+; DO*
+(test (do* ((a 0 b)                                 
+            (b 1 (+ a b))                                                          
+            (n 0 (1+ n)))                                                          
+        ((= n 10) 
+         (= a 512))))