anchor.diff:  (defun read-serial (serial save-stream)
     (let ((str (read-line serial)))
       (format save-stream "~a~%" str)
  +    (force-output save-stream)
       str))
   
   (defun serial-log-collect (serial)
  
positive.code: (defvar *serial-input-thread* nil)
  (defvar *shell-command-list* nil)
  (defvar *serial-log* nil)
  
  
  
  (setq *serial* (ccl::make-serial-stream "/dev/ttyUSB3" :baud-rate 115200
                                                         :char-bits 8 t
                                          :stop-bits 1 t :termios.c_lflag #$ECHO
                                                         :external-format (ccl::make-external-format :line-termination :CRLF)))
  
  (defun string-in-list (str)
    (loop for i in *list-string*
          do
             (when (search i str :test #'char-equal)
               (return str))))
  
negative.code:     (loop while t
            do
               (let ((str (read-serial serial save-stream)))
                 (when (and (string-in-list str) (not (string-in-filter str)))
                   ;;                 (setq *serial-log* (cons str *serial-log*))
                   (push str *serial-log*)
                   (format t "#######")
                   (print *serial-log*)
                   (format t "~%")
                   )))))
  
  (defun serial-log-get (timeout)
  