anchor.diff:                                                              p
                                                               (null-pointer)
                                                               errcode-ret)))
  -                (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create program")
  +                (is-success (mem-aref errcode-ret 'cl-int) "create program")
                   (ok program "create program")
  -                (is +cl-success+ (cl-build-program program
  -                                                   1
  -                                                   devices
  -                                                   (null-pointer)
  -                                                   (null-pointer)
  -                                                   (null-pointer)) "build program")
  +                (is-success (cl-build-program program
  +                                              1
  +                                              devices
  +                                              (null-pointer)
  +                                              (null-pointer)
  +                                              (null-pointer)) "build program")
                   (with-foreign-string (name "alfa")
                     (let ((kernel (cl-create-kernel program name errcode-ret)))
  -                    (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create kernel")
  +                    (is-success (mem-aref errcode-ret 'cl-int) "create kernel")
                       (ok kernel "create kernel")
                       (with-foreign-object (p :pointer)
                         (setf (mem-ref p :pointer) buffer)
  -                      (is +cl-success+ (cl-set-kernel-arg kernel 0 8 p) "set kernel arg")
  +                      (is-success (cl-set-kernel-arg kernel 0 8 p) "set kernel arg")
                         (let ((command-queue (cl-create-command-queue context
                                                                       device
                                                                       0
                                                                       errcode-ret)))
  -                        (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create command queue")
  +                        (is-success (mem-aref errcode-ret 'cl-int) "create command queue")
                           (ok command-queue "create command queue")
                           (with-foreign-objects ((global-work-size 'size-t 3)
                                                  (local-work-size 'size-t 3))
  
positive.code:                          (devices 'cl-device-id)
                           (num-devices 'cl-uint)
                           (errcode-ret 'cl-int))
      (is +cl-success+ (cl-get-platform-ids 1 platforms num-platforms) "create platform")
      (let ((platform (mem-aref platforms 'cl-platform-id)))
        (is +cl-success+ (cl-get-device-ids platform
                                            +cl-device-type-default+
                                            1
                                            devices
                                            num-devices) "create device")
        (let ((context (cl-create-context (null-pointer)
                                          1
                                          devices
  
negative.code:                          (devices 'cl-device-id)
                           (num-devices 'cl-uint)
                           (errcode-ret 'cl-int))
      (is-success (cl-get-platform-ids 1 platforms num-platforms) "create platform")
      (let ((platform (mem-aref platforms 'cl-platform-id)))
        (is-success (cl-get-device-ids platform
                                       +cl-device-type-default+
                                       1
                                       devices
                                       num-devices) "create device")
        (let ((context (cl-create-context (null-pointer)
                                          1
                                          devices
  