anchor.diff:    (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)
  
positive.code: (defun log-entry (&rest messages)
    "Accepts one or more strings, concatenates them, precedes the result with a timestamp, and returns a string that looks like a log entry."
    (timestamp :string (format nil "~{~a~}~%" messages)))
  
  (defun replace-regexs (text list-of-regex-replacement-pairs &key ignore-case)
    "Searches through TEXT for substrings that match the regexs in LIST-OF-REGEX-REPLACEMENTS and replaces those substrings with the corresponding replacements in LIST-OF-REGEX-REPLACEMENTS.  Use the IGNORE-CASE parameter if you want case-insensitive matches.  Here's an example:
  
negative.code:                   (make-thread
                     (lambda ()
                       (loop for job = (funcall get-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))
  