From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 2 Jun 2019 01:12:31 +0000 (-0700)
Subject: Tune cl-assoc
X-Git-Tag: emacs-27.0.90~2725
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bee3cc604dcbe13e0057fe0ec5621ec503979937;p=emacs.git

Tune cl-assoc

* lisp/emacs-lisp/cl-seq.el (cl-assoc):	Use assq for fixnums.
---

diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el
index 86a73e19970..87c02a6b54f 100644
--- a/lisp/emacs-lisp/cl-seq.el
+++ b/lisp/emacs-lisp/cl-seq.el
@@ -742,7 +742,7 @@ Return the sublist of LIST whose car matches.
 			(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")