From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 13 Apr 2022 04:07:32 +0000 (+0200)
Subject: Revert "Make cl-concatenate an alias of seq-concatenate"
X-Git-Tag: emacs-28.1.90~140
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab2b822b9bbac321ec061de349cf0166cc406fe7;p=emacs.git

Revert "Make cl-concatenate an alias of seq-concatenate"

This reverts commit 78f76fe16e2737b40694f82af28d17a90a21ed7b.

The commit made calls to cl-concatenate bug out, since
autoloading defalises doesn't work very well (bug#54901).
---

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