From f829371ba6cca1b2f601bb88e975211126a7fb6b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 13 May 2025 22:38:15 -0400 Subject: [PATCH] lisp/emacs-lisp/cl-preloaded.el (cl--define-derived-type): Fix corner case (cherry picked from commit 81cbff70f29c5138859b75b9a7369e0019c457b6) --- lisp/emacs-lisp/cl-preloaded.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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) -- 2.39.5