anchor.diff:      ((typep (second pattern) 'cepl-camera:camera)
        (texref
         (make-texture nil :dimensions (cepl-camera:frame-size (second pattern))
  -                    :internal-format (%get-default-texture-format
  -                                      (first pattern)))))
  +                    :element-type (%get-default-texture-format
  +				   (first pattern)))))
       ;; use an existing gpu-array
       ((typep (second pattern) 'gpu-array-t) (second pattern))
       ;; use the first gpu-array in texture
  
positive.code:     ((keywordp pattern)
       (texref
        (make-texture nil :dimensions (viewport-resolution (current-viewport))
                      :internal-format (%get-default-texture-format pattern))))
      ;; pattern with args for make-texture
      ((some (lambda (x) (member x %possible-texture-keys)) pattern)
       (when (some (lambda (x) (and (member x %possible-texture-keys)
  
negative.code:        (texref
          (make-texture nil
                        :dimensions dimensions
                        :element-type internal-format
                        :mipmap mipmap
                        :immutable immutable
                        :lod-bias lod-bias
  