anchor.diff:                       (eql seq (tcp-connection-r-next connection))
                        (eql ack (tcp-connection-s-next connection)))
                   ;; Remote have sended ACK , connection established
  -                (setf (tcp-connection-state connection) :established
  -                      (tcp-connection-direction connection) :io))
  +                (setf (tcp-connection-state connection) :established))
                  ;; Ignore duplicated SYN packets
                  ((and (logtest flags +tcp4-flag-syn+)
                        (eql ack (1- (tcp-connection-s-next connection)))))
                  (t
                   ;; Aborting connection
                   (tcp4-send-packet connection ack seq nil :rst-p t)
  -                (setf (tcp-connection-state connection) :connection-aborted
  -                      (tcp-connection-direction connection) nil)
  +                (setf (tcp-connection-state connection) :connection-aborted)
                   (detach-tcp-connection connection))))
           (:established
            (if (zerop data-length)
  
positive.code:       (mezzano.supervisor:condition-wait-for ((tcp-connection-cvar connection)
                                                (tcp-connection-lock connection))
          (or (tcp-connection-rx-data connection)
              (eql (tcp-connection-direction connection) :output)
              (not (tcp-connection-direction connection))))
        ;; Something may have refilled while we were waiting.
        (when (tcp-stream-packet stream)
          (return-from refill-tcp-packet-buffer t))
        (when (and (null (tcp-connection-rx-data connection))
                   (or (eql (tcp-connection-direction connection) :output)
                       (not (tcp-connection-direction connection))))
          (return-from refill-tcp-packet-buffer nil))
        (setf (tcp-stream-packet stream) (pop (tcp-connection-rx-data connection))))
      t))
  
negative.code:     (let ((connection (tcp-stream-connection stream)))
        (refill-tcp-stream-buffer stream)
        (and (null (tcp-stream-packet stream))
             (member (tcp-connection-state connection) '(:last-ack :closing :closed :connection-aborted))))))
  
  (defmethod sys.gray:stream-listen ((stream tcp-stream))
    (with-tcp-connection-locked (tcp-stream-connection stream)
  