From f9eb0668c573b4e5a6b00524ae3ed8dc5afff084 Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Wed, 8 May 2024 19:48:11 +0300
Subject: [PATCH] Transform %find-position for strings when item is not a
 character.

---
 src/compiler/seqtran.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 06ec82d6a..d4efeadb0 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -2784,7 +2784,7 @@
                (values nil nil))))))
 
 (deftransform %find-position ((item sequence from-end start end key test)
-                              (character string t t t function function)
+                              (t string t t t function function)
                               *
                               :policy (> speed space))
   (if (eq '* (upgraded-element-type-specifier sequence))
-- 
2.11.4.GIT