[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108563: * lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent

[Stefan Monnier]

------------------------------------------------------------
revno: 108563
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11652
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2012-06-11 16:47:33 -0400
message:
  * lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent
  conversion to backquotes.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-11 20:35:00 +0000
+++ b/lisp/ChangeLog    2012-06-11 20:47:33 +0000
@@ -1,5 +1,8 @@
 2012-06-11  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2012-06-11 20:35:00 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2012-06-11 20:47:33 +0000
@@ -1108,7 +1108,7 @@
                      (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)