Commit 5b6066d9 authored by Johan Bockgård's avatar Johan Bockgård
Browse files

* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Fix debug spec (Bug#24430).

parent 0eb85a50
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment