From c799ad42f705f64975771e181dee29e1d0ebe97a Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Sun, 3 Sep 2023 16:55:12 +0200 Subject: [PATCH] Fix Edebug specification for 'cl-define-compiler-macro'. * lisp/emacs-lisp/cl-macs.el (cl-define-compiler-macro): Give the instrumented name a suffix to make it unique. Otherwise it will clash with the name of the main function. --- lisp/emacs-lisp/cl-macs.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4cc43995c12..850fbc69180 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -3587,7 +3587,8 @@ 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." ;; Like `cl-defmacro', but with the `&whole' special case. - (declare (debug (&define name cl-macro-list + (declare (debug (&define [&name symbolp "@cl-compiler-macro"] + cl-macro-list cl-declarations-or-string def-body)) (indent 2)) (let ((p args) (res nil)) -- 2.39.2