 
 
 (defn clear!
-  "Removes all blocks from the buffer. Returns a summary of the deleted blocks."
+  "Remove all blocks from the buffer. Returns a deferred which yields a summary
+  of the deleted blocks."
   [store]
   (d/chain
     (s/reduce



(defn buffer-block-store
  "Creates a new buffering block store.

  - `:buffer`
    Block store to use for new writes.

    [this]
    (when-not (satisfies? store/BlockStore primary)
      (throw (IllegalStateException.
               (str "Cannot start buffer block store without a backing primary store: "
                    (pr-str primary)))))
    (when-not (satisfies? store/BlockStore buffer)
      (throw (IllegalStateException.
               (str "Cannot start buffer block store without a backing buffer store: "
                    (pr-str buffer)))))
    this)

