[pal-cvs] CVS pal

[tneste]

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)