diff --git a/package.lisp b/package.lisp index 4db6f5b..332e418 100644 --- a/package.lisp +++ b/package.lisp @@ -152,6 +152,9 @@ #:*myconn-port* #:*myconn-user* #:*myconn-pass* + #:run-command + #:parse-command + #:slurp-file-into-string #:copy-from-file #:list-databases #:list-tables)) diff --git a/parser.lisp b/parser.lisp index ad1441b..dffd8a3 100644 --- a/parser.lisp +++ b/parser.lisp @@ -1319,6 +1319,8 @@ Here's a quick description of the format we're parsing here: (typecase command (function command) (list (compile nil command)) + (pathname (compile nil (parse-command + (slurp-file-into-string command)))) (t (compile nil (parse-command command)))))) ;; Start the logger