anchor.diff:         (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
            (push connection *tcp-connections*))
          (when (not *netmangler-force-local-retransmit*)
  -         (tcp4-send-packet connection seq 0 nil :ack-p nil :syn-p t))
  +         (tcp4-send-packet connection iss 0 nil :ack-p nil :syn-p t))
          (arm-retransmit-timer *tcp-connect-initial-retransmit-time* connection)
          (arm-timeout-timer *tcp-connect-timeout* connection))
        sys.net::*network-serial-queue*)
  
positive.code:              (setf (gethash connection (tcp-listener-pending-connections listener))
                     connection)
               (when (not *netmangler-force-local-retransmit*)
                 (tcp4-send-packet connection snd-seq rcv-seq nil :ack-p t :syn-p t)))))))
  
  (defun tcp4-accept-connection (connection &key element-type external-format)
    (cond ((or (not element-type)
  
negative.code:                        (tcp-listener-backlog listener))))
             (when (tcp-listener-backlog listener)
               (incf (tcp-listener-n-pending-connections listener)))
             (let* ((irs (ub32ref/be packet (+ start +tcp4-header-sequence-number+)))
                    (iss (random #x100000000))
                    (connection (make-instance 'tcp-connection
                                               :state :syn-received
                                               :local-port local-port
                                               :local-ip local-ip
                                               :remote-port remote-port
                                               :remote-ip remote-ip
                                               :snd.nxt (+u32 iss 1)
                                               :rcv.nxt (+u32 irs 1)
                                               :rcv.wnd *initial-window-size*
                                               :boot-id (mezzano.supervisor:current-boot-id))))
               (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
  