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

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-openal
In directory common-lisp.net:/tmp/cvs-serv27567/cl-openal

Modified Files:
	altypes.lisp cl-openal.lisp 
Log Message:
Re-port to Lispworks/win32
Date: Thu Oct 28 02:09:31 2004
Author: ktilton

Index: cell-cultures/cl-openal/altypes.lisp
diff -u cell-cultures/cl-openal/altypes.lisp:1.1 cell-cultures/cl-openal/altypes.lisp:1.2
--- cell-cultures/cl-openal/altypes.lisp:1.1	Sat Jun 26 20:38:40 2004
+++ cell-cultures/cl-openal/altypes.lisp	Thu Oct 28 02:09:25 2004
@@ -24,7 +24,6 @@
 (dft al-bitfield #-allegro-v5.0.1 :unsigned-int #+allegro-v5.0.1 :int integer)
 
 (dft al-int :int integer)
-(dft al-sizei :int integer)
 
 (dft al-uint #-allegro-v5.0.1 :unsigned-int #+allegro-v5.0.1 :int integer)
 (dft al-ushort #-allegro-v5.0.1 :unsigned-int #+allegro-v5.0.1 :int integer)


Index: cell-cultures/cl-openal/cl-openal.lisp
diff -u cell-cultures/cl-openal/cl-openal.lisp:1.1 cell-cultures/cl-openal/cl-openal.lisp:1.2
--- cell-cultures/cl-openal/cl-openal.lisp:1.1	Sat Jun 26 20:38:40 2004
+++ cell-cultures/cl-openal/cl-openal.lisp	Thu Oct 28 02:09:25 2004
@@ -46,8 +46,8 @@
 (defparameter *audio-files* :unconfigured)
 
 (eval-when (compile load)
-  (load (merge-pathnames "cl-openal-config.lisp"
-          cl-user::*cello-config-directory*)))
+  (load (merge-pathnames "cl-openal-config"
+          cl-user::*cell-cultures-config*)))
 
 #+doit
 (xoa)