(defun close-schema-table (table &key (commit t)) (when (and commit (dirty-p table)) (save-schema-table table)))