Autoload cl-struct-slot-info

* lisp/emacs-lisp/cl-macs.el (cl-struct-slot-info): Autoload
(bug#50301).

* test/lisp/emacs-lisp/memory-report-tests.el: Don't require cl-macs.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index d878af4d84a48ac10ca0023c9b790e87149d7513..4ea583d28f1ed89fcc39b04c4107f205ff7f7309 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3288,6 +3288,7 @@ STRUCT-TYPE is a symbol naming a struct type.  Return `record',
       (push (cdr x) res))
     (nreverse res)))
 
+;;;###autoload
 (defun cl-struct-slot-info (struct-type)
   "Return a list of slot names of struct STRUCT-TYPE.
 Each entry is a list (SLOT-NAME . OPTS), where SLOT-NAME is a

diff --git a/test/lisp/emacs-lisp/memory-report-tests.el b/test/lisp/emacs-lisp/memory-report-tests.el
index 1e0ffdc86a0acfb837f5764d4eeb0e1593d3c97d..e352dd165f3b45f62828c50483cd856a526f01e1 100644 (file)
--- a/test/lisp/emacs-lisp/memory-report-tests.el
+++ b/test/lisp/emacs-lisp/memory-report-tests.el
@@ -19,7 +19,6 @@
 
 (require 'ert)
 (require 'memory-report)
-(require 'cl-macs)
 
 (defun setup-memory-report-tests ()
   ;; Set the sizes on things based on a 64-bit architecture.  (We're