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