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)