-
-(defmethod clsql-base-sys:database-type-load-foreign ((database-type (eql :mysql)))
- (let ((mysql-path
- (uffi:find-foreign-library *mysql-library-candidate-names*
- *mysql-library-candidate-directories*
- :drive-letters
- *mysql-library-candidate-drive-letters*)))
- (unless (probe-file mysql-path)
- (error "Can't find mysql client library to load"))
- (if (and
- (uffi:load-foreign-library *libz-library-path*)
- (uffi:load-foreign-library mysql-path
- :module "mysql"
- :supporting-libraries
- *mysql-supporting-libraries*)
- (uffi:load-foreign-library *clsql-mysql-library-path*
- :module "clsql-mysql"
- :supporting-libraries
- (append *mysql-supporting-libraries*)))
- (setq *mysql-library-loaded* t)
- (error "Unable to load MySQL client library ~A or CLSQL-MySQL library ~A"
- mysql-path *clsql-mysql-library-path*))))