X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fmcl%2Flibraries.cl;fp=src%2Fmcl%2Flibraries.cl;h=bdd8682388b4c715113d55aaab3427ea3bb88067;hb=2cb7881465ccb39e976d324e19c7b742dd3e9334;hp=14b91996fe0fbd2efae76811cf88081c6a718800;hpb=46fbc92bfdcb2504d863929bde42962275e80e74;p=uffi.git

diff --git a/src/mcl/libraries.cl b/src/mcl/libraries.cl
index 14b9199..bdd8682 100644
--- 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.5 2002/04/23 00:31:42 desoi 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