anchor.diff:  (defbinding clipboard-wait-is-image-available-p () boolean
     (clipboard clipboard))
   
  -(defbinding clipboard-wait-for-targets () boolean
  +(defbinding %clipboard-wait-for-targets () boolean
     (clipboard clipboard)
     (targets (vector gdk:atom n-targets) :out)
     (n-targets unsigned-int :out))
   
  -#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  -(defbinding clipboard-wait-is-target-available-p () boolean
  -  (clipboard clipboard)
  -  (target gdk:atom))
  -
  -#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  -(defbinding clipboard-set-can-store () nil
  -  (clipboard clipboard)
  -  (targets (vector gdk:atom))
  +(defun clipboard-wait-for-targets (clipboard)
  +  (multiple-value-bind (valid-p targets) 
  +      (%clipboard-wait-for-targets clipboard) 
  +    (when valid-p
  +      (map-into targets #'gdk:atom-name targets))))
  +
  +#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  +(defbinding clipboard-wait-is-target-available-p (clipboard target) boolean
  +  (clipboard clipboard)
  +  ((gdk:atom-intern target) gdk:atom))
  +
  +#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  +(defbinding clipboard-set-can-store (clipboard targets) nil
  +  (clipboard clipboard)
  +  ((map 'vector #'gdk:atom-intern targets) (vector gdk:atom))
     ((length targets) int))
   
   #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  
positive.code:   (%clipboard-clear-callback callback)
    ((register-user-data (cons get-func clear-func)) unsigned-int))
  
  (defbinding clipboard-clear () nil
    (clipboard clipboard))
  
  (defbinding clipboard-set-text (clipboard text) nil
    (clipboard clipboard)
    (text string)
    ((length text) int))
  
negative.code:   (display gdk:display)
    ((gdk:atom-intern selection) gdk:atom))
  
  (define-callback %clipboard-get-callback nil
      ((clipboard pointer) (selection-data selection-data)
       (info unsigned-int) (callback-ids unsigned-int))
    (declare (ignore clipboard))
    (funcall (car (find-user-data callback-ids)) selection-data info))
  
  