(bind-func guint64_zalloc (lambda (value) (let ((gv:GValue* (zalloc))) (g_value_init gv G_TYPE_UINT64) (g_value_set_uint64 gv value) gv)))