+(defvar *source-callback-marshal*
+ (system:foreign-symbol-address "source_callback_marshal"))
+(defvar *destroy-notify*
+ (system:foreign-symbol-address "destroy_notify"))
+
+(defbinding (timeout-add "g_timeout_add_full")
+ (function interval &optional (priority 0)) unsigned-int
+ (priority int)
+ (interval unsigned-int)
+ (*source-callback-marshal* pointer)
+ ((register-callback-function function) unsigned-long)
+ (*destroy-notify* pointer))
+
+(defbinding (idle-add "g_idle_add_full")
+ (function &optional (priority 0)) unsigned-int
+ (priority int)
+ (*source-callback-marshal* pointer)
+ ((register-callback-function function) unsigned-long)
+ (*destroy-notify* pointer))