anchor.diff:  					)
   )
   
  -(setq children_num 2);; how many process forked
  +(setq children_num 2);; how many processes forked
   
   (set 'talk (share))     (share talk 0)
   (set 'content (share))  (share content "")
  
positive.code: 							)
  						)
  						;; ԶݣLogger
  						(assert read_data)
  						(hanle_serial_data  read_data)
  					)
  				)	
  
negative.code: 	(new Tree 'BASE);ԣԶִеõϢĹ
  )
  
  (define (hextostring hex_buf); xxxxxxx to xx xx xx xx
  	(setq nr (length hex_buf))
  	(setq ret "")
  	(setq upk_lst (unpack (dup "b " nr) hex_buf))
  
  	(dolist (y upk_lst)
  		(extend ret (format "%02x " y))
  	)
  	
  	(chop ret 1)
  )
  
  (define (strtohex str);;xx xx xx to hex
  	(setq bn (length (parse str " ")))
  