projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8801: v4 changes
[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))
())
(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)
(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)
'((: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))
:directory *library-file-dir*)))))
(defmethod perform ((o load-op) (c clsql-mysql-source-file))