 
 (defn- user-connector
  [user connector]
- (apply str "[" (get-name user) "/" (get-conn-inst-name connector) "] " (System/currentTimeMillis) " "))
+ (apply format "[%s/%s] %s " (conj (tuple-uc user connector) (System/currentTimeMillis))))
 
 (defn- build-msg
   [user connector elapsed & info]

(def timeout-collect-reader-release (+ timeout-collect (seconds-in-msecs 2)))
(def timeout-processing-loop        (seconds-in-msecs 60))

(defn get-name
  [user]
  (.getName user))

(defn get-conn-inst-name
  [connector]
  (.getConnectorInstanceName connector))

(def busy (atom #{}))


 [current-busy v]
 (disj current-busy v))

(defn- busy?
  [u c]
  (@busy (tuple-uc u c)))

(defn- busy!
  [u c]
  (swap! busy mark-busy (tuple-uc u c)))

(defn- free!
  [u c]
  (swap! busy mark-free (tuple-uc u c)))

(defn full?
  []
