(defun compile-tal-file (pathname &optional (expression-package (find-package :common-lisp-user))) (with-tal-compilation-unit pathname (compile-tal-string (read-tal-file-into-string pathname) expression-package)))