diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-05-22 13:27:50 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-05-22 13:27:50 -0400 |
| commit | d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74 (patch) | |
| tree | fadcaa80683906fd79c78619d79fc699c7210b8f /lisp/emacs-lisp | |
| parent | 70effed88df2e99287cfdabb924854f69ed668e2 (diff) | |
| download | emacs-d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74.tar.gz emacs-d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74.tar.bz2 emacs-d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 3 |
1 files changed, 2 insertions, 1 deletions
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. |