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