master: Lower (member #\1 str :test #'char-equal) to :test #'char=

The branch "master" has been updated in SBCL:
       via  02992badc65770f9d7905c7ef213518948c0ab4f (commit)
      from  8007e82231cc8d1f8dfd8baa8591abbf750354ac (commit)

- Log -----------------------------------------------------------------
commit 02992badc65770f9d7905c7ef213518948c0ab4f
Author: Stas Boukarev <[email protected]>
Date:   Sat May 16 01:44:16 2026 +0300

    Lower (member #\1 str :test #'char-equal) to :test #'char=
---
 src/compiler/seqtran.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 71faafa76..88301c778 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -729,6 +729,8 @@
                          `(,',basic-eq item list))
                         (eql
                          `(,',basic item list))
+                        (char=
+                         `(,',test item list #'char=))
                         (t
                          (give-up-ir1-transform)))))
                   (deftransform ,key-test ((item list key test) (t t t t) * :important nil)
@@ -742,6 +744,8 @@
                          `(,',basic-key-eq item list key))
                         (eql
                          `(,',basic-key item list key))
+                        (char=
+                         `(,',key-test item list key #'char=))
                         (t
                          (give-up-ir1-transform)))))
                   ,@(when if/if-not

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


hooks/post-receive
-- 
SBCL