     @underlying-atom)
   )
 
-;; override default `print-method` for records in order to hide certain fields,
-;; but also to provide printing which resembles atoms
+;; provide a `print-method` that resembles Clojure atoms
 (defmethod print-method Duratom [dura ^Writer w]
   (.write w "#")
   (.write w (-> dura class .getName))

        (write_out this)
        result)))
  IRef
  (setValidator [this validator]
    (set-validator! underlying-atom validator))
  (getValidator [_]
    (get-validator underlying-atom))

  (destroy [this]))


(deftype Duratom
  [storage-backend underlying-atom lock release]
  IDurable ;; 2 polymorphic levels here
  (write_out [_]
