anchor.diff:          (t
            ;; Aborting connection
            (tcp4-send-packet connection ack seq nil :rst-p t)
  -         (setf (tcp-connection-state connection) :connection-aborted)
  +         (setf (tcp-connection-state connection) :closed)
  +         (setf (tcp-connection-pending-error connection)
  +               (make-condition 'connection-aborted
  +                               :host (tcp-connection-remote-ip connection)
  +                               :port (tcp-connection-remote-port connection)))
            (detach-tcp-connection connection))))
       (mezzano.supervisor:condition-notify (tcp-connection-cvar connection) t)))
   
  
positive.code:             (tcp-connection-remote-port instance))))
  
  (defmacro with-tcp-connection-locked (connection &body body)
    `(mezzano.supervisor:with-mutex ((tcp-connection-lock ,connection))
       ,@body))
  
  (defun get-tcp-connection (remote-ip remote-port local-ip local-port)
  
negative.code:            (data-length (- end (+ start header-length))))
        (when (logtest flags +tcp4-flag-rst+)
          ;; Remote have sended RST , aborting connection
          (setf (tcp-connection-state connection) :closed)
          (setf (tcp-connection-pending-error connection)
                (make-condition 'connection-aborted
                                :host (tcp-connection-remote-ip connection)
                                :port (tcp-connection-remote-port connection)))
          (detach-tcp-connection connection))
        (case (tcp-connection-state connection)
          (:syn-sent
  