(bind-func rados-pool-create (lambda (cluster name) (let ((res:i32 (rados_pool_create cluster name))) (if (< res 0) (begin (printf "[rados] error creating pool %d" res) res) res))))