anchor.diff:    (declare (ignore clipboard))
     (funcall (cdr (find-user-data callback-ids))))
   
  -;; Deprecated, use clipboard-set
  +;; Deprecated, use clipboard-set-content
   (defbinding clipboard-set-with-data (clipboard targets get-func clear-func) boolean
     (clipboard clipboard)
     (targets (vector (inlined target-entry)))
  
positive.code:   (clipboard clipboard)
    (pixbuf gdk:pixbuf))
  
  (defun clipboard-set (clipboard object)
    (etypecase object
      (string (clipboard-set-text clipboard object))
      #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
      (gdk:pixbuf (clipboard-set-image clipboard object))))
  
  (define-callback-marshal %clipboard-receive-callback nil 
   ((:ignore clipboard) selection-data))
  
negative.code: 
  #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  (progn
    (defbinding target-list-add-text-targets (target-list  &optional info writable-p) nil
      (target-list target-list)
      ((or info 0) unsigned-int)
      (writable-p boolean))
    
    (defbinding target-list-add-image-targets (target-list &optional info writable-p) nil
      (target-list target-list)
      ((or info 0) unsigned-int)
      (writable-p boolean))
  
    (defbinding target-list-add-uri-targets (target-list &optional info writable-p) nil
      (target-list target-list)
      ((or info 0) unsigned-int)
      (writable-p boolean)))
  
  (defbinding target-list-remove (target-list target) nil
  