())
(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))
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :mysql)
;;;; Modified by Kevin Rosenberg
+cl-sql (1.8.5-1) unstable; urgency=low
+
+ * Fix loading on db-mysql/mysql.so on non-linux platforms
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 24 Nov 2003 23:17:25 -0700
+
cl-sql (1.8.4-1) unstable; urgency=low
* Fix typo in error string