master: Faster (concatenate 'vector ..) for list arguments

The branch "master" has been updated in SBCL:
       via  2ef06b7346040225d5c9935cefee2f3c1ed8fc52 (commit)
      from  5122895aee971a2beaf8f5bcb9d5892e677d69a5 (commit)

- Log -----------------------------------------------------------------
commit 2ef06b7346040225d5c9935cefee2f3c1ed8fc52
Author: Stas Boukarev <[email protected]>
Date:   Tue Apr 7 03:54:41 2026 +0300

    Faster (concatenate 'vector ..) for list arguments
---
 src/code/seq.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 72d81c7c7..e4ab7e9ad 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -1325,7 +1325,7 @@ many elements are copied."
                           (start 0))
                       (declare (index start))
                       (do-rest-arg ((seq) sequences)
-                        (string-dispatch (,@dispatch t)
+                        (string-dispatch (,@dispatch list t)
                                          seq
                           (let ((length (length seq)))
                             (replace result seq :start1 start)
@@ -1394,7 +1394,7 @@ many elements are copied."
                                               (values seq start end (- end start))))
                                            (t
                                             (values (truly-the sequence arg) 0 nil (length arg))))
-                                   (string-dispatch (,@dispatch t) seq
+                                   (string-dispatch (,@dispatch list t) seq
                                      (replace result seq :start1 start :start2 start2 :end2 end2)
                                      (incf start length))))))
                         result)))))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL