diff options
| author | Johan Bockgård | 2016-09-14 21:50:31 +0200 |
|---|---|---|
| committer | Johan Bockgård | 2016-09-14 21:50:31 +0200 |
| commit | 5b6066d942d8463f8944f687a9dca1f61061ef3a (patch) | |
| tree | 45228531ddc9bddcf8150c0cf039b2a5c5927fc8 | |
| parent | 0eb85a50918c0586e102357643c04ef8e657a617 (diff) | |
| download | emacs-5b6066d942d8463f8944f687a9dca1f61061ef3a.tar.gz emacs-5b6066d942d8463f8944f687a9dca1f61061ef3a.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Fix debug spec (Bug#24430).
| -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'. | |||
| 2578 | [&or symbolp | 2578 | [&or symbolp |
| 2579 | (gate | 2579 | (gate |
| 2580 | symbolp &rest | 2580 | symbolp &rest |
| 2581 | (&or [":conc-name" symbolp] | 2581 | [&or symbolp |
| 2582 | [":constructor" symbolp &optional cl-lambda-list] | 2582 | (&or [":conc-name" symbolp] |
| 2583 | [":copier" symbolp] | 2583 | [":constructor" symbolp &optional cl-lambda-list] |
| 2584 | [":predicate" symbolp] | 2584 | [":copier" symbolp] |
| 2585 | [":include" symbolp &rest sexp] ;; Not finished. | 2585 | [":predicate" symbolp] |
| 2586 | ;; The following are not supported. | 2586 | [":include" symbolp &rest sexp] ;; Not finished. |
| 2587 | ;; [":print-function" ...] | 2587 | [":print-function" sexp] |
| 2588 | ;; [":type" ...] | 2588 | [":type" symbolp] |
| 2589 | ;; [":initial-offset" ...] | 2589 | [":named"] |
| 2590 | ))] | 2590 | [":initial-offset" natnump])])] |
| 2591 | [&optional stringp] | 2591 | [&optional stringp] |
| 2592 | ;; All the above is for the following def-form. | 2592 | ;; All the above is for the following def-form. |
| 2593 | &rest &or symbolp (symbolp def-form | 2593 | &rest &or symbolp (symbolp def-form |