 
 (deftype Duratom
   [storage-backend underlying-atom lock release]
-
-  storage/IStorageBackend
-  (cleanup [_]
-    (storage/cleanup storage-backend)
-    (release true)) ;; the only place where this is called with an argument
 
   IAtom
   (swap [_ f]

  "Convenience fn for cleaning up the persistent storage of a duratom.
  In absence of this fn, one would have to go via `duratom.backends`."
  [^Duratom dura]
  (.cleanup dura))


(defn file-atom

  (.write w (-> dura class .getName))
  (.write w (format " 0x%x " (System/identityHashCode dura)))
  (.write w " {:status :ready, :val ")
  (.write w (-> (.-underlying_atom dura) deref pr-str))
  (.write w "}")
  )

