anchor.diff:  (defn copy-c-array-to-texture-backed-gpu-array ((src c-array)
                                                   (dst gpu-array-t))
       gpu-array-t
  -  (upload-c-array-to-gpu-array-t
  -   dst src
  -   (lisp-type->pixel-format src))
  +  (upload-c-array-to-gpu-array-t dst src)
     dst)
   
   (defn copy-lisp-data-to-texture-backed-gpu-array ((src (or list array))
  
positive.code:                                 (error "Could not extablish a buffer-texture-type with dimensions ~a"
                                         dimensions))))
           (assert (every #'= dimensions (dimensions initial-contents)))
           (assert-valid-args-for-buffer-backend-texture
            image-format cubes rectangle multisample mipmap layer-count
            texture-type)
           (values initial-contents texture-type)))
  
negative.code:                            (validate-pixel-format
                              initial-contents
                              (or pixel-format
                                  (pixel-format-from-array initial-contents)))))
             (texture-type (establish-texture-type
                            (length dimensions)
                            (not (null mipmap)) (> layer-count 1) cubes
  