anchor.diff:  ;;;; cl-murmurhash.lisp
   
   (in-package #:cl-murmurhash)
  +
  +(deftype octet () '(unsigned-byte 8))
   
   (deftype word () '(unsigned-byte 32))
   
  
positive.code:         (mixf hash word)))
      hash))
  
  (define-condition unhashable-object-error (error)
    ((object :initarg :object))
    (:report (lambda (condition stream)
  
negative.code:     (dotimes (i (array-total-size bv))
        (setf (ldb (byte 1 i) int) (row-major-aref bv i)))
      (murmurhash int :seed seed :mix-only mix-only)))
  
  ;; HACK http://stackoverflow.com/a/6083441
  (defmethod murmurhash ((ov #.(class-of (make-array 0 :element-type 'octet)))
                         &key (seed *default-seed*) mix-only)
    (let ((hash (hash-octets ov seed)))
      (declare (type hash hash))
      (if mix-only
          hash
          (finalize hash (length ov)))))
  
  (defmethod murmurhash ((cons cons) &key (seed *default-seed*) mix-only)
    (let ((hash seed))
  