(bind-func xobj_add_method
(lambda (class:i8* method:i8* closure:i8*)
(let ((db:xlist_t--8487158256724425667* (xobj_database))
(ls (strlen method))
(methodname (halloc (+ ls 1)))
(clazz:xlist_t--3163971124910877296* (xdict_find db class)))
(strcpy methodname method)
(if (not (null? clazz))
(let ((clazzlgth (xlength clazz)))
(xinsert clazz clazzlgth (xpair methodname closure))))
void)))