anchor.diff:                   ;; no allocator support for now...
                    (null-pointer)))))
     (define-destroy destroy-swapchain-khr device swapchain)
  -  (define-destroy destroy-command-pool device pool))
  +  (define-destroy destroy-command-pool device pool)
  +  (define-destroy destroy-image-view device image-view))
   
   
   
  
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: 
  
  
  (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)))
  
  
  
  