procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tune cl-assoc

Browse source 
* lisp/emacs-lisp/cl-seq.el (cl-assoc):	Use assq for fixnums.
This commit is contained in:
Paul Eggert 2019-06-01 18:12:31 -07:00
parent b5e41e8ba3
commit bee3cc604d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-seq.el
View file

@ -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")