anchor.diff:    (let ((connection (slot-value stream 'connection)))
       (refill-tcp-stream-buffer stream)
       (and (null (slot-value stream 'current-packet))
  -         (not (eql (tcp-connection-state connection) :established)))))
  +         (not (eql (tcp-connection-state connection) :established))
  +         (not (eql (tcp-connection-state connection) :syn-received)))))
   
   (defmethod sys.int::stream-listen ((stream tcp-stream))
     (refill-tcp-stream-buffer stream)
  
positive.code: 	     (detach-tcp-connection connection)
  	     (tcp4-send-packet connection 0 0 nil :ack-p nil :rst-p t)
  	     (format t "TCP: got ack ~S, wanted ~S. Flags ~B~%" ack (tcp-connection-s-next connection) flags))))
        (:established
         ;; Ignore out-of-order packets.
         (when (eql seq (tcp-connection-r-next connection))
  
negative.code:              (protocol (aref packet (+ 14 9))))
           (cond
             ((eql protocol +ip-protocol-tcp+)
              (%tcp4-receive packet (ub32ref/be packet (+ 14 12)) (+ 14 header-length) (+ 14 total-length)))
             (t (format t "Unknown IPv4 protocol ~S ~S.~%" protocol packet)))))
        (t (format t "Unknown ethertype ~S ~S.~%" ethertype packet)))))
  
  