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