anchor.diff:      (unless (= +cl-success+ result)
         (api-error 'enqueue-ndrange-kernel result))))
   
  +#| parameter setup |#
  +
   @export
   (defun set-platform-id (properties platform-id)
     (setf (mem-aref properties 'cl-context-properties 0) +cl-context-platform+)
  
positive.code:                                       errcode-ret)))
        (check-errcode-ret context 'cl-create-context errcode-ret))))
  
  @export
  (defun create-buffer (context flags size &optional (host-ptr (null-pointer)))
    (with-foreign-object (errcode-ret 'cl-int)
  
negative.code:             (loop for n from 0 below num
                    collecting (mem-aref platforms 'cl-platform-id n))))))))
  
  #| Context APIs |#
  
  @export
  (defun create-context (properties
                         num-devices
  