Use explicit single-float constants.
Tue Jun 2 06:03:49 PDT 2009 Luis Oliveira <loliveira@common-lisp.net>
* Use explicit single-float constants.
Use 1.0s0 so that cl-opengl compilation is not dependent on
*READ-DEFAULT-FLOAT-FORMAT* being bound to SINGLE-FLOAT.
Reported by Sumant Oemrawsingh.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-opengl/gl/types.lisp new-cl-opengl/gl/types.lisp
--- old-cl-opengl/gl/types.lisp 2014-07-29 01:42:44.000000000 -0700
+++ new-cl-opengl/gl/types.lisp 2014-07-29 01:42:44.000000000 -0700
@@ -54,12 +54,12 @@
(:simple-parser ensure-float))
(defmethod translate-to-foreign (value (type ensure-float))
- (cl:float value 1.0))
+ (cl:float value 1.0s0))
(defmethod expand-to-foreign (value (type ensure-float))
(if (constantp value)
- (cl:float (eval value) 1.0)
- `(cl:float ,value 1.0)))
+ (cl:float (eval value) 1.0s0)
+ `(cl:float ,value 1.0s0)))
(define-foreign-type ensure-double ()
()