[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master bee3cc6 2/2: Tune cl-assoc
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master bee3cc6 2/2: Tune cl-assoc |
Date: |
Sat, 1 Jun 2019 21:13:07 -0400 (EDT) |
branch: master
commit bee3cc604dcbe13e0057fe0ec5621ec503979937
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
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 86a73e1..87c02a6 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")