master f8d8759: cl-extra: Fix docstring retrieval

[Lars Ingebrigtsen]

branch: master
commit f8d87590592544cacbeed091f3557e02bb0e63ce
Author: Julian Scheid <julians37@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    cl-extra: Fix docstring retrieval
    
    * lisp/emacs-lisp/cl-extra.el (cl--describe-class-slots): Fix
    docstring retrieval (bug#46662).
---
 lisp/emacs-lisp/cl-extra.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 28ce6b1..84199c1 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -898,8 +898,8 @@ Outputs to the current buffer."
                (list (cl-prin1-to-string (cl--slot-descriptor-name slot))
                      (cl-prin1-to-string (cl--slot-descriptor-type slot))
                      (cl-prin1-to-string (cl--slot-descriptor-initform slot))
-                     (let ((doc (alist-get :documentation
-                                           (cl--slot-descriptor-props slot))))
+                     (let ((doc (plist-get (cl--slot-descriptor-props slot)
+                                           :documentation)))
                        (if (not doc) ""
                          (setq has-doc t)
                          (substitute-command-keys doc)))))