Another a little bit slover
(benchmark '(
(vl-some '(lambda (x) (equal x pt 1e-8)) lst)
(vl-member-if '(lambda (x) (equal x pt 1e-8)) Lst)
(vl-some '(lambda (x) (equal x pt 1e-8)) lst)
(vl-member-if '(lambda (x) (equal x pt 1e-8)) Lst)
))
elapsed milliseconds / relative speed for 1024 iteration(s):
(VL-SOME (QUOTE (LAMBDA (X) (EQUAL X...).....1484 / 1.04 <fastest>
(VL-SOME (QUOTE (LAMBDA (X) (EQUAL X...).....1500 / 1.03
(VL-MEMBER-IF (QUOTE (LAMBDA (X) (EQ...).....1531 / 1.01
(VL-MEMBER-IF (QUOTE (LAMBDA (X) (EQ...).....1547 / 1 <slowest>