anchor.diff:                  (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))))
  +                  (decf (tcp-listener-n-pending-connections listener))))
                  ;; Ignore duplicated SYN packets
                  ((and (logtest flags +tcp4-flag-syn+)
                        (eql ack (1- (tcp-connection-s-next connection)))))
  
positive.code:    (local-ip :reader tcp-listener-local-ip
               :initarg :local-ip
               :type mezzano.network.ip::ipv4-address)
     (semaphore :reader tcp-listener-semaphore
                :initarg :semaphore
                :type mezzano.sync:semaphore)
     (connections :reader tcp-listener-connections
                  :initarg :connections
                  :type mezzano.sync:mailbox)
     (backlog :reader tcp-listener-backlog
              :initarg :backlog
              :type integer))
    (:default-initargs :semaphore (mezzano.sync:make-semaphore)))
  
  (defmethod mezzano.sync:get-object-event ((object tcp-listener))
    (mezzano.sync:get-object-event (tcp-listener-connections object)))
  
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
  