anchor.diff:    (gl:bind-texture :texture-2d (tex-id this)))
   
   
  -(defmethod unload :before ((this texture) &key)
  +(defmethod unload ((this texture) &key)
     "Unloads the texture. Also cancels gc finalization."
     (trivial-garbage:cancel-finalization this)
     (remhash (key this) *uncollected*)
  
positive.code:   (gl:bind-texture  :texture-2d (tex-id this))
    (gl:Tex-Image-2D :texture-2d 0 (internal-format this)  (width this) (height this) 0 :bgra (cffi-type->gl-type (qtype this)) (cffi:null-pointer))
    
    (gl:bind-texture :texture-2d 0)
    (gl:bind-buffer (target this) 0)))
  
  
  (defmethod bind-sampler ((this texture) shader-program name tex-unit)
  
negative.code:  
  
  
  (defmethod initialize-instance ((this texture)
  				       &key
  					 (wrap-s :repeat)
  					 (wrap-t :repeat)
  