diff options
Diffstat (limited to 'lisp/emacs-lisp/pcase.el')
| -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. |