Mirrors
/
emacs
mirror of git://git.sv.gnu.org/emacs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

(seq-contains-pred): Split off list-specialized impl into separate method 

* lisp/emacs-lisp/seq.el (seq-contains-pred): Split off
list-specialized impl into separate method.  The result is a bit
slower (about 10%?), but better structured.
feature/cl-lib-improvements
Dmitry Gutov 2023-11-21 03:18:45 +02:00
parent 94849ba35f
commit 1f6fdf123b
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/emacs-lisp/seq.el
View File

@ -463,22 +463,25 @@ whether an element was found or not."
;; (t
;; (cl-call-next-method))))
(cl-defgeneric seq-contains-pred (sequence &optional testfn)
(cl-defgeneric seq-contains-pred (_sequence &optional testfn)
(lambda (elt sequence)
(catch 'seq--break
(seq-doseq (e sequence)
(let ((r (funcall testfn e elt)))
(when r
(throw 'seq--break r))))
nil)))
(cl-defmethod seq-contains-pred ((_sequence list) &optional testfn)
(cond
((and (listp sequence) (or (null testfn) (eq testfn 'equal)))
((or (null testfn) (eq testfn 'equal))
#'member)
((and (listp sequence) (eq testfn 'eql))
((eq testfn 'eql)
#'memql)
((and (listp sequence) (eq testfn 'eq))
((eq testfn 'eq)
#'memq)
(t
(lambda (elt sequence)
(catch 'seq--break
(seq-doseq (e sequence)
(let ((r (funcall testfn e elt)))
(when r
(throw 'seq--break r))))
nil)))))
(cl-call-next-method))))
(cl-defgeneric seq-set-equal-p (sequence1 sequence2 &optional testfn)
"Return non-nil if SEQUENCE1 and SEQUENCE2 contain the same elements.