r2385: *** empty log message ***

[uffi.git] / src / mcl / libraries.cl

diff --git a/src/mcl/libraries.cl b/src/mcl/libraries.cl
index 14b91996fe0fbd2efae76811cf88081c6a718800..ba0107f3a0fed3621897a60c426d0aea2ae184af 100644 (file)
--- a/src/mcl/libraries.cl
+++ b/src/mcl/libraries.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg and John DeSoi
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: libraries.cl,v 1.4 2002/04/06 19:13:00 kevin Exp $
+;;;; $Id: libraries.cl,v 1.7 2002/08/23 15:28:11 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and John DeSoi
@@ -71,3 +71,10 @@ library type if type is not specified."
            (when (probe-file path)
              (return-from find-foreign-library path)))))))
    nil)
+
+
+;; Copied directly from main source without MCL specializations
+(defun default-foreign-library-type ()
+  "Returns string naming default library type for platform"
+  #+(or win32 mswindows) "dll"
+  #-(or win32 mswindows) "so")
\ No newline at end of file