aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/cl-macs.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index c27a43f3baf..85ebcaade71 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3288,8 +3288,9 @@ the form NAME which is a shorthand for (NAME NAME)."
3288 3288
3289(defun cl-struct-sequence-type (struct-type) 3289(defun cl-struct-sequence-type (struct-type)
3290 "Return the sequence used to build STRUCT-TYPE. 3290 "Return the sequence used to build STRUCT-TYPE.
3291STRUCT-TYPE is a symbol naming a struct type. Return `record', 3291STRUCT-TYPE is a symbol naming a struct type. Return values are
3292`vector', or `list' if STRUCT-TYPE is a struct type, nil otherwise." 3292either `vector', `list' or nil (and the latter indicates a
3293`record' struct type."
3293 (declare (side-effect-free t) (pure t)) 3294 (declare (side-effect-free t) (pure t))
3294 (cl--struct-class-type (cl--struct-get-class struct-type))) 3295 (cl--struct-class-type (cl--struct-get-class struct-type)))
3295 3296