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