procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/cl-macs.el (cl-loop): Improve debug spec.

Browse source
This commit is contained in:
Stefan Monnier 2012-08-10 15:34:36 -04:00
parent 25e65510a3
commit d301b4133f
3 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-08-10 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl-loop): Improve debug spec.
2012-08-10 Chong Yidong <cyd@gnu.org>
* progmodes/python.el (python-shell-get-process-name): Don't mess

2
lisp/emacs-lisp/cl-loaddefs.el
View file

@ -260,7 +260,7 @@ Remove from SYMBOL's plist the property PROPNAME and its value.
;;;;;; cl-do cl-loop cl-return-from cl-return cl-block cl-etypecase
;;;;;; cl-typecase cl-ecase cl-case cl-load-time-value cl-eval-when
;;;;;; cl-destructuring-bind cl-function cl-defmacro cl-defun cl-gentemp
;;;;;; cl-gensym) "cl-macs" "cl-macs.el" "37a13242a811078a7ae71578eeed4254")
;;;;;; cl-gensym) "cl-macs" "cl-macs.el" "9676d5517e8b9246c09fe78984c68bef")
;;; Generated autoloads from cl-macs.el
(autoload 'cl-gensym "cl-macs" "\

16
lisp/emacs-lisp/cl-macs.el
View file

@ -731,7 +731,21 @@ Valid clauses are:
finally return EXPR, named NAME.
\(fn CLAUSE...)"
(declare (debug (&rest &or symbolp form)))
(declare (debug (&rest &or
;; These are usually followed by a symbol, but it can
;; actually be any destructuring-bind pattern, which
;; would erroneously match `form'.
[[&or "for" "as" "with" "and"] sexp]
;; These are followed by expressions which could
;; erroneously match `symbolp'.
[[&or "from" "upfrom" "downfrom" "to" "upto" "downto"
"above" "below" "by" "in" "on" "=" "across"
"repeat" "while" "until" "always" "never"
"thereis" "collect" "append" "nconc" "sum"
"count" "maximize" "minimize" "if" "unless"
"return"] form]
;; Simple default, which covers 99% of the cases.
symbolp form)))
(if (not (memq t (mapcar 'symbolp (delq nil (delq t (cl-copy-list loop-args))))))
`(cl-block nil (while t ,@loop-args))
(let ((cl--loop-args loop-args) (cl--loop-name nil) (cl--loop-bindings nil)