>From 1fd7d5086205852f1433e5042ca4efc1d50b1996 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 1 Jun 2019 18:12:31 -0700 Subject: [PATCH] Tune cl-assoc * lisp/emacs-lisp/cl-seq.el (cl-assoc): Use assq for fixnums. --- lisp/emacs-lisp/cl-seq.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 86a73e1997..87c02a6b54 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el @@ -742,7 +742,7 @@ cl-assoc (not (cl--check-test cl-item (car (car cl-alist)))))) (setq cl-alist (cdr cl-alist))) (and cl-alist (car cl-alist))) - (if (numberp cl-item) + (if (and (numberp cl-item) (not (fixnump cl-item))) (assoc cl-item cl-alist) (assq cl-item cl-alist)))) (autoload 'cl--compiler-macro-assoc "cl-macs") -- 2.17.1