+(defmethod clsql-sys:database-type-library-loaded ((database-type (eql :mysql)))
+ *mysql-library-loaded*)
+
+(defmethod clsql-sys:database-type-load-foreign ((database-type (eql :mysql)))
+ (when
+ (and
+ (uffi:load-foreign-library *mysql-library-filename*
+ :module "mysql"
+ :supporting-libraries
+ *mysql-supporting-libraries*)
+ (uffi:load-foreign-library *clsql-mysql-library-filename*
+ :module "clsql-mysql"
+ :supporting-libraries
+ (append *mysql-supporting-libraries*)))
+ (setq *mysql-library-loaded* t)))