anchor.diff:    (declare (ignore clipboard))
     (funcall (cdr (find-user-data callback-ids))))
   
  -;; Deprecated, use clipboard-set-content
  +;; Deprecated, use clipboard-set-contents
   (defbinding clipboard-set-with-data (clipboard targets get-func clear-func) boolean
     (clipboard clipboard)
     (targets (vector (inlined target-entry)))
  
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.12 2007-12-13 14:29:59 espen Exp $
  
  
  (in-package "GTK")
  
negative.code:   (%clipboard-clear-callback callback)
    ((register-user-data (cons get-func clear-func)) unsigned-int))
  
  (defun clipboard-set-contents (clipboard targets get-func &optional clear-func)
    (%clipboard-set-with-data clipboard (ensure-target-table targets) 
     get-func (or clear-func #'(lambda ()))))
  
  