anchor.diff:        v)))
   
   (defun read-test (reader ref-size signedp big-endian-p)
  -  (let* ((pathname #.*compile-file-pathname*)
  +  (let* ((pathname *path*)
            (file-contents (read-file-as-octets pathname))
            (expected-values (generate-reffed-values file-contents ref-size
                                                     signedp big-endian-p)))
  
positive.code: (rtest:deftest :read-sb64/le
    (read-test 'nibbles:read-sb64/le 8 t nil)
    :ok)
  
negative.code: 
  ;;; 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))
  