anchor.diff:  (defpackage "COM.INFORMATIMAGO.TOOLS.THREAD"
     (:use "COMMON-LISP"
           "BORDEAUX-THREADS")
  -  (:export "LIST-THREADS" "KILL-THREAD"
  +  (:export "LIST-THREADS" "KILL-THREAD" "KILL-THREADS"
               "PERIODICALLY" "DO-PERIODICALLY" "DONE"))
   (in-package "COM.INFORMATIMAGO.TOOLS.THREAD")
   
  
positive.code:                   ((not (integerp choice)))
                    ((zerop choice)
                     (format *query-io* "~&Aborted.~%")
                     (return-from select))
                    ((<= 1 choice (length threads))
                     (bt:destroy-thread (nth (1- choice) threads))
                     (return-from select)))
                  (format *query-io* "~&Invalid answer, try again.~%")))))
    (values))
  
  
  ;; (loop :repeat 3 :do (bt:make-thread (lambda () (sleep 2232))))
  
negative.code:     :do (format *standard-output* "~&~2D) ~A~%" i thread))
    (values))
  
  (defun kill-threads (&optional (*query-io* *query-io*))
    (loop :while (kill-thread)))
  
  (defun kill-thread (&optional thread (*query-io* *query-io*))
    (if thread
        (progn
          (bt:destroy-thread thread)
          t)
        (loop
          :named select
          :do (let ((threads (bt:all-threads)))
  