master: read-sequence: don't test for lists first

The branch "master" has been updated in SBCL:
       via  75a2118b33f4383681c435ee61c6520589bb8951 (commit)
      from  1b0d28f480289a0f4ba656c17853d9539bd26f8f (commit)

- Log -----------------------------------------------------------------
commit 75a2118b33f4383681c435ee61c6520589bb8951
Author: Stas Boukarev <[email protected]>
Date:   Thu Aug 6 19:00:46 2026 +0300

    read-sequence: don't test for lists first
    
    It's a rare thing to do.
---
 src/code/stream.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index de84b2445..a0450d9b2 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -2472,8 +2472,6 @@ benefit of the function GET-OUTPUT-STREAM-STRING."
                         (setf iterator (funcall step seq iterator from-end))
                      finally (return i)))))
     (cond
-      ((typep seq 'list)
-       (read-list (compute-read-function nil)))
       ((and (ansi-stream-p stream)
             (ansi-stream-cin-buffer stream)
             (typep seq 'simple-string))
@@ -2489,6 +2487,8 @@ benefit of the function GET-OUTPUT-STREAM-STRING."
                (read-vector/fast data offset-start offset-end offset)
                (read-vector (compute-read-function (array-element-type data))
                             data offset-start offset-end end)))))
+      ((typep seq 'list)
+       (read-list (compute-read-function nil)))
       (t
        (read-generic-sequence (compute-read-function nil))))))
 

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


hooks/post-receive
-- 
SBCL