diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2016-09-14 21:50:31 +0200 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2016-09-14 21:50:31 +0200 |
| commit | 5b6066d942d8463f8944f687a9dca1f61061ef3a (patch) | |
| tree | 45228531ddc9bddcf8150c0cf039b2a5c5927fc8 /lisp/emacs-lisp/cl-macs.el | |
| parent | 0eb85a50918c0586e102357643c04ef8e657a617 (diff) | |
| download | emacs-5b6066d942d8463f8944f687a9dca1f61061ef3a.tar.gz | |
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Fix debug spec (Bug#24430).
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 9a599391e6c..f5b7b826431 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2578,16 +2578,16 @@ non-nil value, that slot cannot be set via `setf'. [&or symbolp (gate symbolp &rest - (&or [":conc-name" symbolp] - [":constructor" symbolp &optional cl-lambda-list] - [":copier" symbolp] - [":predicate" symbolp] - [":include" symbolp &rest sexp] ;; Not finished. - ;; The following are not supported. - ;; [":print-function" ...] - ;; [":type" ...] - ;; [":initial-offset" ...] - ))] + [&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] + [":named"] + [":initial-offset" natnump])])] [&optional stringp] ;; All the above is for the following def-form. &rest &or symbolp (symbolp def-form |