anchor.diff:    (with-memory-blocks ((x 'int 1))
       (setf (memory-block-aref x 0) 0)
       (sync-memory-block x :host-to-device)
  -    (ok (test-do-kernel x :grid-dim '(1 1 1) :block-dim '(1 1 1))
  -        "basic case 9")
  +    (is (test-do-kernel x :grid-dim '(1 1 1) :block-dim '(1 1 1))
  +        nil "basic case 9")
       (sync-memory-block x :device-to-host)
       (is (memory-block-aref x 0) 16
           "basic case 10")))
  
positive.code:     (with-memory-blocks ((a 'float 1))
        (setf (memory-block-aref a 0) 1.0)
        (sync-memory-block a :host-to-device)
        (ok (kernel-float3 a x :grid-dim '(1 1 1) :block-dim '(1 1 1))
            "basic case 7")
        (sync-memory-block a :device-to-host)
        (is (memory-block-aref a 0) 6.0
            "basic case 8"))))
  
negative.code:           (memory-block-aref y 0) 0)
      (sync-memory-block x :host-to-device)
      (sync-memory-block y :host-to-device)
      (is (test-atomic-add x :grid-dim '(1 1 1) :block-dim '(256 1 1))
          nil "basic case 13")
      (is (test-no-atomic-add y :grid-dim '(1 1 1) :block-dim '(256 1 1))
          nil "basic case 14")
      (sync-memory-block x :device-to-host)
      (sync-memory-block y :host-to-device)
      (is (memory-block-aref x 0) 256
  