mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

Fix cl-member' and cl-assoc' for bignums

Browse source 
* lisp/emacs-lisp/cl-seq.el (cl-member, cl-assoc): Work with bignums.
* test/lisp/emacs-lisp/cl-seq-tests.el (cl-seq-bignum-eql): New.
This commit is contained in:
Mattias Engdegård 2019-06-01 17:57:51 -07:00 • committed by Paul Eggert
parent aa9d57eed1
commit b5e41e8ba3
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/emacs-lisp/cl-seq-tests.el
View file

@ -302,6 +302,14 @@ Body are forms defining the test."
(should (equal '(2 8) (last (cl-replace list list2) 2)))
(should (equal '(1 1) (last (cl-fill list 1) 2)))))
(ert-deftest cl-seq-bignum-eql ()
(let ((x (+ most-positive-fixnum 1))
(y (+ most-positive-fixnum 1)))
(let ((l (list y)))
(should (eq (cl-member x l) l)))
(let ((a (list (cons y 1) (cons 2 y))))
(should (eq (cl-assoc x a) (car a)))
(should (eq (cl-rassoc x a) (cadr a))))))
(provide 'cl-seq-tests)
;;; cl-seq-tests.el ends here