[cello-cvs] CVS cello/cl-openal

[fgoenninger]

Update of /project/cello/cvsroot/cello/cl-openal
In directory clnet:/tmp/cvs-serv31418

Modified Files:
	cl-openal-init.lisp 
Log Message:
 Added: parameter *openal-library-loaded-p* =>
        when NIL then DLL/Framework is loaded when cl-open-init
        is called. Upon first load this flag is set to T.

--- /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2007/02/02 20:11:14	1.9
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2007/09/07 18:42:15	1.10
@@ -25,6 +25,7 @@
 (in-package :cl-openal)
 
 (defparameter *openal-initialized-p* nil)
+(defparameter *openal-library-loaded-p* nil)
 
 #+force
 (cl-openal-init t)
@@ -36,8 +37,12 @@
 
 #-cffi-features:darwin (xoa)
 
-  (assert (use-foreign-library OpenAL)
-    () "Failed to load OpenAL dynamic lib")
+  (when (or (not *openal-library-loaded-p*)
+            force)
+    (progn
+      (assert (use-foreign-library OpenAL)
+              () "Failed to load OpenAL dynamic lib")
+      (setf *openal-library-loaded-p* t)))
 
 #-cffi-features:darwin
   (assert (use-foreign-library ALut)