master d8af7c99bb0: * lisp/emacs-lisp/pcase.el (pcase--subtype-bitsets): Fix bootstrap failure

[Stefan Monnier]

branch: master
commit d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

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