Function: P-MEMBER-IF

Source

(defun p-member-if (predicate list &key key)
  (unless key
    (setq key #'identity))
  (p-mapl (lambda (tail)
            (when (funcall predicate (funcall key (p-car tail)))
              (return-from p-member-if tail)))
          list)
  nil)