anchor.diff:             (byte (aref (first packet) (second packet))))
         (when (>= (incf (second packet)) (third packet))
           (setf (tcp-stream-packet stream) nil))
  +      (maybe-clear-receive-ready-event stream)
         byte)))
   
   (defmethod gray:stream-read-byte-no-hang ((stream tcp-octet-stream))
  
positive.code:            (byte (aref (first packet) (second packet))))
        (when (>= (incf (second packet)) (third packet))
          (setf (tcp-stream-packet stream) nil))
        byte)))
  
  (defmethod gray:stream-read-sequence ((stream tcp-octet-stream) sequence &optional (start 0) end)
  
negative.code:                          (list (list packet (+ start header-length) end)))
                 :do (setf (tcp-connection-r-next connection)
                           (logand (+ (tcp-connection-r-next connection) data-length)
                                   #xFFFFFFFF)))
           (setf (mezzano.supervisor:event-state
                  (tcp-connection-receive-event connection))
                 t))
          ;; Add future packet to tcp-connection-rx-data-unordered
          ((> seq (tcp-connection-r-next connection))
           (unless (gethash seq (tcp-connection-rx-data-unordered connection))
  