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)
