anchor.diff:               (setf (tcp-connection-rx-data connection)
                      (list (list packet (+ start header-length) end))))
            (setf (tcp-connection-r-next connection)
  -               (logand (+ (tcp-connection-r-next connection) data-length)
  -                       #xFFFFFFFF))
  +               (+u32 (tcp-connection-r-next connection) data-length))
            ;; Check if the next packet is in tcp-connection-rx-data-unordered
            (loop :for packet := (gethash (tcp-connection-r-next connection)
                                          (tcp-connection-rx-data-unordered connection))
  
positive.code:                                     :local-ip source-address
                                      :remote-port port
                                      :remote-ip ip
                                      :s-next (logand #xFFFFFFFF (1+ seq))
                                      :r-next 0
                                      :window-size 8192
                                      :boot-id (if persist nil (mezzano.supervisor:current-boot-id)))))
  
negative.code:   (format t "Doing retransmit on connection ~S~%" connection)
    (ecase (tcp-connection-state connection)
      (:syn-sent
       (let ((seq (-u32 (tcp-connection-s-next connection) 1)))
         (tcp4-send-packet connection seq 0 nil :ack-p nil :syn-p t)
         (arm-retransmit-timer *tcp-connect-retransmit-time* connection)))))
  
  