(bind-func xobj_print_class
(lambda (class:i8*)
(let ((db:xlist_t--8487158256724425667* (xobj_database))
(clazz:xlist_t--3163971124910877296* (xdict_find db class)))
(printf "class:%s\n" class)
(xmap (lambda (p)
(let ((mn (xfirst p))
(mp (xsecond p)))
(printf "\tmethod:%s -> closure:%p\n" mn mp)))
clazz)
1)))