anchor.diff:                  (detach-tcp-connection connection)
                   (when (and listener
                              (tcp-listener-backlog listener))
  +                  (remhash connection (tcp-listener-pending-connections listener))
                     (decf (tcp-listener-n-pending-connections listener))))))
           (:established
            (if (zerop data-length)
  
positive.code:    (local-ip :reader tcp-listener-local-ip
               :initarg :local-ip
               :type mezzano.network.ip::ipv4-address)
     (connections :reader tcp-listener-connections
                  :initarg :connections
                  :type mezzano.sync:mailbox)
  
negative.code:                                              :window-size 8192)))
               (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
                 (push connection *tcp-connections*))
               (setf (gethash connection (tcp-listener-pending-connections listener))
                     connection)
               (tcp4-send-packet connection seq ack nil :ack-p t :syn-p t))))))
  
  (defun tcp4-accept-connection (connection &key element-type external-format)
  