From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 22 May 2024 17:27:50 +0000 (-0400)
Subject: * lisp/emacs-lisp/pcase.el (pcase--subtype-bitsets): Fix bootstrap failure
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1396
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74;p=emacs.git

* 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.
---

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.