+(defgeneric database-type-library-loaded (database-type)
+ (:documentation
+ "The internal generic implementation for checking if
+database type library loaded successfully.")
+ (:method :after (database-type)
+ (pushnew database-type *library-loaded-database-types*)))
+