From 2eb87922965ced71c59e9ce6ae2e90afc0c8f421 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 11 Jun 2012 16:47:33 -0400 Subject: * lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent conversion to backquotes. Fixes: debbugs:11652 --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/cl-macs.el') 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) -- cgit v1.2.3