anchor.diff:                    (detach-tcp-connection connection)
                     (setf (tcp-connection-state connection) :closed)))
                  (t ;; Ignore out-of-order packets - Should resend ACKs when receiving a packet from the past.
  -                (format t "TCP: Ignoring packet with sequence number ~D, wanted ~D.~%"
  +                (format t "TCP state :closing. ~
  +                           Ignoring packet with sequence number ~D, wanted ~D.~%"
                           seq (tcp-connection-r-next connection)))))
           (t (format t "TCP: Unknown connection state ~S ~S ~S.~%" (tcp-connection-state connection) start packet)
              (detach-tcp-connection connection)
  
positive.code:          (if (zerop data-length)
               (when (and (= seq (tcp-connection-r-next connection))
                          (logtest flags +tcp4-flag-fin+))
                 (setf (tcp-connection-r-next connection)
                       (logand (+ (tcp-connection-r-next connection) 1)
                               #xFFFFFFFF))
  
negative.code:                                         nil
                                          :ack-p t))
                       ;; Ignore future out-of-order packets, should be managed instead.
                       (t (format t "TCP state :fin-wait-2. ~
                                     Ignoring future packet with sequence number ~D, wanted <= ~D.~%"
                                  seq (tcp-connection-r-next connection)))))))
          (:closing
  