anchor.diff:              'payload
               'stored-when
               :from (:destore.read-last-dsnapshot '$1))
  -   (princ-to-string dstream-uuid))
  +   dstream-uuid)
     :dsnapshot)
  
positive.code:                                                     version
                                                      payload)
    ((:select (:destore.write-dsnapshot '$1 '$2 '$3))
     (princ-to-string dstream-uuid)
     version
     payload)
    :none)
  
negative.code:             'stored-when
              'sequence-no
              :from (:destore.read-devents '$1 '$2))
     dstream-uuid
     start-version)
    :devents)
  
  