1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 7e11dd2e4aa..ba3f26e43a0 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2720,7 +2720,9 @@ pairs for that slot.
 Currently, only one keyword is supported, `:read-only'.  If this has a
 non-nil value, that slot cannot be set via `setf'.
 
-\(fn NAME SLOTS...)"
+It's optional DOC-STRING is optional.
+
+\(fn NAME &optional DOCSTRING &rest SLOTS)"
   (declare (doc-string 2) (indent 1)
            (debug
             (&define                    ;Makes top-level form not be wrapped.