[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5d33f81542: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify
From: |
Stefan Monnier |
Subject: |
master 5d33f81542: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify Edebug spec |
Date: |
Mon, 14 Mar 2022 09:28:22 -0400 (EDT) |
branch: master
commit 5d33f815422e8203297779c6ebedfff922e4ffc7
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify Edebug spec
---
lisp/emacs-lisp/cl-macs.el | 15 +++------------
1 file changed, 3 insertions(+), 12 deletions(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9fd3350ddd..0d0b5b5158 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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5d33f81542: * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Simplify Edebug spec,
Stefan Monnier <=