;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: libraries.cl,v 1.1 2002/03/09 19:55:33 kevin Exp $
+;;;; $Id: libraries.cl,v 1.2 2002/03/10 20:01:55 kevin Exp $
;;;;
;;;; This file is part of the UFFI.
;;;;
(defvar *loaded-libraries* nil
"List of foreign libraries loaded. Used to prevent reloading a library")
-(defun load-foreign-library (filename module supporting-libraries)
+(defun load-foreign-library (filename &key module supporting-libraries)
#+allegro (declare (ignore module supporting-libraries))
#+lispworks (declare (ignore supporting-libraries))
#+cmu (declare (ignore module))
:libraries
(convert-supporting-libraries-to-string
supporting-libraries))
- #+lispworks (fli:register-module module :connection-style :automatic
+ #+lispworks (fli:register-module module
+ :connection-style :automatic
:real-name filename)
#+allegro (load filename)