projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11087: add cygwin support
[uffi.git]
/
src
/
libraries.lisp
diff --git
a/src/libraries.lisp
b/src/libraries.lisp
index faa5f12c2ef44efab56d6f4f4a7bcd5bb3507352..5378deb77c1ed44cb9518819c66c74978bc78151 100644
(file)
--- a/
src/libraries.lisp
+++ b/
src/libraries.lisp
@@
-20,9
+20,9
@@
(defun default-foreign-library-type ()
"Returns string naming default library type for platform"
(defun default-foreign-library-type ()
"Returns string naming default library type for platform"
- #+(or win32 mswindows) "dll"
+ #+(or win32
cygwin
mswindows) "dll"
#+(or macosx darwin ccl-5.0) "dylib"
#+(or macosx darwin ccl-5.0) "dylib"
- #-(or win32 mswindows macosx darwin ccl-5.0) "so"
+ #-(or win32
cygwin
mswindows macosx darwin ccl-5.0) "so"
)
(defun foreign-library-types ()
)
(defun foreign-library-types ()
@@
-45,9
+45,6
@@
library type if type is not specified."
(unless (listp directories)
(setq directories (list directories)))
#+(or win32 mswindows)
(unless (listp directories)
(setq directories (list directories)))
#+(or win32 mswindows)
- (unless drive-letters
- (setq drive-letters (list (pathname-device directories))))
- #+(or win32 mswindows)
(unless (listp drive-letters)
(setq drive-letters (list drive-letters)))
#-(or win32 mswindows)
(unless (listp drive-letters)
(setq drive-letters (list drive-letters)))
#-(or win32 mswindows)