[cello-cvs] CVS cello/cl-openal

[ktilton]

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

Modified Files:
	cl-openal-init.lisp cl-openal.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2007/09/07 18:42:15	1.10
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2008/04/11 09:23:06	1.11
@@ -31,7 +31,7 @@
 (cl-openal-init t)
 
 (defun cl-openal-init (&optional force)
-  ;;(return-from cl-openal-init nil)
+  (return-from cl-openal-init nil)
   (when (and *openal-initialized-p* (not force))
     (return-from cl-openal-init t))
 
--- /project/cello/cvsroot/cello/cl-openal/cl-openal.lisp	2007/02/02 20:11:14	1.6
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal.lisp	2008/04/11 09:23:06	1.7
@@ -22,7 +22,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Id: cl-openal.lisp,v 1.6 2007/02/02 20:11:14 ktilton Exp $
+;;; $Id: cl-openal.lisp,v 1.7 2008/04/11 09:23:06 ktilton Exp $
 
 (pushnew :cl-openal *features*)
 
@@ -45,11 +45,11 @@
 
 (define-foreign-library OpenAL
       (:darwin (:framework "OpenAL"))
-      (:windows (:or "/windows/system32/openal32.dll")))
+  (:windows (:or "openal32.dll")))
 
 ;; OpenAL 1.0: No separate ALUT for OS X
 (define-foreign-library ALut
-      (:windows (:or "/windows/system32/alut.dll")))
+    (:windows (:or "alut.dll")))
 
 (defparameter *audio-files*
       (make-pathname