diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-03-14 09:28:18 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-03-14 09:28:18 -0400 |
| commit | 5d33f815422e8203297779c6ebedfff922e4ffc7 (patch) | |
| tree | 462beed91a088fd1460df86a26c82798eb2e9164 /lisp/emacs-lisp | |
| parent | f8cc706fb3d1ba30715c09aac9654ba08aeeb5c9 (diff) | |
| download | emacs-5d33f815422e8203297779c6ebedfff922e4ffc7.tar.gz emacs-5d33f815422e8203297779c6ebedfff922e4ffc7.tar.bz2 emacs-5d33f815422e8203297779c6ebedfff922e4ffc7.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify Edebug spec
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 9fd3350ddd7..0d0b5b51587 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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)))) |