uffi/src libraries.lisp,1.11,1.12

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv4310/src

Modified Files:
	libraries.lisp 
Log Message:


Index: libraries.lisp
===================================================================
RCS file: /pubcvs/uffi/src/libraries.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** libraries.lisp	26 Aug 2003 17:39:47 -0000	1.11
--- libraries.lisp	27 Aug 2003 20:00:21 -0000	1.12
***************
*** 29,32 ****
--- 29,39 ----
  )
  
+ (defun foreign-library-types ()
+   "Returns list of string naming possible library types for platform, sorted by preference"
+   #+(or win32 mswindows) '("dll" "lib")
+   #+(or macosx darwin ccl-5.0) '("dylib" "bundle")
+   #-(or win32 mswindows macosx darwin ccl-5.0) '("so" "a" "o")
+ )
+ 
  (defun find-foreign-library (names directories &key types drive-letters)  
    "Looks for a foreign library. directories can be a single
***************
*** 34,38 ****
  library type if type is not specified."
    (unless types
!     (setq types (default-foreign-library-type)))
    (unless (listp types)
      (setq types (list types)))
--- 41,45 ----
  library type if type is not specified."
    (unless types
!     (setq types (foreign-library-types)))
    (unless (listp types)
      (setq types (list types)))