anchor.diff:  (defbinding selection-data-targets-include-text-p (selection-data) boolean
     (selection-data selection-data))
   
  -(defbinding selection-remove-all (selection-data) boolean
  +(defbinding selection-remove-all () boolean
     (widget widget))
   
   
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtkselection.lisp,v 1.2 2006-02-06 14:02:17 espen Exp $
  
  
  (in-package "GTK")
  
negative.code:   ((length targets) int))
    
  (defmethod initialize-instance ((target-list target-list) &key targets)
    (setf
     (slot-value target-list 'location)
     (%target-list-new targets))
    (call-next-method))
  
  (defbinding target-list-add (target-list target &optional flags info) nil
    (target-list target-list)
    (target gdk:atom)
    (flags unsigned-int)
  