anchor.diff:                  (setf (tcp-connection-state connection) :connection-aborted)
                   (detach-tcp-connection connection)
                   (when listener
  -                  (mezzano.sync:semaphore-down (tcp-listener-semaphore listener))))))
  +                  (decf (tcp-listener-n-pending-connections listener))))))
           (:established
            (if (zerop data-length)
                (when (and (= seq (tcp-connection-r-next connection))
  
positive.code:                 (setf (tcp-connection-state connection) :established)
                  (when listener
                    (mezzano.sync:mailbox-send connection (tcp-listener-connections listener))
                    (mezzano.sync:semaphore-down (tcp-listener-semaphore listener))))
                 ;; Ignore duplicated SYN packets
                 ((and (logtest flags +tcp4-flag-syn+)
                       (eql ack (1- (tcp-connection-s-next connection)))))
  
negative.code:           ;; Drop unestablished connections if they surpassed listener backlog
            ((and listener
                  (eql flags +tcp4-flag-syn+)
                  (< (tcp-listener-n-pending-connections listener)
                     (tcp-listener-backlog listener)))
             (incf (tcp-listener-n-pending-connections listener))
             (let* ((seq (random #x100000000))
                    (ack (logand #xFFFFFFFF (1+ (ub32ref/be packet (+ start +tcp4-header-sequence-number+)))))
                    (connection (make-instance 'tcp-connection
  