From 5b6066d942d8463f8944f687a9dca1f61061ef3a Mon Sep 17 00:00:00 2001
From: =?utf8?q?Johan=20Bockg=C3=A5rd?= <bojohan@gnu.org>
Date: Wed, 14 Sep 2016 21:50:31 +0200
Subject: [PATCH] * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Fix debug spec
 (Bug#24430).

---
 lisp/emacs-lisp/cl-macs.el | 20 ++++++++++----------
 1 file 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
-- 
2.11.4.GIT