anchor.diff:  
   (defun detach-tcp-connection (connection)
     (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
  -    (setf *tcp-connections* (remove connection *tcp-connections*)))
  -  (setf *allocated-tcp-ports* (remove (tcp-connection-local-port connection) *allocated-tcp-ports*)))
  +    (setf *tcp-connections* (remove connection *tcp-connections*))))
   
   (defun tcp4-receive-data (connection data-length end header-length packet seq start state)
     (cond ((= seq (tcp-connection-r-next connection))
  
positive.code: (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* '())
  
  
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
  