Update of /project/cells/cvsroot/cell-cultures/cl-openal In directory common-lisp.net:/tmp/cvs-serv15540/cl-openal
Modified Files: cl-openal-demo.lisp cl-openal.lisp cl-openal.lpr Log Message: Establish Cells II (aka Cells 2.0, aka Cells) as Cells module in Cells project CVS tree Date: Fri May 6 23:18:23 2005 Author: ktilton
Index: cell-cultures/cl-openal/cl-openal-demo.lisp diff -u cell-cultures/cl-openal/cl-openal-demo.lisp:1.1 cell-cultures/cl-openal/cl-openal-demo.lisp:1.2 --- cell-cultures/cl-openal/cl-openal-demo.lisp:1.1 Sat Jun 26 20:38:40 2004 +++ cell-cultures/cl-openal/cl-openal-demo.lisp Fri May 6 23:18:23 2005 @@ -4,7 +4,7 @@ (defparameter g-buffers (fgn-alloc 'al-uint num_buffers))
(defun cl-openal-test () - (let ((w$ (list "/dvl/sounds/click2.wav" ))) + (let ((w$ (list "/cell-cultures/cell-cultures-user/sounds/click2.wav" ))) (apply 'wav-play-till-end (lambda (dur sources) (loop for source in sources
Index: cell-cultures/cl-openal/cl-openal.lisp diff -u cell-cultures/cl-openal/cl-openal.lisp:1.2 cell-cultures/cl-openal/cl-openal.lisp:1.3 --- cell-cultures/cl-openal/cl-openal.lisp:1.2 Thu Oct 28 02:09:25 2004 +++ cell-cultures/cl-openal/cl-openal.lisp Fri May 6 23:18:23 2005 @@ -41,14 +41,6 @@
(in-package :cl-openal)
-(defparameter *al-dynamic-lib* :unconfigured) -(defparameter *alut-dynamic-lib* :unconfigured) -(defparameter *audio-files* :unconfigured) - -(eval-when (compile load) - (load (merge-pathnames "cl-openal-config" - cl-user::*cell-cultures-config*))) - #+doit (xoa)
Index: cell-cultures/cl-openal/cl-openal.lpr diff -u cell-cultures/cl-openal/cl-openal.lpr:1.2 cell-cultures/cl-openal/cl-openal.lpr:1.3 --- cell-cultures/cl-openal/cl-openal.lpr:1.2 Fri Apr 8 11:11:18 2005 +++ cell-cultures/cl-openal/cl-openal.lpr Fri May 6 23:18:23 2005 @@ -1,11 +1,12 @@ -;; -*- lisp-version: "7.0 [Windows] (Dec 28, 2004 17:34)"; cg: "1.54.2.17"; -*- +;; -*- lisp-version: "7.0 [Windows] (Apr 6, 2005 17:03)"; cg: "1.54.2.17"; -*-
(in-package :cg-user)
(defpackage :CL-OPENAL)
(define-project :name :cl-openal - :modules (list (make-instance 'module :name "cl-openal.lisp") + :modules (list (make-instance 'module :name "cl-openal-config.lisp") + (make-instance 'module :name "cl-openal.lisp") (make-instance 'module :name "altypes.lisp") (make-instance 'module :name "al.lisp") (make-instance 'module :name "alctypes.lisp")