;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: libraries.cl,v 1.11 2002/04/01 20:40:36 kevin Exp $
+;;;; $Id: libraries.cl,v 1.12 2002/04/03 17:43:31 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(find filename *loaded-libraries* :test #'string-equal))
t ;; return T, but don't reload library
(progn
- #+cmu (alien:load-foreign filename
+ #+(and ignore cmu) (alien:load-foreign filename
:libraries
(convert-supporting-libraries-to-string
supporting-libraries))
+ #+cmu (sys::load-object-file filename)
+
#+lispworks (fli:register-module module
:connection-style :automatic
:real-name filename)