anchor.diff:  (defun serial-log-clear()
     (setq *serial-log* nil))
   
  -(defun serial-log-search (key)
  +(defun serial-log-search (key &key timeout)
     (block log-search
       (loop for entry in *serial-log*
             do
             (when (search key entry :test #'char-equal)
               (return-from log-search entry))
  +          (when timeout
  +            (setq timeout (- timeout 1))
  +            (sleep 1)
  +            (if (<= timeout 0)
  +                (return-from log-search nil))
  +            )
             )))
   
   (defun serial-force-output (serial str)
  
positive.code:                                                     (when (search "Error: Activity" err :test #'char-equal)
                                                        (format t "Error: Activity~%")
                                                        nil
                                                        )))))
               (if (search "Error: Activity" ret :test #'char-equal )
                   (progn
                     (format t "~a not found,please check~%" name)
  
negative.code: 
    (when  *wdt-reset*
      (wdt-save-log serial)
      (setq *wdt-reset* nil)
      )
    (start-serial-test serial)
    )
  