POSITION returning incorrect value

[Paul F. Dietz]

(defun f340 (p1)
  (position p1 '(string #:g4389630 #:|AABb|)))

(f340 0) ==> 0

x86-64, "2.4.2.82-3d4601189", still present in "2.4.2.91-564aef889"

[Douglas Katzman (dougk)]

Thanks. fixed in https://sourceforge.net/p/sbcl/sbcl/ci/f78315fe1635e216da2506f9cbdc5aa58d44ed32/

[xizang (xizang)]

Hi:
my environment is ubuntu sbcl-2.4.2:
(defun f340-equal (p1)
  (position p1 '(string #:g4389630 #:|AABb|) :test #'equal))

(f340-equal 0) => nil

[xizang (xizang)]

and :
(defun f340-equalp (p1)
  (position p1 '(string #:g4389630 #:|AABb|) :test #'equalp))

(f340-equalp 0) => nil

[Stas Boukarev (stassats)]

Even though :test EQUALP is turned into :test EQ eventually, the hash transform isn't applied in this case.