r2892: *** empty log message ***

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

diff --git a/src-mcl/libraries.cl b/src-mcl/libraries.cl
index 8495d555aa4427132f2254af518573c9c63a440e..32265525a0915945d8e4c16770522c7ca23a841f 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.3 2002/09/29 17:50:07 kevin Exp $
+;;;; $Id: libraries.cl,v 1.4 2002/09/30 01:57:32 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and John DeSoi
@@ -25,11 +25,11 @@
 
 ;in MCL calling this more than once for the same library does not do anything
 #-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))
   `(eval-when (:compile-toplevel :load-toplevel :execute)
-     (when (ccl:add-to-shared-library-search-path ,filename t) 
-       (pushnew ,filename *loaded-libraries*))))
+     (when (ccl:add-to-shared-library-search-path filename t) 
+       (pushnew filename *loaded-libraries*))))
 
 
 ; Note we are not dealing with OpenMCL's ability to close the library
@@ -37,7 +37,7 @@
 #+openmcl
 (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)))
+  (let ((path (if (pathnamep filename) (namestring filename) filename)))
      (when (stringp path)
        (if (position path *loaded-libraries* :test #'string-equal)
          t