(defmethod close-cache ((cache standard-cache) &key (commit t)) (when commit (cache-commit cache)) (close-heap (heap cache)) (close-schema-table (schema-table cache)) 'ok)