From: Stefan Monnier Date: Thu, 25 Jan 2024 19:24:20 +0000 (-0500) Subject: * lisp/emacs-lisp/cl-generic.el (cl--generic-compiler): Clarify the test X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~2824 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=4e260bfc47e5b507df1db218f49729fbae91900c;p=emacs.git * lisp/emacs-lisp/cl-generic.el (cl--generic-compiler): Clarify the test Use `compiled-function-p`. --- 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