anchor.diff:    (with-tcp-connection-locked connection
       (ecase (tcp-connection-state connection)
         (:syn-sent
  -       (setf (tcp-connection-state connection) :closed
  -             (tcp-connection-direction connection) nil)
  +       (setf (tcp-connection-state connection) :closed)
          (tcp4-send-packet connection
                            (tcp-connection-s-next connection)
                            (tcp-connection-r-next connection)
  
positive.code:    (lock :accessor tcp-connection-lock :initarg :lock)
     (cvar :accessor tcp-connection-cvar :initarg :cvar))
    (:default-initargs
     :direction :sync
     :max-seg-size 1000
     :rx-data '()
     :rx-data-unordered (make-hash-table)
  
negative.code:                (t
                  ;; Aborting connection
                  (tcp4-send-packet connection ack seq nil :rst-p t)
                  (setf (tcp-connection-state connection) :connection-aborted)
                  (detach-tcp-connection connection))))
          (:syn-received
           ;; Pasive open
  