diff options
| author | Paul Eggert | 2019-06-01 18:12:31 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-06-01 18:13:00 -0700 |
| commit | bee3cc604dcbe13e0057fe0ec5621ec503979937 (patch) | |
| tree | e37c91f0d4ae052fa8075ff084639399c6ae3a08 | |
| parent | b5e41e8ba3d90f5d01a41912681c47a3408c679a (diff) | |
| download | emacs-bee3cc604dcbe13e0057fe0ec5621ec503979937.tar.gz emacs-bee3cc604dcbe13e0057fe0ec5621ec503979937.zip | |
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. | |||
| 742 | (not (cl--check-test cl-item (car (car cl-alist)))))) | 742 | (not (cl--check-test cl-item (car (car cl-alist)))))) |
| 743 | (setq cl-alist (cdr cl-alist))) | 743 | (setq cl-alist (cdr cl-alist))) |
| 744 | (and cl-alist (car cl-alist))) | 744 | (and cl-alist (car cl-alist))) |
| 745 | (if (numberp cl-item) | 745 | (if (and (numberp cl-item) (not (fixnump cl-item))) |
| 746 | (assoc cl-item cl-alist) | 746 | (assoc cl-item cl-alist) |
| 747 | (assq cl-item cl-alist)))) | 747 | (assq cl-item cl-alist)))) |
| 748 | (autoload 'cl--compiler-macro-assoc "cl-macs") | 748 | (autoload 'cl--compiler-macro-assoc "cl-macs") |