From: Stefan Monnier <monnier@iro.umontreal.ca>
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-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd6cf1c15421ba011724bb10a9f542b0e5577a83;p=emacs.git

* lisp/emacs-lisp/cl-generic.el (cl--generic-compiler): Clarify the test

Use `compiled-function-p`.

(cherry picked from commit 4e260bfc47e5b507df1db218f49729fbae91900c)
---

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index 511a0035feb..a4505a9d82e 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