anchor.diff:                  ;; Remote have sended ACK , connection established
                   (setf (tcp-connection-state connection) :established)
                   (when listener
  +                  (remhash connection (tcp-listener-pending-connections listener))
                     (mezzano.sync:mailbox-send connection (tcp-listener-connections listener))))
                  ;; Ignore duplicated SYN packets
                  ((and (logtest flags +tcp4-flag-syn+)
  
positive.code: 
  (defun close-tcp-listener (listener)
    (mezzano.supervisor:with-mutex (*tcp-listener-lock*)
      (setf *tcp-listeners* (remove listener *tcp-listeners*))))
  
  (defun wait-for-connections (listener &key timeout)
    (mezzano.supervisor:event-wait-for ((tcp-listener-connections listener)
  
negative.code:                                (t
                                  local-port)))
               (listener (make-instance 'tcp-listener
                                        :pending-connections (make-hash-table :test 'equalp :size backlog)
                                        :connections (mezzano.sync:make-mailbox
                                                      :name "TCP Listener")
                                        :backlog backlog
  