(bind-func guint_alloc (lambda (value) (let ((gv:GValue* (alloc))) (g_value_init gv G_TYPE_UINT) (g_value_set_uint gv value) gv)))