anchor.diff:                       (logand (+ (tcp-connection-r-next connection) 1)
                                #xFFFFFFFF))
                  (tcp4-send-packet connection ack seq nil :ack-p t))
  -             (tcp4-receive-data connection data-length end header-length packet seq start :established)))
  +             (tcp4-receive-data connection data-length end header-length packet seq start)))
           (:close-wait
            ;; Remote has closed, local can still send data.
            ;; Not much to do here, just waiting for the application to close.
  
positive.code:   (mezzano.supervisor:with-mutex (*tcp-connection-lock*)
      (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))
           ;; Send data to the user layer
           (if (tcp-connection-rx-data connection)
  
negative.code:                                  nil)
                 (setf (tcp-connection-state connection) :closed)
                 (detach-tcp-connection connection))
               (tcp4-receive-data connection data-length end header-length packet seq start)))
          (:closing
           ;; Waiting for ACK
           (when (and (eql seq (tcp-connection-r-next connection))
  