(bind-func sys_dir_make_recursive (lambda (dirname permissions) (let ((pool (apr_pool_create)) (res APR_SUCCESS)) (set! res (apr_dir_make_recursive (cstring dirname) permissions pool)) (apr_pool_destroy pool) res)))