anchor.diff:      (values (tcp-connection-remote-ip conn)
               (tcp-connection-remote-port conn))))
   
  +(defmethod mezzano.sync:get-object-event ((object tcp-octet-stream))
  +  (tcp-connection-receive-event (tcp-stream-connection object)))
  +
   (defmethod print-object ((instance tcp-octet-stream) stream)
     (print-unreadable-object (instance stream :type t :identity t)
       (multiple-value-bind (local-address local-port)
  
positive.code:                          (list (list packet (+ start header-length) end)))
                 :do (setf (tcp-connection-r-next connection)
                           (logand (+ (tcp-connection-r-next connection) data-length)
                                   #xFFFFFFFF))))
          ;; Add future packet to tcp-connection-rx-data-unordered
          ((> seq (tcp-connection-r-next connection))
           (unless (gethash seq (tcp-connection-rx-data-unordered connection))
  
negative.code:                (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)
  