diff options
| -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") |