anchor.diff:  
   (let ((def (cl-cuda::define-kernel-function 'foo 'void '() '((return))
                (cl-cuda::empty-kernel-definition))))
  -  (is (cl-cuda::kernel-function-name 'foo def) 'foo)
  -  (is (cl-cuda::kernel-function-c-name 'foo def) "foo")
  -  (is (cl-cuda::kernel-function-return-type 'foo def) 'void)
  -  (is (cl-cuda::kernel-function-arg-bindings 'foo def) '())
  -  (is (cl-cuda::kernel-function-body 'foo def) '((return))))
  +  (is (cl-cuda::kernel-function-name         'foo def) 'foo       )
  +  (is (cl-cuda::kernel-function-c-name       'foo def) "foo"      )
  +  (is (cl-cuda::kernel-function-return-type  'foo def) 'void      )
  +  (is (cl-cuda::kernel-function-arg-bindings 'foo def) '()        )
  +  (is (cl-cuda::kernel-function-body         'foo def) '((return))))
   
   (let ((def (cl-cuda::empty-kernel-definition)))
     (is-error (cl-cuda::kernel-function-name 'foo def) simple-error))
  
positive.code:       (is-error (mem-aref x 1) simple-error)
        (is-error (setf (mem-aref x 1) 0) simple-error))))
  
  (defkernel test-memcpy (void ((x int*) (y float*)))
    (set (aref x 0) (+ (aref x 0) 1))
    (set (aref y 0) (+ (aref y 0) 1.0)))
  
negative.code:     (format t "CUDA device compute capability: ~A.~A~%"
                (cffi:mem-ref major :int) (cffi:mem-ref minor :int))))
  
  ;; test cuDeviceGetName
  (diag "test cuDeviceGetName")
  (let ((dev-id 0))
    (cffi:with-foreign-object (device 'cu-device)
  