anchor.diff:        (destructuring-bind (format type)
             (cepl.pixel-formats::compile-pixel-format p-format)
           (%with-scratch-texture-bound texture
  +          (setf (pack-alignment) (c-array-row-alignment c-array))
             (%gl:get-tex-image (foreign-enum-value '%gl:enum texture-type)
                                (coerce level-num 'real)
                                format
  
positive.code:   (pull-g (texref object)))
  
  ;; [TODO] implement gl-fill and fill arguments
  ;; [TODO] Does not respect GL_PIXEL_PACK/UNPACK_BUFFER
  (defmethod pull1-g ((object gpu-array-t))
    (with-gpu-array-t object
      (let* ((p-format (image-format->pixel-format
  
negative.code: ;; texture views
  ;; generate-mipmaps
  ;; texsubimage*d - pushing data
  