30 Mar
2014
30 Mar
'14
2:12 p.m.
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). -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.