anchor.diff:                                                      (when (search "Error: Activity" err :test #'char-equal)
                                                         (format t "Error: Activity~%")
                                                         nil
  -                                                      )))))
  +                                                      )) :timeout 60)))
                (if (search "Error: Activity" ret :test #'char-equal )
                    (progn
                      (format t "~a not found,please check~%" name)
  
positive.code:                                               (mapcar #'(lambda (entry)
                                                            (when (search "* TaskRecord" entry :test #'char-equal)
                                                              (push entry stack))) log)
                                                ))))
      (when result
        (pop stack))))
  
  
negative.code:                     (format t "~%")
                      (funcall func serial str result fail-result)))) *list-command*)))
  
  (defun kill-thread()
    (let ((process-list (all-processes)))
      (when *serial-input-thread*
        (process-kill *serial-input-thread*)
        (setq *serial-input-thread* nil))
      (when *serial-main-thread*
        (process-kill *serial-main-thread*)
        (setq *serial-main-thread* nil))
      (loop for process in process-list
            do
               (when (search "Input Collect" (process-name process) :test #'char-equal)
                 (process-kill process))
         )))
  
  (defun serial_test_main_thread ()
    (progn
      (setq *serial-log* nil)
      (setq *serial-input-thread*  (process-run-function "Input Collect"
                                                         'serial-log-collect
                                                         *serial*))
      (sleep 1)
      (wait-shell *serial* "" 60)
      (loop (serial-loop *serial*))))
  
  (defun serial_test()
    (kill-thread)
    (setq *serial-main-thread* (process-run-function "Input Clollect Main"
                                                   'serial_test_main_thread)))
  
  
  
  
  ;;;;;TEST
  ;;(serial-force-output *serial* "")
  ;;(top-activity *serial*)
  