`object_name_linter()` not detecting all generics

[AshesITR]

lintr::lint(text = "`==.snake_case` <- function(a, b) a + b")
#> <text>:1:1: style: [object_name_linter] Variable and function name style should match snake_case or symbols.
#> `==.snake_case` <- function(a, b) a + b
#> ^~~~~~~~~~~~~~~

^{Created on 2022-12-13 with reprex v2.0.2}