anchor.diff:     (header :reader log-stream-header
   	   :initarg :header
   	   :documentation "The log header")
  +   (tag :reader log-stream-tag
  +	:initarg :tag
  +	:documentation "the tag")
      (count :initarg :count 
   	  :reader log-stream-count
   	  :documentation "The numnber of block")
  
positive.code:   id
    lvl
    time
    msg)
  
  (defun read-log-message (stream)
  
negative.code: 	(id (nibbles:read-ub32/be stream))
  	(lvl (nibbles:read-ub32/be stream))
  	(time (nibbles:read-ub64/be stream))
  	(tag (let ((octets (nibbles:make-octet-vector 4)))
  	       (read-sequence octets stream)
  	       (flexi-streams:octets-to-string octets)))
  	(len (nibbles:read-ub32/be stream)))
      (let ((octets (nibbles:make-octet-vector len)))
        (read-sequence octets stream)
  