* lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent

conversion to backquotes.

Fixes: debbugs:11652

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce57affbda7..cbc75182f0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-06-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent
+	conversion to backquotes (bug#11652).
+
 	Fix compiler-expansion of CL's cXXr functions (bug#11673).
 	* emacs-lisp/cl-lib.el (cl--defalias): New function.
 	(cl-values, cl-values-list, cl-copy-seq, cl-svref, cl-first)
@@ -15,6 +18,7 @@
 	* emacs-lisp/cl-macs.el (cl--compiler-macro-adjoin)
 	(cl--compiler-macro-list*): Add autoload cookie.
 	(cl--compiler-macro-cXXr): New function.
+
 	* help-fns.el (help-fns--compiler-macro): New function extracted from
 	describe-function-1; follow aliases and use `compiler-macro' property.
 	(describe-function-1): Use it.
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a4caa0ff8b3..0b49563adff 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1108,7 +1108,7 @@ Valid clauses are:
 		      (let ((temp-len (make-symbol "--cl-len--")))
 			(push (list temp-len `(length ,temp-seq))
 			      loop-for-bindings)
-			(push (list var `(elt ,temp-seq temp-idx))
+			(push (list var `(elt ,temp-seq ,temp-idx))
 			      cl--loop-symbol-macs)
 			(push `(< ,temp-idx ,temp-len) cl--loop-body))
 		    (push (list var nil) loop-for-bindings)