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:       (labels ((extract (position)
                   (ldb (byte 32 position) integer)))
          (declare (inline extract))
          (let ((k1 0) (k2 0) (k3 0) (k4 0))
            (declare (word k1 k2 k3 k4)
                     (dynamic-extent k1 k2 k3 k4)
                     (optimize speed))
  
negative.code:                   k3 (extract 64)
                    k4 (extract 96))
              (setf (values h1 h2 h3 h4)
                    (seeds (mix/128 (seed h1 h2 h3 h4 seed)
                                    (seed k1 k2 k3 k4 k-seed))))
              (incf i 4)))))
      (seed h1 h2 h3 h4 seed)))
  
  (defun snarf-word (stream seq)
    (let ((k 0))
  