anchor.diff:                                                 :window-size 8192)))
            (let ((server (assoc local-port *server-alist*)))
              (cond (server
  -                  (push connection *tcp-connections*)
  +                  (mezzanine.supervisor:with-mutex (*tcp-connection-lock*)
  +                    (push connection *tcp-connections*))
                     (tcp4-send-packet connection blah (logand #xFFFFFFFF (1+ seq)) nil
                                       :ack-p t :syn-p t)
                     (funcall (second server) connection))
  
positive.code: 
  (defvar *raw-packet-hooks* nil)
  (defvar *tcp-connections* nil)
  (defvar *allocated-tcp-ports* nil)
  (defvar *server-alist* '())
  
  (defun get-tcp-connection (remote-ip remote-port local-port)
    (dolist (connection *tcp-connections*)
      (when (and (eql (tcp-connection-remote-ip connection) remote-ip)
                 (eql (tcp-connection-remote-port connection) remote-port)
                 (eql (tcp-connection-local-port connection) local-port))
        (return connection))))
  
  (defun %tcp4-receive (packet remote-ip start end)
    (let* ((remote-port (ub16ref/be packet start))
  
negative.code:                                                           :name "Ethernet thread"))
  
  (defun detach-tcp-connection (connection)
    (mezzanine.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*)))
  
  (defun tcp4-receive (connection packet &optional (start 0) end)
  