master: More constant modification pass-throughs

The branch "master" has been updated in SBCL:
       via  898313d8e7d3d953e8153d74da078975c2957bf4 (commit)
      from  ac5a3f378a16d1b3a7a002eb1194d958f49fe0f2 (commit)

- Log -----------------------------------------------------------------
commit 898313d8e7d3d953e8153d74da078975c2957bf4
Author: Stas Boukarev <[email protected]>
Date:   Fri Jun 5 02:25:25 2026 +0300

    More constant modification pass-throughs
---
 src/compiler/seqtran.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 858a7b6da..c1a5c0d7c 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -4299,6 +4299,14 @@
 (defoptimizers constants (car cdr) ((cons))
   cons)
 
+(defoptimizers constants (%find-position %find-position-if %find-position-if-not)
+    ((x sequence from-end start end key))
+  sequence)
+
+(defoptimizers constants (remove remove-if remove-if-not)
+    ((x sequence &rest rest))
+  sequence)
+
 (defoptimizer (vector-to-list derive-type) ((vector))
   (when (typep (nth-value 1 (sequence-lvar-dimensions vector)) '(integer 1))
     (specifier-type 'cons)))

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


hooks/post-receive
-- 
SBCL