anchor.diff:                 (setf buffer val))))
             (t (values 0 nil))))))
   
  -(defun generate-random-test (ref-size signedp &optional (n-octets 4096))
  +(defun generate-random-test (ref-size signedp big-endian-p
  +                             &optional (n-octets 4096))
     (do* ((byte-kind (if signedp 'signed-byte 'unsigned-byte))
           (n-bits (* 8 ref-size))
           (total-octets (+ n-octets (1- ref-size)))
  
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:                         (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)
  