anchor.diff:    (boxmuller-extra-double :double))
   
   
  -;;;
  -;;; Definition of cl-cuda types
  +
  +;;;
  +;;; Types
   ;;;
   
   (defparameter +basic-types+ `((void  0 :void)
  
positive.code:   (z :float))
  
  (defmethod cffi:translate-into-foreign-memory ((value float3)
                                                 (type float3-c) ptr)
    (cffi:with-foreign-slots ((x y z) ptr (:struct float3))
      (setf x (float3-x value)
            y (float3-y value)
  
negative.code: 
  
  ;;;
  ;;; Float3
  ;;;
  
  (defstruct (float3 (:constructor make-float3 (x y z)))
  