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

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

Browse source 
This reverts commit cc0f546825.
This commit is contained in:
Gerd Möllmann 2023-08-23 13:03:43 +02:00
parent 96ed085982
commit 999de2a5ea
1 changed files with 9 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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