anchor.diff:    (is (cl-cuda::compile-kernel-definition def) c-code))
   
   
  +;;;
   ;;; test compile-kernel-function-prototype
  +;;;
   
   (diag "test compile-kernel-function-prototype")
   
  
positive.code: 
  (let ((lisp-code '(with-shared-memory (a float)
                      (return))))
    (is-error (cl-cuda::compile-with-shared-memory lisp-code nil nil)
              simple-error))
  
  (let ((lisp-code '(with-shared-memory ((a float 16 16))
                      (set (aref a 0 0) 1.0)))
  
negative.code: 
  (let ((lisp-code '(with-shared-memory ((a float 16 16))
                      (set (aref a 0) 1.0))))
    (is-error (cl-cuda::compile-with-shared-memory lisp-code nil nil) simple-error))
  
  
  ;;;
  ;;; test compile-set
  ;;;
  
  (diag "test compile-set")
  
  ;; test set-p
  (is (cl-cuda::set-p '(set x          1)) t)
  (is (cl-cuda::set-p '(set (aref x i) 1)) t)
  
  ;; compile-set
  (cl-cuda::with-type-environment (type-env ((x int)))
    (is (cl-cuda::compile-set '(set x 1) type-env nil) "x = 1;"))
  
  