;;;;
;;;; UFFI users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;;
;;;; UFFI users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
(defvar *loaded-libraries* nil
"List of foreign libraries loaded. Used to prevent reloading a library")
(defvar *loaded-libraries* nil
"List of foreign libraries loaded. Used to prevent reloading a library")
(defmacro load-foreign-library (filename &key module supporting-libraries)
(declare (ignore module supporting-libraries))
`(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro load-foreign-library (filename &key module supporting-libraries)
(declare (ignore module supporting-libraries))
`(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*))))