diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-01-25 14:24:20 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-01-25 14:24:43 -0500 |
| commit | 4e260bfc47e5b507df1db218f49729fbae91900c (patch) | |
| tree | c6c24b265001824f1c30529b1ed16800b5309b58 /lisp/emacs-lisp | |
| parent | d22a3e5afe75c9f4a18926cce16c1a13fa912df2 (diff) | |
| download | emacs-4e260bfc47e5b507df1db218f49729fbae91900c.tar.gz emacs-4e260bfc47e5b507df1db218f49729fbae91900c.tar.bz2 emacs-4e260bfc47e5b507df1db218f49729fbae91900c.zip | |
* lisp/emacs-lisp/cl-generic.el (cl--generic-compiler): Clarify the test
Use `compiled-function-p`.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 48f5c06e390..bdccdcc48ce 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -672,7 +672,7 @@ The set of acceptable TYPEs (also called \"specializers\") is defined ;; compiled. Otherwise the byte-compiler and all the code on ;; which it depends needs to be usable before cl-generic is loaded, ;; which imposes a significant burden on the bootstrap. - (if (consp (lambda (x) (+ x 1))) + (if (not (compiled-function-p (lambda (x) (+ x 1)))) (lambda (exp) (eval exp t)) ;; But do byte-compile the dispatchers once bootstrap is passed: ;; the performance difference is substantial (like a 5x speedup on |