rewrite find-if, no tail call elimination in elisp :(