anchor.diff:    ((hash
       :reader conflict-hash
       :initarg :hash)
  -   (alist
  -    :reader conflict-alist
  -    :initarg :alist
  +   (entries
  +    :reader conflict-entries
  +    :initarg :entries
       :initform '())))
   
   (defclass table-node ()
  
positive.code: 
  (defmethod %hamt-lookup ((node conflict-node) key hash depth test)
    (declare (ignore hash depth))
    (let ((key-val (assoc key (conflict-alist node) :test test)))
      (if key-val
          (values (cdr key-val) t)
          (values nil nil))))
  
negative.code:                  (f (cdr alist)
                      (funcall func r (caar alist) (cdar alist)))
                   r)))
      (f (conflict-entries node) initial-value)))
  
  (defmethod dict-reduce (func (node table-node) initial-value)
    (reduce (lambda (r child)
  