From da2f0124bc56de1ed19953c4d59739f3783c3176 Mon Sep 17 00:00:00 2001 From: John DeSoi Date: Fri, 5 Apr 2002 04:10:38 +0000 Subject: [PATCH] r1739: Fixed dumb cleanup bug in first version. --- src/mcl/libraries.cl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/mcl/libraries.cl b/src/mcl/libraries.cl index 7d6dbf2..170acec 100644 --- a/src/mcl/libraries.cl +++ b/src/mcl/libraries.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: libraries.cl,v 1.1 2002/04/04 05:02:03 desoi Exp $ +;;;; $Id: libraries.cl,v 1.2 2002/04/05 04:10:38 desoi Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -22,12 +22,12 @@ (defvar *loaded-libraries* nil "List of foreign libraries loaded. Used to prevent reloading a library") - +;in MCL calling this more than once for the same library does not do anything (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*)))) (defun convert-supporting-libraries-to-string (libs) (let (lib-load-list) -- 2.34.1