(bind-func xobj_database (let ((aa:i8* (alloc)) (db (xlist (xpair "____" (xlist (xpair "____" (cast null i8*))))))) ;; (xinsert db 1 (xpair "class_test" (xlist (xpair "method_test" (cast null i8*))))) (lambda () db)))