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: 
  (declaim (inline read-byte* write-byte*))
  (defun read-byte* (stream n-bytes reffer)
    (let ((v (make-array n-bytes :element-type '(unsigned-byte 8))))
      (declare (dynamic-extent v))
      (read-n-bytes-into stream n-bytes v)
      (funcall reffer v 0)))
  
  (defun write-byte* (integer stream n-bytes setter)
    (let ((v (make-array n-bytes :element-type '(unsigned-byte 8))))
      (declare (dynamic-extent v))
      (funcall setter v 0 integer)
      (write-sequence v stream)
  
negative.code: 	   finally (return seq)))))
  
  (defun read-into-sequence (seq stream start end n-bytes reffer)
    (declare (type (integer 2 8) n-bytes))
    (etypecase seq
      (list
       (read-into-list* stream seq start end n-bytes reffer))
  