(defmethod database-type-load-foreign :after (database-type)
(when (database-type-library-loaded database-type)
(pushnew database-type *loaded-database-types*)))
(defmethod database-type-load-foreign :after (database-type)
(when (database-type-library-loaded database-type)
(pushnew database-type *loaded-database-types*)))