(bind-func xobj_print_classes (lambda () (let ((db:xlist_t--8487158256724425667* (xobj_database))) (xmap (lambda (p) (xobj_print_class (xfirst p))) db) void)))