X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;fp=src%2Fcode%2Fseq.lisp;h=90036a62c0432dc9318a27ab93b4c76602a4b625;hb=87c62dadeba82095c672161e30a3611016d270fb;hp=bc678fd7d7e0b823baf7c7f250a03f576fd3052c;hpb=7c9bae1be633be46bc454bd34f55263b24aafca8;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index bc678fd..90036a6 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -2235,11 +2235,12 @@ many elements are copied."
                          ((simple-array base-char (*)) (frob2))
                          ,@(when bit-frob
                              `((simple-bit-vector
-                                (if (and (eq #'identity key)
+                                (if (and (typep item 'bit)
+                                         (eq #'identity key)
                                          (or (eq #'eq test)
                                              (eq #'eql test)
                                              (eq #'equal test)))
-                                    (let ((p (%bit-position (the bit item) sequence
+                                    (let ((p (%bit-position item sequence
                                                             from-end start end)))
                                       (if p
                                           (values item p)