anchor.diff:  (defun tcp-send-1 (connection data start end &key psh-p)
     (let ((s-next (tcp-connection-s-next connection)))
       (setf (tcp-connection-s-next connection)
  -          (logand (+ s-next (- end start))
  -                  #xFFFFFFFF))
  +          (+u32 s-next len))
       (when (not *netmangler-force-local-retransmit*)
         (tcp4-send-packet connection s-next
                           (tcp-connection-r-next 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:                      (eql ack (tcp-connection-s-next connection)))
                  ;; Remote has sent SYN+ACK and waiting for ACK
                  (setf (tcp-connection-state connection) :established
                        (tcp-connection-r-next connection) (+u32 seq 1))
                  (when (not *netmangler-force-local-retransmit*)
                    (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil))
                  ;; Cancel retransmit
  