From: Noam Postavsky <npostavs@gmail.com>
Date: Mon, 23 Mar 2020 22:58:21 +0000 (-0400)
Subject: Make cl-concatenate an alias of seq-concatenate
X-Git-Tag: emacs-28.0.90~7729
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78f76fe16e2737b40694f82af28d17a90a21ed7b;p=emacs.git

Make cl-concatenate an alias of seq-concatenate

* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Use defalias instead
of apply.  This is simpler and more efficient.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index f8336d397d7..5bf74792c08 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -552,10 +552,9 @@ too large if positive or too small if negative)."
   (seq-subseq seq start end))
 
 ;;;###autoload
-(defun cl-concatenate (type &rest sequences)
+(defalias 'cl-concatenate #'seq-concatenate
   "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
-\n(fn TYPE SEQUENCE...)"
-  (apply #'seq-concatenate type sequences))
+\n(fn TYPE SEQUENCE...)")
 
 ;;; List functions.