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

Remove the calls to seq-into from seq-concatenate

Browse source 
Since most new types of seq would have to be defined as sequences (cons
cells or CL structs, mostly), there is no need to convert the seqs to
sequences (which can be a fairly expensive operation).

* lisp/emacs-lisp/seq.el (seq-concatenate): Do not ensure that seqs are
sequences.
This commit is contained in:
Nicolas Petton 2015-08-23 21:09:01 +02:00
parent 20aa61c0a3
commit c13a4df51c
1 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/seq.el
View file

@ -200,18 +200,11 @@ The result is a sequence of the same type as SEQ."
TYPE must be one of following symbols: vector, string or list.
\n(fn TYPE SEQUENCE...)"
;; Since new seq types might be defined, we need to make sure that
;; all seqs are actual sequences.
(let ((sequences (seq-map (lambda (s)
(if (sequencep s)
s
(seq-into s 'list)))
seqs)))
(pcase type
(`vector (apply #'vconcat sequences))
(`string (apply #'concat sequences))
(`list (apply #'append (append sequences '(nil))))
(_ (error "Not a sequence type name: %S" type)))))
(pcase type
(`vector (apply #'vconcat seqs))
(`string (apply #'concat seqs))
(`list (apply #'append (append seqs '(nil))))
(_ (error "Not a sequence type name: %S" type))))
(cl-defgeneric seq-into (seq type)
"Convert the sequence SEQ into a sequence of type TYPE.