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

Teach Edebug about the special '&whole' syntax for compiler macros.

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl-define-compiler-macro-list): New
Edebug element specification.
(cl-define-compiler-macro): Use it.

* test/lisp/emacs-lisp/cl-macs-tests.el
(cl-define-compiler-macro/edebug): New unit test.
This commit is contained in:
Philipp Stephani 2022-03-03 19:56:09 +01:00
parent dc8a692f97
commit aeb25f9d3d
2 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3489,6 +3489,10 @@ omitted, a default message listing FORM itself is used."
;;; Compiler macros.
(def-edebug-elem-spec 'cl-define-compiler-macro-list
`(([&optional "&whole" arg]
,@(car (get 'cl-macro-list 'edebug-elem-spec)))))
;;;###autoload
(defmacro cl-define-compiler-macro (func args &rest body)
"Define a compiler-only macro.
@ -3501,7 +3505,10 @@ compiler macros are expanded repeatedly until no further expansions are
possible. Unlike regular macros, BODY can decide to \"punt\" and leave the
original function call alone by declaring an initial `&whole foo' parameter
and then returning foo."
(declare (debug cl-defmacro) (indent 2))
;; Like `cl-defmacro', but with the `&whole' special case.
(declare (debug (&define name cl-define-compiler-macro-list
cl-declarations-or-string def-body))
(indent 2))
(let ((p args) (res nil))
(while (consp p) (push (pop p) res))
(setq args (nconc (nreverse res) (and p (list '&rest p)))))