mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki 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
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> 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). Fix compiler-expansion of CL's cXXr functions (bug#11673).
* emacs-lisp/cl-lib.el (cl--defalias): New function. * emacs-lisp/cl-lib.el (cl--defalias): New function.
(cl-values, cl-values-list, cl-copy-seq, cl-svref, cl-first) (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) * emacs-lisp/cl-macs.el (cl--compiler-macro-adjoin)
(cl--compiler-macro-list*): Add autoload cookie. (cl--compiler-macro-list*): Add autoload cookie.
(cl--compiler-macro-cXXr): New function. (cl--compiler-macro-cXXr): New function.
* help-fns.el (help-fns--compiler-macro): New function extracted from * help-fns.el (help-fns--compiler-macro): New function extracted from
describe-function-1; follow aliases and use `compiler-macro' property. describe-function-1; follow aliases and use `compiler-macro' property.
(describe-function-1): Use it. (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--"))) (let ((temp-len (make-symbol "--cl-len--")))
(push (list temp-len `(length ,temp-seq)) (push (list temp-len `(length ,temp-seq))
loop-for-bindings) loop-for-bindings)
(push (list var `(elt ,temp-seq temp-idx)) (push (list var `(elt ,temp-seq ,temp-idx))
cl--loop-symbol-macs) cl--loop-symbol-macs)
(push `(< ,temp-idx ,temp-len) cl--loop-body)) (push `(< ,temp-idx ,temp-len) cl--loop-body))
(push (list var nil) loop-for-bindings) (push (list var nil) loop-for-bindings)