anchor.diff:  
   (defun end ()
     (stop *acceptor*)
  +  (stop (acceptor-metric-system *acceptor*))
     (save-db)
     (save-tokens)
  -  (stop (acceptor-metric-system *acceptor*))
  +  (terminate-thread *acceptor-thread*)
     (stop-notice-thread))
   
   (defun quit ()
  
positive.code:   (load-notice-handlers)
    (load-db)
    (load-tokens)
    (make-thread #'(lambda () (start *acceptor*)))
    (start (acceptor-metric-system *acceptor*))
    (start-notice-thread))
  
  
negative.code: 
  (in-package :kindista)
  
  (defvar *acceptor-thread* nil)
  
  (defun run ()
    (dolist (symbol '(*convert-path*
                      *original-images*
  