(funcall (car (find-user-data callback-ids)) selection-data info))
(define-callback %clipboard-clear-callback nil
((clipboard pointer) (callback-ids unsigned-int))
(funcall (car (find-user-data callback-ids)) selection-data info))
(define-callback %clipboard-clear-callback nil
((clipboard pointer) (callback-ids unsigned-int))