anchor.diff:  
   (defmethod %hamt-lookup ((node conflict-node) key hash depth test)
     (declare (ignore hash depth))
  -  (let ((key-val (assoc key (conflict-alist node) :test test)))
  +  (let ((key-val (assoc key (conflict-entries node) :test test)))
       (if key-val
           (values (cdr key-val) t)
           (values nil nil))))
  
positive.code:   ((hash
      :reader conflict-hash
      :initarg :hash)
     (alist
      :reader conflict-alist
      :initarg :alist
      :initform '())))
  
  (defclass table-node ()
  
negative.code:      sum (%hamt-size node)))
  
  (defmethod %hamt-size ((node conflict-node))
    (length (conflict-entries node)))
  
  
  ;; Methods for inserting key/value pairs into a HAMT
  