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

    @underlying-atom)
  )

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

  (destroy [this]))


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