anchor.diff:                                               :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)
  
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:                 (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)
  