Commit bee3cc60 authored by Paul Eggert's avatar Paul Eggert

Tune cl-assoc

* lisp/emacs-lisp/cl-seq.el (cl-assoc):	Use assq for fixnums.
parent b5e41e8b
Pipeline #1868 failed with stage
in 35 seconds
......@@ -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")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment