anchor.diff:  (defvar *tcp-connection-lock* (mezzano.supervisor:make-mutex "TCP connection list"))
   (defvar *tcp-listeners* nil)
   (defvar *tcp-listener-lock* (mezzano.supervisor:make-mutex "TCP connection list"))
  -(defvar *allocated-tcp-ports* nil)
   
   (defvar *server-alist* '())
   
  
positive.code: (defun tcp-connect (ip port)
    (multiple-value-bind (host interface)
        (mezzano.network.ip:ipv4-route ip)
      (let* ((source-port (allocate-local-tcp-port))
             (source-address (mezzano.network.ip:ipv4-interface-address interface))
             (seq (random #x100000000))
             (connection (make-instance 'tcp-connection
                                        :%state :syn-sent
  
negative.code:     (setf (ub16ref/be header +tcp4-header-checksum+) checksum)
      packet))
  
  (defun allocate-local-tcp-port (local-ip ip port)
    (loop :for local-port := (+ (random 32768) 32768)
          :do (unless (get-tcp-connection ip port local-ip local-port)
                (return local-port))))
  
  (defun close-tcp-connection (connection)
    (with-tcp-connection-locked connection
  