anchor.diff:      (sb-rotate-byte:rotate-byte s (byte 32 0) a)))
   
   (define-modify-macro <<= (rotation) <<)
  -
  -(declaim (ftype (function (word word) word) ^))
   
   (defun ^ (a b)
     (declare (type word a b))
  
positive.code: 
  (deftype hash () 'word)
  
  (deftype seeds () '(simple-array (unsigned-byte 32) (4)))
  
  (defparameter *default-seed* #xdeadbeef) ;It had to be something.
  
  
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))
  
  