(let ((pool (conn-pool conn)))
(with-process-lock ((conn-pool-lock pool) "Release to pool")
(vector-push-extend conn (free-connections pool)))))
(let ((pool (conn-pool conn)))
(with-process-lock ((conn-pool-lock pool) "Release to pool")
(vector-push-extend conn (free-connections pool)))))