projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 1.8.4: Impoved detection of long-long type for CMUCL
[uffi.git]
/
src
/
libraries.lisp
diff --git
a/src/libraries.lisp
b/src/libraries.lisp
index f2ce922c30569af3fbe835f4bb3e47d87658539f..578f3d6c29d3ba941fb58e9337c54443fb735717 100644
(file)
--- a/
src/libraries.lisp
+++ b/
src/libraries.lisp
@@
-74,12
+74,11
@@
library type if type is not specified."
(defun load-foreign-library (filename &key module supporting-libraries
force-load)
(defun load-foreign-library (filename &key module supporting-libraries
force-load)
- #+(or allegro openmcl digitool sbcl) (declare (ignore module supporting-libraries))
- #+(or cmu scl) (declare (ignore module))
- #+lispworks (declare (ignore supporting-libraries))
+ (declare (ignorable module supporting-libraries))
(flet ((load-failure ()
(error "Unable to load foreign library \"~A\"." filename)))
(flet ((load-failure ()
(error "Unable to load foreign library \"~A\"." filename)))
+ (declare (ignorable #'load-failure))
(when (and filename (or (null (pathname-directory filename))
(probe-file filename)))
(if (pathnamep filename) ;; ensure filename is a string to check if already loaded
(when (and filename (or (null (pathname-directory filename))
(probe-file filename)))
(if (pathnamep filename) ;; ensure filename is a string to check if already loaded
@@
-104,11
+103,10
@@
library type if type is not specified."
(convert-supporting-libraries-to-string
supporting-libraries))))
#+scl
(convert-supporting-libraries-to-string
supporting-libraries))))
#+scl
- (let ((type (pathname-type (parse-namestring filename))))
- (alien:load-foreign filename
- :libraries
- (convert-supporting-libraries-to-string
- supporting-libraries)))
+ (alien:load-foreign filename
+ :libraries
+ (convert-supporting-libraries-to-string
+ supporting-libraries))
#+sbcl
(handler-case (sb-alien::load-1-foreign filename)
(sb-int:unsupported-operator (c)
#+sbcl
(handler-case (sb-alien::load-1-foreign filename)
(sb-int:unsupported-operator (c)