(defun compile-tal-string (string &optional (expression-package (find-package :common-lisp-user))) (let ((*break-on-signals* t)) (compile nil (compile-tal-string-to-lambda string expression-package))))