anchor.diff:    (cl-command-type cl-uint)
     (cl-profiling-info cl-uint))
   
  -(defcstruct cl-image-format
  +(defcstruct-export cl-image-format
     (image-channel-order cl-channel-order)
     (image-channel-data-type cl-channel-type))
   
  -(defcstruct cl-image-desc
  +(defcstruct-export cl-image-desc
     (image-type cl-mem-object-type)
     (image-width size-t)
     (image-height size-t)
  
positive.code:      ,@(loop for constant in constants
               collect `(export ',(car constant))
               collect `(defconstant ,@constant))))
  
  #| cl-platform.h |#
  (defctypes
  
negative.code:   (num-samples cl-uint)
    (buffer cl-mem))
  
  (defcstruct-export cl-buffer-region
    (origin size-t)
    (size size-t))
  
  