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

* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify Edebug spec

Browse source
This commit is contained in:
Stefan Monnier 2022-03-14 09:28:18 -04:00
parent f8cc706fb3
commit 5d33f81542
1 changed files with 3 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2901,19 +2901,10 @@ To see the documentation for a defined struct type, use
(debug
(&define ;Makes top-level form not be wrapped.
[&or symbolp
(gate
(gate ;; FIXME: Why?
symbolp &rest
[&or symbolp
(&or [":conc-name" symbolp]
[":constructor" symbolp &optional cl-lambda-list]
[":copier" symbolp]
[":predicate" symbolp]
[":include" symbolp &rest sexp] ;; Not finished.
[":print-function" sexp]
[":type" symbolp]
[":noinline" &optional sexp]
[":named" &optional sexp]
[":initial-offset" natnump])])]
[&or (":constructor" &define name &optional cl-lambda-list)
sexp])]
[&optional stringp]
;; All the above is for the following def-form.
&rest &or symbolp (symbolp &optional def-form &rest sexp))))