[cells-cvs] CVS update: cell-cultures/cl-openal/cl-openal-demo.lisp cell-cultures/cl-openal/cl-openal.lisp cell-cultures/cl-openal/cl-openal.lpr

Kenny Tilton ktilton at common-lisp.net
Fri May 6 21:18:30 UTC 2005


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")




More information about the Cells-cvs mailing list