anchor.diff:  
   (deftype hash () 'word)
   
  -(deftype seeds () '(simple-array (unsigned-byte 32) (4)))
  +(deftype seed () '(simple-array (unsigned-byte 32) (4)))
   
   (defparameter *default-seed* #xdeadbeef) ;It had to be something.
   
  
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:       (labels ((extract (position)
                   (ldb (byte 32 position) integer)))
          (declare (inline extract))
          (let* ((k1 0) (k2 0) (k3 0) (k4 0)
                 (k-seed (seed k1 k2 k3 k4)))
            (declare (word k1 k2 k3 k4)
                     (dynamic-extent k1 k2 k3 k4)
                     (optimize speed))
  