From 7a69b71c1758efe51d64b1877b5865ac31b71931 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Mon, 24 Jun 2013 14:17:56 +0200 Subject: [PATCH] for-in --- src/compiler-codegen.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) 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") -- 1.7.10.4