anchor.diff:      (let ((seq (make-array 4 :element-type 'octet)))
         (declare (inline snarf-word))
         (fast-io:with-fast-input (v vector)
  -        (let ((k1 0) (k2 0) (k3 0) (k4 0))
  +        (let* ((k1 0) (k2 0) (k3 0) (k4 0)
  +               (k-seed (seed k1 k2 k3 k4)))
             (declare (dynamic-extent k1 k2 k3 k4)
                      (word k1 k2 k3 k4)
                      (optimize speed))
  
positive.code:                   k3 (snarf-word v seq)
                    k4 (snarf-word v seq))
              (setf (values h1 h2 h3 h4)
                    (seeds (mix/128 (seed h1 h2 h3 h4)
                                    (seed k1 k2 k3 k4)))))))
        (seed h1 h2 h3 h4))))
  
  (define-condition unhashable-object-error (error)
    ((object :initarg :object))
  
negative.code:       (<<= h3 15)   (+= h3 h4)  (*= h3 (+ 5 #x96cd1c35))
        (*= k4 +c4+)  (<<= k4 18) (*= k4 +c1+) (^= h4 k4)
        (<<= h4 13)   (+= h1 h1)  (*= h4 (+ 5 #x32ac3b17))
        (seed h1 h2 h3 h4 seed))))
  
  (declaim (ftype (function (word) word) avalanche))
  
  