func.lisp

(defun run-sql-script (script-name)
  "Run a script located within the sql directory."
  (format t "Running script ~a" script-name)
  (let* ((path (merge-pathnames config:*sql-directory* script-name))
         (sql-file-string (uiop:read-file-string path))
         (sql-queries (mapcar #'str:trim (str:split ";" sql-file-string :omit-nulls t)))
         (sql-queries (remove-if (lambda (x) (equal x "")) sql-queries)))
    (with-connection (db)
      (loop for sql-query in sql-queries do
        (cl-dbi:do-sql *connection* sql-query)))))