- (translate-logical-pathname
- #+(or linux unix) "CL-LIBRARY:clsql;interfaces;mysql;clsql-mysql.so"
- #+(or mswindows win32) "CL-LIBRARY:clsql;interfaces;mysql;clsql-mysql.dll"
- ))
-
+ (uffi:find-foreign-library
+ "clsql-mysql"
+ `(,(directory-namestring
+ (translate-logical-pathname
+ "CL-LIBRARY:clsql;interfaces;mysql;"))
+ "/usr/share/common-lisp/source/clsql/interfaces/mysql/")
+ :drive-letters '("C" "D" "E" "F" "G")))
+