(bind-func xobj_add_class
(lambda (class:i8*)
(let ((db (xobj_database))
(dblgth (xlength db))
(ls (strlen class))
(classname (halloc (+ 1 ls)))
(clazz:xlist_t--3163971124910877296* (xdict_find db class)))
(strcpy classname class)
(if (null? clazz)
(xinsert db dblgth (xpair classname (xlist (xpair "____" (cast null i8*))))))
void)))