From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 May 2025 02:38:15 +0000 (-0400)
Subject: lisp/emacs-lisp/cl-preloaded.el (cl--define-derived-type): Fix corner case
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f829371ba6cca1b2f601bb88e975211126a7fb6b;p=emacs.git

lisp/emacs-lisp/cl-preloaded.el (cl--define-derived-type): Fix corner case

(cherry picked from commit 81cbff70f29c5138859b75b9a7369e0019c457b6)
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index d6962ba1dee..263a9b85225 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -508,8 +508,11 @@ PARENTS is a list of types NAME is a subtype of, or nil."
           (error "Type %S already in another class: %S" name (type-of class))))
     ;; Setup a type descriptor for NAME.
     (setf (cl--find-class name)
-          (cl--derived-type-class-make name (function-documentation expander)
-                                       parents))
+          (cl--derived-type-class-make
+           name
+           (and (fboundp 'function-documentation) ;Bootstrap corner case.
+                (function-documentation expander))
+           parents))
     (define-symbol-prop name 'cl-deftype-handler expander)
     (when predicate
       (define-symbol-prop name 'cl-deftype-satisfies predicate)