anchor.diff:  (defparameter *tcp-connect-timeout* 10)
   (defparameter *tcp-connect-initial-retransmit-time* 1)
   (defparameter *tcp-connect-retransmit-time* 3)
  +
  +(defparameter *initial-window-size* 8192)
   
   (defparameter *netmangler-force-local-retransmit* nil
     "If true, then all data segments will be initially dropped
  
positive.code:    (%rcv.nxt :accessor tcp-connection-rcv.nxt
               :initarg :rcv.nxt
               :type tcp-sequence-number)
     (%window-size :accessor tcp-connection-window-size :initarg :window-size)
     (%max-seg-size :accessor tcp-connection-max-seg-size :initarg :max-seg-size)
     (%rx-data :accessor tcp-connection-rx-data :initform '())
     (%rx-data-unordered :reader tcp-connection-rx-data-unordered :initform (make-hash-table))
  
negative.code:                                              :remote-ip remote-ip
                                               :snd.nxt (+u32 snd-seq 1)
                                               :rcv.nxt rcv-seq
                                               :rcv.wnd *initial-window-size*
                                               :boot-id (mezzano.supervisor:current-boot-id))))
               (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
                 (push connection *tcp-connections*))
  