r1787: Added functions required by UFFI but not used in MCL.

diff --git a/src/mcl/libraries.cl b/src/mcl/libraries.cl
index 14b91996fe0fbd2efae76811cf88081c6a718800..bdd8682388b4c715113d55aaab3427ea3bb88067 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.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