anchor.diff:                                         (tcp-connection-remote-ip connection)
                                          (tcp-connection-remote-port connection)
                                          seq ack
  -                                       (tcp-connection-window-size connection)
  +                                       (tcp-connection-rcv.wnd connection)
                                          data
                                          :cwr-p cwr-p
                                          :ece-p ece-p
  
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: (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
  