mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

* 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 (debug
(&define ;Makes top-level form not be wrapped. (&define ;Makes top-level form not be wrapped.
[&or symbolp [&or symbolp
(gate (gate ;; FIXME: Why?
symbolp &rest symbolp &rest
[&or symbolp [&or (":constructor" &define name &optional cl-lambda-list)
(&or [":conc-name" symbolp] sexp])]
[":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])])]
[&optional stringp] [&optional stringp]
;; All the above is for the following def-form. ;; All the above is for the following def-form.
&rest &or symbolp (symbolp &optional def-form &rest sexp)))) &rest &or symbolp (symbolp &optional def-form &rest sexp))))