anchor.diff:  
   ;;; Stream reading tests
   
  +(defvar *path* #.*compile-file-truename*)
  +
   (defun read-file-as-octets (pathname)
     (with-open-file (stream pathname :direction :input
                             :element-type '(unsigned-byte 8))
  
positive.code: (rtest:deftest :read-sb64/le
    (read-test 'nibbles:read-sb64/le 8 t nil)
    :ok)
  
negative.code:       v)))
  
  (defun read-test (reader ref-size signedp big-endian-p)
    (let* ((pathname *path*)
           (file-contents (read-file-as-octets pathname))
           (expected-values (generate-reffed-values file-contents ref-size
                                                    signedp big-endian-p)))
  