Re: [Cffi-devel] Casting variables and functions

On Sun, 2014-03-30 at 06:59 -0700, Joeish W wrote:

This is the way I thought you did it but I'm running this and it's not working:

(with-foreign-object (float :float)

           (setf float 6)
     (type-of float))

 >(INTEGER 0 4611686018427387903)

The output says it is an integer

I tried this:

    (with-foreign-object (float :float)

                (setf (mem-ref float :float) 4)
             (type-of (mem-ref float :float)))

(with-foreign-object (float :float) (setf (mem-ref float :float) (coerce 4 'single-float)) (mem-ref float :float))

or use the syntax 4.0s0 for a literal single-float(4.0d0 is a literal double in comparison).