        end"
         {:lkey (lkey lock-name)}
         {:uuid owner-uuid})
-       car/parse-bool wcar))
+      wcar car/as-bool))
 
 (comment
   (when-let [uuid (acquire-lock "my-lock" 2000 500)]


(defn acquire-lock
  "Attempts to acquire a distributed lock, returning an owner UUID iff successful."
  [lock-name lock-timeout-ms wait-timeout-ms]
  (let [max-udt (+ wait-timeout-ms (System/currentTimeMillis))
        uuid    (str (java.util.UUID/randomUUID))]

                  {:lkey            (lkey lock-name)}
                  {:uuid            uuid
                   :lock-timeout-ms lock-timeout-ms})
                 car/with-replies car/as-bool)
           (car/return uuid)
           (do (Thread/sleep 1) (recur))))))))

