Use single-floats instead of short-floats for the %GL:FLOAT type.
Mon Jun 22 03:57:42 PDT 2009 Luis Oliveira <loliveira@common-lisp.net>
* Use single-floats instead of short-floats for the %GL:FLOAT type.
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-30 00:01:57.000000000 -0700
+++ new-cl-opengl/gl/types.lisp 2014-07-30 00:01:57.000000000 -0700
@@ -54,12 +54,12 @@
(:simple-parser ensure-float))
(defmethod translate-to-foreign (value (type ensure-float))
- (cl:float value 1.0s0))
+ (cl:float value 1.0f0))
(defmethod expand-to-foreign (value (type ensure-float))
(if (constantp value)
- (cl:float (eval value) 1.0s0)
- `(cl:float ,value 1.0s0)))
+ (cl:float (eval value) 1.0f0)
+ `(cl:float ,value 1.0f0)))
(define-foreign-type ensure-double ()
()