From 3af05f4803565cbe5163ac07e4060b52ef5e7a07 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 22 May 2024 13:27:50 -0400 Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase--subtype-bitsets): Fix bootstrap failure `rm lisp/emacs-lisp/cl-preloaded.elc src/bootstrap-emacs` followed by `make` ended up loading right after defining `built-in-class-p` but before actually defining the built-in-classes so the computation of bitsets failed. (cherry picked from commit d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74) --- lisp/emacs-lisp/pcase.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 23f1bac600c..1a58c60734a 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -678,7 +678,8 @@ recording whether the var has been referenced by earlier parts of the match." bitsets))) (defconst pcase--subtype-bitsets - (if (fboundp 'built-in-class-p) + (if (and (fboundp 'built-in-class-p) + (built-in-class-p (get 'function 'cl--class))) (pcase--subtype-bitsets) ;; Early bootstrap: we don't have the built-in classes yet, so just ;; use an empty table for now. -- 2.39.5