diff options
| -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 | |||
| 672 | ;; compiled. Otherwise the byte-compiler and all the code on | 672 | ;; compiled. Otherwise the byte-compiler and all the code on |
| 673 | ;; which it depends needs to be usable before cl-generic is loaded, | 673 | ;; which it depends needs to be usable before cl-generic is loaded, |
| 674 | ;; which imposes a significant burden on the bootstrap. | 674 | ;; which imposes a significant burden on the bootstrap. |
| 675 | (if (consp (lambda (x) (+ x 1))) | 675 | (if (not (compiled-function-p (lambda (x) (+ x 1)))) |
| 676 | (lambda (exp) (eval exp t)) | 676 | (lambda (exp) (eval exp t)) |
| 677 | ;; But do byte-compile the dispatchers once bootstrap is passed: | 677 | ;; But do byte-compile the dispatchers once bootstrap is passed: |
| 678 | ;; the performance difference is substantial (like a 5x speedup on | 678 | ;; the performance difference is substantial (like a 5x speedup on |