(all-connections :accessor all-connections
:initform (make-array 5 :fill-pointer 0 :adjustable t))
(lock :accessor conn-pool-lock
(all-connections :accessor all-connections
:initform (make-array 5 :fill-pointer 0 :adjustable t))
(lock :accessor conn-pool-lock