bug#40972: 27.0.91; assoc TESTFN's args reversed?

[Shigeru Fukaya]

It seems to me, for third argument of `assoc', arguments are passed in a
reverse order.

(assoc "assoc" '(("cl-assoc" A) ("cl-member" B))
       (lambda (x y) (equal (concat "cl-" x) y)))
==> nil

(assoc "assoc" '(("cl-assoc" A) ("cl-member" B))
       (lambda (y x) (equal (concat "cl-" x) y)))
==> ("cl-assoc" A)

Or, is this intended behavior??

Thanks,
Shigeru