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