[Openmcl-devel] cgfloat...

[Raffael Cavallaro]

On Jun 7, 2009, at 1:01 PM, Joakim Sandgren wrote:

> Hi,
> how can I do a cgfloat? the gui::cgfloat return a normal float.   
> that setLineWidth: dont want...
> how to do?...

This works correctly on both 32-bit and 64-bit ccl:

Welcome to Clozure Common Lisp Version 1.4-dev-r12220M-trunk   
(DarwinX8664)!
? (type-of (coerce 3 'ns:cg-float))
DOUBLE-FLOAT

Welcome to Clozure Common Lisp Version 1.4-dev-r12220M-trunk   
(DarwinX8632)!
? (type-of (coerce 3 'ns:cg-float))
SINGLE-FLOAT
?

The approach I use is to bind *read-default-float-format* to ns:cg- 
float in code that expects CGFloats.

warmest regards,

Ralph



Raffael Cavallaro
raffaelcavallaro at me.com