anchor.diff:        "a += 1, b += 1")
     (is (cl-cuda::compile-for lisp-code nil nil) c-code))
   
  -(is-error (cl-cuda::compile-for '(for (())) nil nil) simple-error)
  -(is-error (cl-cuda::compile-for '(for ((a))) nil nil) simple-error)
  +(is-error (cl-cuda::compile-for '(for (())   ) nil nil) simple-error)
  +(is-error (cl-cuda::compile-for '(for ((a))  ) nil nil) simple-error)
   (is-error (cl-cuda::compile-for '(for ((a 0))) nil nil) simple-error)
   
   (let ((lisp-code '(for ((a 0.0 15.0))))
  
positive.code:     (cu-ctx-create pctx flags (cffi:mem-ref device 'cu-device))
      (cu-ctx-destroy (cffi:mem-ref pctx 'cu-context))))
  
  
  ;;; test cuMemAlloc/cuMemFree
  (diag "test cuMemAlloc/cuMemFree")
  (let ((flags 0)
        (dev-id 0))
  
negative.code:    (setf (cffi:mem-aref args :pointer 3) n-ptr)
     nil))
  
  ;; test kernel-arg-names
  (is (cl-cuda::kernel-arg-names
        '((a float*) (b float*) (c float*) (n int) (x float3)))
      '(a b c n x))
  
  ;; test kernel-arg-names-as-pointer
  (is (cl-cuda::kernel-arg-names-as-pointer
        '((a float*) (b float*) (c float*) (n int) (x float3)))
      '((cl-cuda::memory-block-device-ptr a)
  