Fix cl byte-compile warning in cl-loaddefs.el

* lisp/emacs-lisp/cl-macs.el (cl--optimize)
(cl-struct-sequence-type, cl-struct-slot-offset): Autoload since
they are referred to by code in cl-loaddefs.el.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 6646167b92b4985cf644254aa1c25ad552a6cb4b..727b3098e3478ab56e41bc1cdd3ea246f9efc807 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2559,6 +2559,7 @@ values.  For compatibility, (cl-values A B C) is a synonym for (list A B C).
       (push x macro-declarations-alist)
       (push x defun-declarations-alist)))
 
+;;;###cl-autoload
 (defun cl--optimize (f _args &rest qualities)
   "Serve `cl-optimize' in function declarations.
 Example:
@@ -3335,6 +3336,7 @@ the form NAME which is a shorthand for (NAME NAME)."
               :around #'cl--pcase-mutually-exclusive-p))
 
 
+;;;###cl-autoload
 (defun cl-struct-sequence-type (struct-type)
   "Return the sequence used to build STRUCT-TYPE.
 STRUCT-TYPE is a symbol naming a struct type.  Return values are
@@ -3374,6 +3376,7 @@ slots skipped by :initial-offset may appear in the list."
 
 (define-error 'cl-struct-unknown-slot "struct has no slot")
 
+;;;###cl-autoload
 (defun cl-struct-slot-offset (struct-type slot-name)
   "Return the offset of slot SLOT-NAME in STRUCT-TYPE.
 The returned zero-based slot index is relative to the start of

diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 261e44aeced9de2fe6f9f6bc678a2c79da634d65..e273381222c720392d7a9758a0056c6a0d127cbe 100644 (file)
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -481,6 +481,7 @@ FILE's name."
       (insert "\f\n;;; End of scraped data\n\n")
       (generate-lisp-file-trailer
        file :provide (and (stringp feature) feature)
+       :compile t
        :inhibit-provide (not feature))
       (buffer-string))))