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