refactor to use cljr--search-forward-within-sexp