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: 
  (defmethod bind ((this texture) &key )
    "Wrapper around glBindBuffer. Puts the texture into play."
    (gl:bind-buffer (target this) (id this))
    (gl:bind-texture :texture-2d (tex-id this)))
  
  (defmethod unbind ((this texture) &key )
    (gl:bind-buffer (target this) 0)
    (gl:bind-texture :texture-2d 0))
  
  
  
negative.code:     (trivial-garbage:cancel-finalization this)
      (setf (gethash (key this) *uncollected*) this)
      (trivial-garbage:finalize this 
  			      (let ((tex-id-value tex-id)
  				    (key (key this)))
  				(lambda () (sdl2:in-main-thread (:background t)
  					     (remhash key *uncollected*)
  					     (gl:delete-textures (list tex-id-value))))))
      
      (gl:bind-texture :texture-2d (tex-id this))
  