anchor.diff:  ;;; Big-endian integer ref tests
   
   (rtest:deftest :ub16ref/be
  -  (ref-test #'nibbles:ub16ref/be 2 nil)
  +  (ref-test #'nibbles:ub16ref/be 2 nil t)
     :ok)
   
   (rtest:deftest :sb16ref/be
  -  (ref-test #'nibbles:sb16ref/be 2 t)
  +  (ref-test #'nibbles:sb16ref/be 2 t t)
     :ok)
   
   (rtest:deftest :ub32ref/be
  -  (ref-test #'nibbles:ub32ref/be 4 nil)
  +  (ref-test #'nibbles:ub32ref/be 4 nil t)
     :ok)
   
   (rtest:deftest :sb32ref/be
  -  (ref-test #'nibbles:sb32ref/be 4 t)
  +  (ref-test #'nibbles:sb32ref/be 4 t t)
     :ok)
   
   (rtest:deftest :ub64ref/be
  -  (ref-test #'nibbles:ub64ref/be 8 nil)
  +  (ref-test #'nibbles:ub64ref/be 8 nil t)
     :ok)
   
   (rtest:deftest :sb64ref/be
  -  (ref-test #'nibbles:sb64ref/be 8 t)
  +  (ref-test #'nibbles:sb64ref/be 8 t t)
     :ok)
    
  
positive.code: 
  ;;; Basic tests for correctness.
  
  (defun make-byte-combiner (n-bytes)
    (let ((count 0)
          (buffer 0))
      #'(lambda (byte)
          (setf buffer (logior (ash buffer 8) byte))
          (unless (= count n-bytes)
            (incf count))
          (cond
  
negative.code:                         :element-type `(,byte-kind ,n-bits)))
          (i 0 (1+ i))
          (j 0)
          (combiner (make-byte-combiner ref-size big-endian-p)))
        ((>= i total-octets) (values bv ev n-octets))
      (let ((byte (random 256)))
        (multiple-value-bind (aggregate set-p) (funcall combiner byte)
  