anchor.diff:                        (tcp-connection-r-next connection) (logand (1+ seq) #xFFFFFFFF))
                   (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil
                                     :ack-p t :syn-p t)
  -                ;; Cancel retransmit. FIXME: This SYN/ACK might need to be retransmitted.
  +                ;; Cancel retransmit
                   (disarm-retransmit-timer connection)
                   (disarm-timeout-timer connection))
                  (t
                   ;; Aborting connection
                   (tcp4-send-packet connection ack seq nil :rst-p t)
  -                (setf (tcp-connection-state connection) :closed)
                   (setf (tcp-connection-pending-error connection)
                         (make-condition 'connection-aborted
                                         :host (tcp-connection-remote-ip connection)
  
positive.code:                (t
                  ;; Aborting connection
                  (tcp4-send-packet connection ack seq nil :rst-p t)
                  (setf (tcp-connection-state connection) :closed)
                  (setf (tcp-connection-pending-error connection)
                        (make-condition 'connection-aborted
                                        :host (tcp-connection-remote-ip connection)
  
negative.code:   ;; Disarming here is doubly important.
    ;; 1) It stops the timer from hanging around if it was active.
    ;; 2) If the source handler is pending, then it'll return immediately.
    (setf (tcp-connection-state connection) :closed)
    (mezzano.supervisor:timer-disarm (tcp-connection-retransmit-timer connection))
    (mezzano.supervisor:timer-disarm (tcp-connection-timeout-timer connection))
    (mezzano.sync.dispatch:cancel (tcp-connection-retransmit-source connection))
  