(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 win32 mswindows macosx darwin ccl-5.0) "so"
+ #-(or win32 cygwin mswindows macosx darwin ccl-5.0) "so"
)
(defun foreign-library-types ()
(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)