- (let ((found (some #'(lambda (dir)
- (probe-file (make-pathname :directory d
- :name (component-name c)
- :type "so")))
- '((:absolute "usr" "lib" "uffi")
- *asd-file-dir*))))
- (if found
- (list searched)
- (list (make-pathname :name (component-name c)
- :type "so"
+ (let* ((library-file-type
+ (funcall (intern (symbol-name'#:default-foreign-library-type)
+ (symbol-name '#:uffi))))
+ (found
+ (some #'(lambda (dir)
+ (probe-file (make-pathname
+ :directory dir
+ :name (component-name c)
+ :type library-file-type)))
+ '((:absolute "usr" "lib" "uffi")))))
+ (list (if found
+ found
+ (make-pathname :name (component-name c)
+ :type library-file-type