anchor.diff:                  ;; Remote has sent SYN+ACK and waiting for ACK
                   (setf (tcp-connection-state connection) :established
                         (tcp-connection-r-next connection) (logand (1+ seq) #xFFFFFFFF))
  -                (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil)
  +                (when (not *netmangler-force-local-retransmit*)
  +                  (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil))
                   ;; Cancel retransmit
                   (disarm-retransmit-timer connection)
                   (disarm-timeout-timer connection))
  
positive.code:      (lambda ()
         (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
           (push connection *tcp-connections*))
         (tcp4-send-packet connection seq 0 nil :ack-p nil :syn-p t)
         (arm-retransmit-timer *tcp-connect-initial-retransmit-time* connection)
         (arm-timeout-timer *tcp-connect-timeout* connection))
       sys.net::*network-serial-queue*)
  
negative.code: (defparameter *tcp-connect-timeout* 10)
  (defparameter *tcp-connect-initial-retransmit-time* 1)
  (defparameter *tcp-connect-retransmit-time* 3)
  
  (defparameter *netmangler-force-local-retransmit* nil
    "If true, then all data segments will be initially dropped
  and forced to be sent from the retransmit queue.")
  
  (defvar *tcp-connections* nil)
  (defvar *tcp-connection-lock* (mezzano.supervisor:make-mutex "TCP connection list"))
  