Method: (LOAD-SLOTS AFTER SCHEMA-TABLE T)

Source

(defmethod load-slots :after ((table schema-table) serializer)
  ;; Reconstruct the BY-ID hash table.  This method is called by the
  ;; serializer after an object is deserialized.
  (setf (schema-table-by-id table) (make-hash-table))
  (loop for schemas being the hash-value of (schema-table-by-name table)
        do (loop for schema in schemas
                 do (setf (gethash (schema-id schema)
                                   (schema-table-by-id table))
                          schema)))
  ;;
  (setf (dirty-p table) nil)
  table)