From: John DeSoi <desoi@mac.com>
Date: Tue, 23 Apr 2002 00:31:42 +0000 (+0000)
Subject: r1787: Added functions required by UFFI but not used in MCL.
X-Git-Tag: v1.6.1~488
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=2cb7881465ccb39e976d324e19c7b742dd3e9334;p=uffi.git

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

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