anchor.diff:      (refill-tcp-stream-buffer stream)
       (not (null (tcp-stream-packet stream)))))
   
  -(defmethod sys.gray:stream-read-byte ((stream tcp-stream))
  +(defmethod sys.gray:stream-read-byte ((stream tcp-octet-stream))
     (with-tcp-connection-locked (tcp-stream-connection stream)
       (when (not (refill-tcp-packet-buffer stream))
         (return-from sys.gray:stream-read-byte :eof))
  
positive.code:           #\REPLACEMENT_CHARACTER
            (code-char code-point)))))
  
  (defmethod sys.gray:stream-write-byte ((stream tcp-stream) byte)
    (let ((ary (make-array 1 :element-type '(unsigned-byte 8)
                           :initial-element byte)))
      (tcp-send (tcp-stream-connection stream) ary)))
  
  (defmethod sys.gray:stream-write-sequence ((stream tcp-stream) sequence &optional (start 0) end)
    (unless end (setf end (length sequence)))
  
negative.code:                                    (subseq data start end))
                                 :psh-p t))))))))
  
  (defclass tcp-octet-stream (sys.gray:fundamental-binary-input-stream
                              sys.gray:fundamental-binary-output-stream)
    ((connection :initarg :connection :reader tcp-stream-connection)
     (current-packet :initform nil :accessor tcp-stream-packet)))
  
  (defclass tcp-stream (sys.gray:fundamental-character-input-stream
                        sys.gray:fundamental-character-output-stream
                        tcp-octet-stream
                        sys.gray:unread-char-mixin)
    ())
  
  (defun refill-tcp-stream-buffer (stream)
    (let ((connection (tcp-stream-connection stream)))
  