(bind-func apr_pool_create (lambda (parent) (let ((pool:apr_pool_t** (salloc))) (apr_pool_create_ex pool parent null null) (pref pool 0))))