anchor.diff:  ;;; if we didn't have to do this.
   
   (rtest:deftest :ub16set/be
  -  (set-test #'nibbles::ub16set/be 2 nil t)
  +  (set-test 'nibbles:ub16ref/be 2 nil t)
     :ok)
   
   (rtest:deftest :sb16set/be
  -  (set-test #'nibbles::sb16set/be 2 t t)
  +  (set-test 'nibbles:sb16ref/be 2 t t)
     :ok)
   
   (rtest:deftest :ub32set/be
  -  (set-test #'nibbles::ub32set/be 4 nil t)
  +  (set-test 'nibbles:ub32ref/be 4 nil t)
     :ok)
   
   (rtest:deftest :sb32set/be
  -  (set-test #'nibbles::sb32set/be 4 t t)
  +  (set-test 'nibbles:sb32ref/be 4 t t)
     :ok)
   
   (rtest:deftest :ub64set/be
  -  (set-test #'nibbles::ub64set/be 8 nil t)
  +  (set-test 'nibbles:ub64ref/be 8 nil t)
     :ok)
   
   (rtest:deftest :sb64set/be
  -  (set-test #'nibbles::sb64set/be 8 t t)
  +  (set-test 'nibbles:sb64ref/be 8 t t)
     :ok)
    
  
positive.code:                         (subseq byte-vector i (+ i ref-size)))))
            finally (return :ok))))
  
  (defun set-test (setter set-size signedp big-endian-p
                   &optional (n-octets 4096))
    (multiple-value-bind (byte-vector expected-vector)
        (generate-random-test set-size signedp big-endian-p n-octets)
      (loop with fill-vec = (let ((v (copy-seq byte-vector)))
                              (fill v 0)
                              v)
            for i from 0 below n-octets
            for j from 0
            do (funcall setter fill-vec i (aref expected-vector j))
            finally (return
                      (if (mismatch fill-vec byte-vector)
                          (error "wanted ~A, got ~A" byte-vector fill-vec)
                          :ok)))))
  
  ;;; Big-endian integer ref tests
  
negative.code: ;;; Little-endian set tests
  
  (rtest:deftest :ub16set/le
    (set-test 'nibbles:ub16ref/le 2 nil nil)
    :ok)
  
  (rtest:deftest :sb16set/le
    (set-test 'nibbles:sb16ref/le 2 t nil)
    :ok)
  
  (rtest:deftest :ub32set/le
    (set-test 'nibbles:ub32ref/le 4 nil nil)
    :ok)
  
  (rtest:deftest :sb32set/le
    (set-test 'nibbles:sb32ref/le 4 t nil)
    :ok)
  
  (rtest:deftest :ub64set/le
    (set-test 'nibbles:ub64ref/le 8 nil nil)
    :ok)
  
  (rtest:deftest :sb64set/le
    (set-test 'nibbles:sb64ref/le 8 t nil)
    :ok)
  