anchor.diff:  
   
   
  -
  +(defun create-image-view (device image
  +                          &key flags
  +                            (view-type :2d)
  +                            (format)
  +                            (components '(:r :r :g :g :b :b :a :a))
  +                            (subresource-range '(:aspect-mask :color
  +                                                 :base-mip-level 0
  +                                                 :level-count 1
  +                                                 :base-array-layer 0
  +                                                 :layer-count 1)))
  +  (%create-image-view device `(:image ,image
  +                               :format ,format
  +                               :flags ,flags
  +                               :view-type ,view-type
  +                               :components ,components
  +                               :subresource-range ,subresource-range)))
   
   
   
  
positive.code:   (wrap-counted-args cmd-clear-color-image command-buffer image image-layout
                       (color (:union %vk:clear-color-value) :pointer)
                       (ranges (:struct %vk:image-subresource-range))))
  
negative.code:                  ;; no allocator support for now...
                   (null-pointer)))))
    (define-destroy destroy-swapchain-khr device swapchain)
    (define-destroy destroy-command-pool device pool)
    (define-destroy destroy-image-view device image-view))
  
  
  
  