-
-(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*))
- (zlib-path
- (uffi:find-foreign-library '("libz" "zlib")
- '("/usr/lib/" "/usr/local/lib/" "/lib/"))))
- (unless (probe-file mysql-path)
- (error "Can't find mysql client library to load"))
- (unless (probe-file zlib-path)
- (error "Can't find zlib client library to load"))