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:                                     host-ptr
                                      errcode-ret)))
        (check-errcode-ret buffer 'cl-create-buffer errcode-ret))))
  
  @export
  (defun create-program-with-source (context count strings &optional (lengths (null-pointer)))
  
negative.code:   `(when (= +cl-success+ ,expr)
       ,@body))
  
  #| Platform APIs |#
  
  @export
  (defun get-platform-id ()
    (with-foreign-objects ((platforms 'cl-platform-id)
  