Fix cl-loop destructuring under `with' clause

2 files changed, 7 insertions, 0 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 940ed0b0b91..2e6e1aefeb1 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,7 @@
+2014-04-21  Daniel Colascione  <dancol@dancol.org>
+
+        * automated/cl-lib.el (cl-loop-destructuring-with): New test.
+
 2014-04-20  Daniel Colascione  <dancol@dancol.org>
 
         * automated/cl-lib.el (cl-lib-struct-accessors,cl-the): New tests.
diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el
index a0df07e54ea..2c73c82ba98 100644
--- a/test/automated/cl-lib.el
+++ b/test/automated/cl-lib.el
@@ -220,4 +220,7 @@
     (should (= (the integer (incf sideffect)) 1))
     (should (= sideffect 1))))
 
+(ert-deftest cl-loop-destructuring-with ()
+  (should (equal (cl-loop with (a b c) = '(1 2 3) return (+ a b c)) 6)))
+
 ;;; cl-lib.el ends here