anchor.diff:                                              bottom)
                                           removed))))
           (values (if removed (make-instance (type-of container)
  -                                           :equal-fn (read-equal-fn container)
                                              :hash-fn (read-hash-fn container)
                                              :root new-root
                                              :equal-fn (read-equal-fn container)
  
positive.code:                                        (setf prev-node node
                                               prev-index index))))))
          (setf (access-root container) result)
          container))))
  
  
  
negative.code:                                :equal-fn (read-equal-fn container)
                                 :hash-fn (read-hash-fn container)
                                 :root result
                                 :max-depth (read-max-depth container))
                  rep
                  old)))))
  