anchor.diff:    (dev cu-device))
   
   ;; cuCtxCreate
  -(defcufun (cu-ctx-create "cuCtxCreate") cu-result
  +(defcufun (cu-ctx-create "cuCtxCreate_v2") cu-result
     (pctx (:pointer cu-context))
     (flags :unsigned-int)
     (dev cu-device))
  
positive.code:   (flags :unsigned-int))
  
  ;; cuEventDestroy
  (defcufun (cu-event-destroy "cuEventDestroy") cu-result
    (h-event cu-event))
  
  ;; cuEventElapsedTime
  
negative.code:   (dev cu-device))
  
  ;; cuCtxDestroy
  (defcufun (cu-ctx-destroy "cuCtxDestroy_v2") cu-result
    (ctx cu-context))
  
  ;; cuCtxSynchronize
  (defcufun (cu-ctx-synchronize "cuCtxSynchronize") cu-result)
  
  ;; cuMemAlloc
  (defcufun (cu-mem-alloc "cuMemAlloc_v2") cu-result
    (dptr (:pointer cu-device-ptr))
    (bytesize size-t))
  
  ;; cuMemFree
  (defcufun (cu-mem-free "cuMemFree_v2") cu-result
    (dptr cu-device-ptr))
  
  ;; cuMemcpyHtoD
  (defcufun (cu-memcpy-host-to-device "cuMemcpyHtoD_v2") cu-result
    (dst-device cu-device-ptr)
    (src-host :pointer)
    (byte-count size-t))
  
  ;; cuMemcpyDtoH
  (defcufun (cu-memcpy-device-to-host "cuMemcpyDtoH_v2") cu-result
    (dst-host :pointer)
    (src-device cu-device-ptr)
    (byte-count size-t))
  