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)