From: David Vázquez <davazp@gmail.com>
Date: Mon, 24 Jun 2013 12:17:56 +0000 (+0200)
Subject: for-in
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7a69b71c1758efe51d64b1877b5865ac31b71931;p=jscl.git

for-in
---

diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp
index 27114b2..e82b841 100644
--- a/src/compiler-codegen.lisp
+++ b/src/compiler-codegen.lisp
@@ -456,6 +456,14 @@
               (js-expr step)
               (js-format ")")
               (js-stmt `(progn ,@body))))
+           (for-in
+            (destructuring-bind ((x object) &body body) (cdr form)
+              (js-format "for (")
+              (js-identifier x)
+              (js-format " in ")
+              (js-expr object)
+              (js-format ")")
+              (js-stmt `(progn ,@body))))
            (try
             (destructuring-bind (&rest body) (cdr form)
               (js-format "try")