mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source 
conversion to backquotes.

Fixes: debbugs:11652
This commit is contained in:
Stefan Monnier 2012-06-11 16:47:33 -04:00
parent 71adb94b71
commit 2eb8792296
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

2
lisp/emacs-lisp/cl-macs.el
View File

@ -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)