diff options
| author | Stefan Monnier | 2024-05-22 13:27:50 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2024-05-22 13:27:50 -0400 |
| commit | d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74 (patch) | |
| tree | fadcaa80683906fd79c78619d79fc699c7210b8f | |
| parent | 70effed88df2e99287cfdabb924854f69ed668e2 (diff) | |
| download | emacs-d8af7c99bb0d98ab1b246cc5d8a1c5567c379d74.tar.gz 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.
| -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." | |||
| 678 | bitsets))) | 678 | bitsets))) |
| 679 | 679 | ||
| 680 | (defconst pcase--subtype-bitsets | 680 | (defconst pcase--subtype-bitsets |
| 681 | (if (fboundp 'built-in-class-p) | 681 | (if (and (fboundp 'built-in-class-p) |
| 682 | (built-in-class-p (get 'function 'cl--class))) | ||
| 682 | (pcase--subtype-bitsets) | 683 | (pcase--subtype-bitsets) |
| 683 | ;; Early bootstrap: we don't have the built-in classes yet, so just | 684 | ;; Early bootstrap: we don't have the built-in classes yet, so just |
| 684 | ;; use an empty table for now. | 685 | ;; use an empty table for now. |