anchor.diff:                           initial-contents)))
            (result (%make-texture tex-obj dim mipmap layer-count cubes
   				buffer-storage rectangle multisample immutable
  -				nil image-format lod-bias min-lod max-lod
  -                                minify-filter magnify-filter wrap compare
  -                                generate-mipmaps)))
  +				nil image-format generate-mipmaps)))
       (loop :for data :in initial-contents :for i :from 0 :do
          (push-g data (texref result :cube-face i)))
       result))
   
   (defun %make-texture (tex-obj dimensions mipmap layer-count cubes buffer-storage
                         rectangle multisample immutable initial-contents
  -                      image-format lod-bias min-lod max-lod minify-filter
  -                      magnify-filter wrap compare generate-mipmaps)
  +                      image-format generate-mipmaps)
     (let* ((dimensions (listify dimensions))
   	 (dimensions (%texture-dimensions initial-contents dimensions)))
       ;; check for power of two - handle or warn
  
positive.code:     ;; validation
      (assert-valid-args-for-buffer-backend-texture
       image-format cubes rectangle multisample mipmap layer-count
       lod-bias min-lod max-lod minify-filter magnify-filter wrap compare
       texture-type)
      ;; creation
      (let* ((array (if initial-contents
  
negative.code:       ((and initial-contents cubes)
         (%make-cube-texture tex-obj dimensions mipmap layer-count cubes
  			   buffer-storage rectangle multisample immutable
  			   initial-contents image-format generate-mipmaps))
        ;; initialize content needs to be turned into c-array
        ((and initial-contents (typep initial-contents 'uploadable-lisp-seq))
         (%make-texture-with-lisp-data tex-obj dimensions mipmap layer-count cubes
                                       buffer-storage rectangle multisample
                                       immutable initial-contents generate-mipmaps
  				     element-type image-format))
        ;; buffer backed - note that by now if there were intitial contents, they
        ;;                 are now a c-array
        (buffer-storage
         (%make-buffer-texture tex-obj
  			     (%texture-dimensions initial-contents dimensions)
                               image-format mipmap layer-count cubes
                               rectangle multisample immutable initial-contents))
        ;; all other cases
        (t (%make-texture tex-obj dimensions mipmap layer-count cubes
  			buffer-storage rectangle multisample immutable
  			initial-contents image-format generate-mipmaps)))))
  
  ;;-   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
  
  