`regexp-opt` is a great function, but it sets max-lisp-eval-depth and max-specpdl-size to 10,000! Seems rather crude.