Method: (SAVE-SCHEMA-TABLE SCHEMA-TABLE)

Source

(defmethod save-schema-table ((table schema-table))
  ;; Clear dirty flag first, because it's saved (and loaded) too.
  (setf (dirty-p table) nil) 
  (save-objects (list table) (schema-table-pathname table)))