anchor.diff:              (loop for n from 0 below num
                     collecting (mem-aref platforms 'cl-platform-id n))))))))
   
  +#| Context APIs |#
  +
   @export
   (defun create-context (properties
                          num-devices
  
positive.code:     (unless (= +cl-success+ result)
        (api-error 'enqueue-ndrange-kernel result))))
  
  @export
  (defun set-platform-id (properties platform-id)
    (setf (mem-aref properties 'cl-context-properties 0) +cl-context-platform+)
  
negative.code:                                                   errcode-ret)))
        (check-errcode-ret program 'cl-create-program-with-source errcode-ret))))
  
  #| Kernel Object APIs |#
  
  @export
  (defun create-kernel (program kernel-name)
    (with-foreign-object (errcode-ret 'cl-int)
      (let ((kernel (cl-create-kernel program kernel-name errcode-ret)))
        (check-errcode-ret kernel 'cl-create-kernel errcode-ret))))
  
  #| Command Queue APIs |#
  
  @export
  (defun create-command-queue (context device properties)
  