;;;; 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
(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