anchor.diff:                    (make-thread
                      (lambda ()
                        (loop for job = (funcall get-job)
  -                        while job
  +                        while (and job (not (getf *dc-thread-pool-done* pool-name)))
                           do (funcall fn-job standard-output job)
                             (with-mutex
                                 ((getf *dc-progress-mutex* pool-name))
  
positive.code: (defparameter *dc-thread-pool-progress* nil)
  (defparameter *dc-thread-pool-start-time* nil)
  (defparameter *dc-thread-pool-stop-time* nil)
  (defparameter *dc-timings* (make-hash-table :test #'equal :synchronized t))
  
  (defun to-ascii (s)
  
negative.code:   (setf (getf *dc-thread-pool-start-time* pool-name)
          (get-universal-time))
    (setf (getf *dc-thread-pool-stop-time* pool-name) nil)
    (setf (getf *dc-thread-pool-done* pool-name) nil)
    (make-thread
     (lambda ()
       (let* ((get-job (if (eql (type-of job-queue) 'function)
  