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 *server-alist* '())
   
   (defclass tcp-listener ()
     ((local-port :accessor tcp-listener-local-port :initarg :local-port)
  
positive.code:                     (tcp-listener-connections listener)
                      :wait-p nil)
                 (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
                   (push connection *tcp-connections*)))))
            ((eql flags +tcp4-flag-syn+)
             (tcp4-establish-connection local-ip local-port remote-ip remote-port packet start end)))))
  
  (defun tcp4-accept-connection (connection)
    (let* ((seq (random #x100000000))
  
negative.code: 
  (defun tcp4-decline-connection (connection)
    (detach-tcp-connection connection))
  
  (defun detach-tcp-connection (connection)
    (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
  