r2886: *** empty log message ***

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

diff --git a/src-mcl/libraries.cl b/src-mcl/libraries.cl
index ad6497d1b20cdedcd5cce6d1ee8a2cc949cce370..8495d555aa4427132f2254af518573c9c63a440e 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.2 2002/09/20 04:51:14 kevin Exp $
+;;;; $Id: libraries.cl,v 1.3 2002/09/29 17:50:07 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and John DeSoi
@@ -35,7 +35,7 @@
 ; Note we are not dealing with OpenMCL's ability to close the library
 ; As of v0.13 .dylibs can't be closed but bundles can. See the docs for the latest.
 #+openmcl
-(defmacro load-foreign-library (filename &key module supporting-libraries force-load)
+(defun load-foreign-library (filename &key module supporting-libraries force-load)
   (declare (ignore module supporting-libraries force-load))
   `(let ((path (if (pathnamep ,filename) (namestring ,filename) ,filename)))
      (when (stringp path)
@@ -99,4 +99,4 @@ library type if type is not specified."
   
   
   
-  
\ No newline at end of file
+