anchor.diff:  
   ;;;;;;;;;;;
   (defun recalc-rehash-border (dict)
  +  (declare #.*muffle-note*)
     (with-slots (buckets rehash-threshold rehash-border) (the dict dict)
       (setf rehash-border (ceiling (* (length buckets) rehash-threshold)))
       dict))
  
positive.code:                 :functor (find-test test)))))
  
  (defun get (key dict &optional default)
    (funcall (functor-get (dict-functor dict)) key dict default))
  
  (defun (setf get) (new-value key dict)
    (funcall (functor-set (dict-functor dict)) new-value key dict)
    new-value)
  
  (defun remove (key dict)
    (funcall (functor-rem (dict-functor dict)) key dict))
  
  (defun count (dict)
    (dict-count dict))
  
  (defmacro each ((key value dict &optional return-form) &body body)
    (with-gensyms (node)
      `(each-node (,node ,dict ,return-form)
         (let ((,key (node-key ,node))
               (,value (node-value ,node)))
           ,@body))))
  
  (defun map (fn dict &aux acc)
    (declare (function fn))
    (each (key value dict (nreverse acc))
      (push (funcall fn key value) acc)))
  
negative.code:                  recalc-rehash-border bucket-index find-candicate
                   normalize-hashcode rehash-node count-and-check-border
  
                   make get (setf get) remove count map clear))
  (declaim )
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  