diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-11 16:47:33 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-06-11 16:47:33 -0400 |
| commit | 2eb87922965ced71c59e9ce6ae2e90afc0c8f421 (patch) | |
| tree | d591b865f539a1d384cbc49be064046a106824ff /lisp/emacs-lisp/cl-macs.el | |
| parent | 71adb94b713138836225744c8ed9281b558e2c51 (diff) | |
| download | emacs-2eb87922965ced71c59e9ce6ae2e90afc0c8f421.tar.gz emacs-2eb87922965ced71c59e9ce6ae2e90afc0c8f421.tar.bz2 emacs-2eb87922965ced71c59e9ce6ae2e90afc0c8f421.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-parse-loop-clause): Fix error in recent
conversion to backquotes.
Fixes: debbugs:11652
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |