anchor.diff:  
   (declaim (inline read-into-vector*))
   (defun read-into-vector* (stream vector start end n-bytes reffer)
  -  (declare (type function reffer))
  -  (let ((v (make-array n-bytes :element-type '(unsigned-byte 8))))
  +  (declare (type (integer 2 8) n-bytes)
  +           (type function reffer))
  +  (let ((v (make-octet-vector n-bytes)))
       (declare (dynamic-extent v))
       (loop for i from start below end
   	  do (read-n-bytes-into stream n-bytes v)
  
positive.code: 	   finally (return seq)))))
  
  (defun read-into-sequence (seq stream start end n-bytes reffer)
    (etypecase seq
      (list
       (read-into-list* stream seq start end n-bytes reffer))
  
negative.code: (cl:in-package :nibbles)
  
  (defun read-n-bytes-into (stream n-bytes v)
    (declare (type (integer 2 8) n-bytes))
    (dotimes (i n-bytes v)
      ;; READ-SEQUENCE would likely be more efficient here, but it does
      ;; not have the semantics we want--in particular, the blocking
  