anchor.diff:                 (tcp-connection-rx-data connection))
         (setf (tcp-stream-packet stream) (pop (tcp-connection-rx-data connection))))))
   
  +(defun maybe-clear-receive-ready-event (stream)
  +  (let ((connection (tcp-stream-connection stream)))
  +    (when (and (null (tcp-stream-packet stream))
  +               (endp (tcp-connection-rx-data connection)))
  +      (setf (mezzano.supervisor:event-state
  +             (tcp-connection-receive-event connection))
  +            nil))))
   
   (defmethod gray:stream-listen-byte ((stream tcp-octet-stream))
     (with-tcp-connection-locked (tcp-stream-connection stream)
  
positive.code:            (byte (aref (first packet) (second packet))))
        (when (>= (incf (second packet)) (third packet))
          (setf (tcp-stream-packet stream) nil))
        byte)))
  
  (defmethod gray:stream-read-sequence ((stream tcp-octet-stream) sequence &optional (start 0) end)
  
negative.code:            (when (>= (incf (second packet) bytes-to-copy) (third packet))
               (setf (tcp-stream-packet stream) nil))
             (incf position bytes-to-copy)))
        (maybe-clear-receive-ready-event stream)
        position)))
  
  (defmethod gray:stream-write-byte ((stream tcp-octet-stream) byte)
  