diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-06-01 18:12:31 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-06-01 18:13:00 -0700 |
| commit | bee3cc604dcbe13e0057fe0ec5621ec503979937 (patch) | |
| tree | e37c91f0d4ae052fa8075ff084639399c6ae3a08 | |
| parent | b5e41e8ba3d90f5d01a41912681c47a3408c679a (diff) | |
| download | emacs-bee3cc604dcbe13e0057fe0ec5621ec503979937.tar.gz | |
Tune cl-assoc
* lisp/emacs-lisp/cl-seq.el (cl-assoc): Use assq for fixnums.
| -rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 2 |
1 files changed, 1 insertions, 1 deletions
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") |