anchor.diff:      (error "kernel function \"~A\" is already loaded." name))
     (let ((hmodule (kernel-manager-module-handle mgr))
           (hfunc (foreign-alloc 'cu-function))
  -        (fname (kernel-manager-function-name mgr name)))
  +        (fname (kernel-manager-function-c-name mgr name)))
       (check-cuda-errors
        (cu-module-get-function hfunc (mem-ref hmodule 'cu-module) fname))
       (setf (kernel-manager-function-handle mgr name) hfunc)))
  
positive.code:                                       ,args (null-pointer)))))))))))))
  
  (defmacro defkernel (name arg-types function)
    (kernel-manager-define-function *kernel-manager* name arg-types function)
    (kernel-defun *kernel-manager* name))
  
  
negative.code:     (declare (ignorable _))
      p))
  
  (defmacro kernel-manager-function-name (mgr name)
    `(function-name (function-info ,mgr ,name)))
  
  (defmacro kernel-manager-function-handle (mgr name)
    `(function-handle (function-info ,mgr ,name)))
  
  (defmacro kernel-manager-function-arg-types (mgr name)
    `(function-arg-types (function-info ,mgr ,name)))
  
  (defmacro kernel-manager-function-c-name (mgr name)
    `(function-c-name (function-info ,mgr ,name)))
  
  (defmacro kernel-manager-function-code (mgr name)
    `(function-code (function-info ,mgr ,name)))
  