anchor.diff:         (format t "Establishing TCP connection. l ~D  r ~D  from ~X.~%" local-port remote-port remote-ip)
          (let* ((seq (ub32ref/be packet (+ start +tcp4-header-sequence-number+)))
                 (blah (random #x100000000))
  -              (connection (make-tcp-connection :%state :syn-received
  -                                               :local-port local-port
  -                                               :remote-port remote-port
  -                                               :remote-ip remote-ip
  -                                               :s-next (logand #xFFFFFFFF (1+ blah))
  -                                               :r-next (logand #xFFFFFFFF (1+ seq))
  -                                               :window-size 8192)))
  +              (connection (make-instance 'tcp-connection
  +                                         :%state :syn-received
  +                                         :local-port local-port
  +                                         :remote-port remote-port
  +                                         :remote-ip remote-ip
  +                                         :s-next (logand #xFFFFFFFF (1+ blah))
  +                                         :r-next (logand #xFFFFFFFF (1+ seq))
  +                                         :window-size 8192)))
            (let ((server (assoc local-port *server-alist*)))
              (cond (server
                     (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
  
positive.code: 
  (defvar *server-alist* '())
  
  (defstruct tcp-connection
    %state
    local-port
    remote-port
    remote-ip
    s-next
    r-next
    window-size
    (max-seg-size 1000)
    rx-data
    (lock (mezzano.supervisor:make-mutex "TCP connection lock"))
    (cvar (mezzano.supervisor:make-condition-variable "TCP connection cvar")))
  
  (declaim (inline tcp-connection-state (setf tcp-connection-state)))
  
  
negative.code: 
  (defun tcp-connect (ip port)
    (let* ((source-port (allocate-local-tcp-port))
           (seq (random #x100000000))
           (connection (make-instance 'tcp-connection
                                      :%state :syn-sent
                                      :local-port source-port
                                      :remote-port port
                                      :remote-ip ip
                                      :s-next (logand #xFFFFFFFF (1+ seq))
                                      :r-next 0
                                      :window-size 8192)))
      (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
        (push connection *tcp-connections*))
      (tcp4-send-packet connection seq 0 nil :ack-p nil :syn-p t)
  