     (when lock-identifier
       (release-lock "market" lock-identifier))))
 
-
 ;; Listing 6.11: The acquire_lock_with_timeout() function
 
 (defn acquire-lock-with-timeout

(ns clojure-lang.chapter06
  (:require [taoensso.carmine :as car]
            [clj-time.coerce :as ctc]
            [clj-time.core :as ct]
            [clojure.string :refer [starts-with?]]

    (wcar* (car/watch lock-key)
           (if (= identifier (car/get lock-key))
             (car/del lock-key)
             (car/unwatch)))))

;; Listing 6.9: The purchase_item_with_lock() function

