-(defparameter *db2-client-library-path*
- (uffi:find-foreign-library
- "libdb2"
- `(,@(when *load-truename* (list (make-pathname :directory (pathname-directory *load-truename*))))
- ,@(when *db2-lib-path* (list *db2-lib-path*))
- #+64bit "/opt/IBM/db2/V8.1/lib64/"
- "/opt/IBM/db2/V8.1/lib/")
- :drive-letters '("C")))