anchor.diff:    (with-tcp-connection-locked connection
       (ecase (tcp-connection-state connection)
         (:syn-sent
  -       (setf (tcp-connection-state connection) :closed
  -             (tcp-connection-direction connection) nil)
  +       (setf (tcp-connection-state connection) :closed)
          (tcp4-send-packet connection
                            (tcp-connection-s-next connection)
                            (tcp-connection-r-next connection)
  
positive.code:                      (eql ack (tcp-connection-s-next connection)))
                  ;; Remote have sended SYN+ACK and waiting for ACK
                  (setf (tcp-connection-state connection) :established
                        (tcp-connection-direction connection) :io
                        (tcp-connection-r-next connection) (logand (1+ seq) #xFFFFFFFF))
                  (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil))
                 ((logtest flags +tcp4-flag-syn+)
  
negative.code:                          :rst-p t)
         (detach-tcp-connection connection))
        ((:established :syn-received)
         (setf (tcp-connection-state connection) :fin-wait-1)
         (tcp4-send-packet connection
                           (tcp-connection-s-next connection)
                           (tcp-connection-r-next connection)
                           nil
                           :fin-p t))
        (:close-wait
         (setf (tcp-connection-state connection) :last-ack)
         (tcp4-send-packet connection
                           (tcp-connection-s-next connection)
                           (tcp-connection-r-next connection)
  