r8270: fix loading on non-linux platforms

[clsql.git] / clsql-mysql.asd

diff --git a/clsql-mysql.asd b/clsql-mysql.asd
index ec4e5efea6c9de6c7c2004dac2989c4817adb585..815709e6a20773e19789990347bb17e3019b627b 100644 (file)
--- a/clsql-mysql.asd
+++ b/clsql-mysql.asd
@@ -26,15 +26,18 @@
   ())
 
 (defmethod output-files ((o compile-op) (c clsql-mysql-source-file))
-  (let ((found (some #'(lambda (dir)
+  (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 "so")))
+                                                      :type library-file-type)))
                        '((:absolute "usr" "lib" "clsql"))))) 
     (list (if found
              found
              (make-pathname :name (component-name c)
-                            :type "so"
+                            :type library-file-type
                             :directory *library-file-dir*)))))
 
 (defmethod perform ((o load-op) (c clsql-mysql-source-file))