anchor.diff:    (:cu-event-interprocess #X4))
   
   
  -;;; Functions
  +;;;
  +;;; Definition of CUDA driver API functions
  +;;;
   
   ;; cuInit
   (defcufun (cu-init "cuInit") cu-result (flags :unsigned-int))
  
positive.code:       `(progn ,@body)))
  
  
  ;;; defkernel
  
  (defmacro with-module-and-function (args &body body)
    (destructuring-bind (hfunc module function) args
  
negative.code:          (cffi:defcfun ,name-and-options% ,return-type ,@args))))
  
  
  ;;;
  ;;; Definition of defcuenum macro
  ;;;
  
  (eval-when (:compile-toplevel :load-toplevel)
    (defun enum-keyword (enum-elem)
  