mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Reverse debug spec of cl-flet (bug#65344)

Browse source
This commit is contained in:
Gerd Möllmann 2023-08-22 10:16:40 +02:00
parent bb2dab61a1
commit cc0f546825
1 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2075,15 +2075,22 @@ info node `(cl) Function Bindings' for details.
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" \(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(declare (indent 1) (declare (indent 1)
(debug ((&rest [&or (&define [&name symbolp "@cl-flet@"] (debug ((&rest [&or
[&name [] gensym] ;Make it unique! ;; This spec must come first so that a
cl-lambda-list ;; binding of the form (FN FORM) is always
cl-declarations-or-string ;; interpreted as FORM being a form
[&optional ("interactive" interactive)] ;; returning a function, instead of FORM
def-body) ;; being a cl-lambda-list and FN returning
(&define [&name symbolp "@cl-flet@"] ;; nil.
[&name [] gensym] ;Make it unique! (&define [&name symbolp "@cl-flet@"]
def-form)]) [&name [] gensym] ;Make it unique!
def-form)
(&define [&name symbolp "@cl-flet@"]
[&name [] gensym] ;Make it unique!
cl-lambda-list
cl-declarations-or-string
[&optional ("interactive" interactive)]
def-body)])
cl-declarations body))) cl-declarations body)))
(let ((binds ()) (newenv macroexpand-all-environment)) (let ((binds ()) (newenv macroexpand-all-environment))
(dolist (binding bindings) (dolist (binding bindings)