- #+ignore
- (uffi:load-foreign-library
- (make-pathname :defaults *oracle-lib-path* :name "libclntsh" :type "so"))
- (uffi:load-foreign-library *clsql-oracle-library-path*
- :module "clsql-oracle"
- :supporting-libraries *oracle-supporting-libraries*)
- (setq *oracle-library-loaded* t))
-
+ (if (pathnamep *oracle-client-library-path*)
+ (progn
+ (uffi:load-foreign-library *oracle-client-library-path*
+ :module "clsql-oracle"
+ :supporting-libraries
+ *oracle-supporting-libraries*)
+ (setq *oracle-library-loaded* t))
+ (warn "Unable to load oracle client library.")))