(bind-func xobj_method_exists:[i1,i8*,i8*]*
(lambda (class method)
(let ((db (xobj_database))
(clazz:xlist_t--3163971124910877296* (xdict_find db class)))
(if (not (null? clazz))
(let ((res:i8* (xdict_find clazz method)))
(if (not (null? res)) 1 0))
0))))