anchor.diff:             (ack (tcp-packet-acknowledgment-number packet start end))
              (flags (tcp-packet-flags packet start end))
              (header-length (tcp-packet-header-length packet start end))
  -           (data-length (tcp-packet-header-length packet start end)))
  +           (data-length (tcp-packet-data-length packet start end)))
         (when (logtest flags +tcp4-flag-rst+)
           ;; Remote has sent RST, aborting connection
           (setf (tcp-connection-pending-error connection)
  -              (make-condition 'connection-aborted
  +              (make-condition 'connection-reset
                                 :host (tcp-connection-remote-ip connection)
                                 :port (tcp-connection-remote-port connection)))
           (detach-tcp-connection connection)
  +        ;; This return is wrong, still need to hit the cvar.
           (return-from tcp4-connection-receive))
         ;; :CLOSED should never be seen here
         (ecase (tcp-connection-state connection)
  
positive.code:   (let ((rcv.wnd (tcp-connection-rcv.wnd connection))
          (rcv.nxt (tcp-connection-rcv.nxt connection))
          (seg.seq (tcp-packet-sequence-number packet start end))
          (seg.ack (tcp-packet-acknowledgment-number packet start end))
          (seg.len (tcp-packet-data-length packet start end)))
      (if (eql rcv.wnd 0)
          (and (eql seg.len 0)
  
negative.code:                                     :remote-port port
                                      :remote-ip ip
                                      :snd.nxt (+u32 iss 1)
                                      :snd.una iss
                                      :rcv.nxt 0
                                      :rcv.wnd *initial-window-size*
                                      :boot-id (if persist nil (mezzano.supervisor:current-boot-id)))))
  