(defun f413 (p2) (declare (optimize speed) (type string p2)) (find #\1 p2 :test #'char/=))
(defun bug413 () (f413 (coerce " " 'base-string)))
(bug413) ==> #\1 ; should be #\Space
x86-64, "2.4.10.117-507e7ae05"
Bug watches keep track of this bug in other bug trackers.