Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv24185
Modified Files: pal.lisp Log Message: Fixed a CLisp specific(? )bug in CLEAR-SCREEN
--- /project/pal/cvsroot/pal/pal.lisp 2007/07/03 18:50:48 1.6 +++ /project/pal/cvsroot/pal/pal.lisp 2007/07/04 18:41:12 1.7 @@ -244,7 +244,10 @@ (declaim (inline clear-screen)) (defun clear-screen (r g b) (declare (type u8 r g b)) - (pal-ffi:gl-clear-color (/ r 255f0) (/ g 255f0) (/ b 255f0) 255f0) + (pal-ffi:gl-clear-color (coerce (/ r 255f0) 'single-float) + (coerce (/ g 255f0) 'single-float) + (coerce (/ b 255f0) 'single-float) + 1f0) (pal-ffi:gl-clear pal-ffi:+gl-color-buffer-bit+))
(defun set-mouse-pos (x y)