- (list* "libclntsh" "oci"
- (when *oracle-home*
- (loop for dir-name in '("lib" "bin")
- nconc (loop for lib-name in '("libclntsh" "oci")
- collect (make-pathname :defaults lib-name
- :directory (append (pathname-directory *oracle-home*)
- (list dir-name))))))))