anchor.diff:                    (funcall (second server) connection))
                    (t (tcp4-send-packet connection blah (logand #xFFFFFFFF (1+ seq)) nil
                                         :ack-p t :rst-p t))))))
  -      (t (unless (logtest flags +tcp4-flag-rst+)
  +      (t (format t "Ignoring packet from ~X ~S~%" remote-ip
  +                 (subseq packet start end))
  +         (unless (logtest flags +tcp4-flag-rst+)
              (let ((connection (make-tcp-connection :state :syn-received
                                                     :local-port local-port
                                                     :remote-port remote-port
  
positive.code:   r-next
    window-size
    (max-seg-size 1000)
    rx-data)
  
  (defvar *raw-packet-hooks* nil)
  (defvar *tcp-connections* nil)
  
negative.code:              ((>= offset end))
             (tcp-send connection data offset (min (+ offset mss) end))))
          (t ;; Send one packet.
           (with-tcp-connection-locked connection
             (let ((s-next (tcp-connection-s-next connection)))
               (setf (tcp-connection-s-next connection)
                     (logand (+ s-next (- end start))
                             #xFFFFFFFF))
               (tcp4-send-packet connection s-next
                                 (tcp-connection-r-next connection)
                                 (if (and (eql start 0)
                                          (eql end (length data)))
                                     data
                                     (subseq data start end))
                                 :psh-p t))))))))
  
  (defun send-ping (destination &optional (identifier 0) (sequence-number 0) payload)
    (let ((packet (make-array (+ 8 (if payload (length payload) 56)))))
  