[cello-cvs] CVS cello/cl-openal

[ktilton]

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

Modified Files:
	cl-openal-init.lisp cl-openal.asd cl-openal.lisp cl-openal.lpr 
	wav-handling.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2006/11/13 05:29:28	1.8
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal-init.lisp	2007/02/02 20:11:14	1.9
@@ -2,7 +2,7 @@
 ;;________________________________________________________
 ;;
 ;;;
-;;; Copyright © 2004 by Kenneth William Tilton.
+;;; Copyright (c) 2004 by Kenneth William Tilton.
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy 
 ;;; of this software and associated documentation files (the "Software"), to deal 
@@ -34,12 +34,12 @@
   (when (and *openal-initialized-p* (not force))
     (return-from cl-openal-init t))
 
-#-macosx (xoa)
+#-cffi-features:darwin (xoa)
 
   (assert (use-foreign-library OpenAL)
     () "Failed to load OpenAL dynamic lib")
 
-#-macosx
+#-cffi-features:darwin
   (assert (use-foreign-library ALut)
     () "Failed to load alut dynamic lib")
   
@@ -56,7 +56,7 @@
 
     (format t "got openal device ~a" device)
       
-    (let* ((context (alc-create-context device 0)))
+    (let* ((context (alc-create-context device (null-pointer))))
       (when (null-pointer-p context)
         (break "~&Failed to create Open AL context"))
       (format t "~&created openal context ~a" context)
@@ -87,7 +87,7 @@
     (let ((context (alc-get-current-context)))
       (unless (null-pointer-p context)
         (let ((device (alc-get-contexts-device context)))
-          (alc-make-context-current 0)
+          (alc-make-context-current (null-pointer))
           (alc-destroy-context context)
           (alc-close-device device)
           (setf *openal-initialized-p* nil))))))
--- /project/cello/cvsroot/cello/cl-openal/cl-openal.asd	2006/07/06 22:09:11	1.2
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal.asd	2007/02/02 20:11:14	1.3
@@ -16,7 +16,7 @@
   :licence "MIT"
   :description "Partial OpenAL Bindings"
   :long-description "Poorly implemented bindings to half of OpenAL"
-  :depends-on (cffi cffi-extender)
+  :depends-on (cffi cffi-extender cells)
   :perform (load-op :after (op cl-openal)
              (pushnew :cl-openal cl:*features*))
   :components ((:file "cl-openal")
--- /project/cello/cvsroot/cello/cl-openal/cl-openal.lisp	2006/11/13 05:29:28	1.5
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal.lisp	2007/02/02 20:11:14	1.6
@@ -2,7 +2,7 @@
 ;;________________________________________________________
 ;;
 ;;;
-;;; Copyright © 2004 by Kenneth William Tilton.
+;;; Copyright (c) 2004 by Kenneth William Tilton.
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy 
 ;;; of this software and associated documentation files (the "Software"), to deal 
@@ -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.5 2006/11/13 05:29:28 ktilton Exp $
+;;; $Id: cl-openal.lisp,v 1.6 2007/02/02 20:11:14 ktilton Exp $
 
 (pushnew :cl-openal *features*)
 
@@ -70,3 +70,5 @@
       (print `(unloading foreign library ,dll))
       (ff:unload-foreign-library dll))))
 
+#-allegro
+(defun xoa ())
--- /project/cello/cvsroot/cello/cl-openal/cl-openal.lpr	2006/11/13 05:29:28	1.11
+++ /project/cello/cvsroot/cello/cl-openal/cl-openal.lpr	2007/02/02 20:11:14	1.12
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.0 [Windows] (Nov 6, 2006 16:43)"; cg: "1.81"; -*-
+;; -*- lisp-version: "8.0 [Windows] (Jan 22, 2007 8:01)"; cg: "1.81"; -*-
 
 (in-package :cg-user)
 
--- /project/cello/cvsroot/cello/cl-openal/wav-handling.lisp	2006/11/13 05:29:28	1.4
+++ /project/cello/cvsroot/cello/cl-openal/wav-handling.lisp	2007/02/02 20:11:14	1.5
@@ -2,7 +2,7 @@
 ;;________________________________________________________
 ;;
 ;;;
-;;; Copyright © 2004 by Kenneth William Tilton.
+;;; Copyright (c) 2004 by Kenneth William Tilton.
 ;;;
 ;;; Permission is hereby granted, free of charge, to any person obtaining a copy 
 ;;; of this software and associated documentation files (the "Software"), to deal