anchor.diff:  (defun stop-time-handler (identifier)
     ""
     (let ((handler (time-handler identifier)))
  -    (v:warn :timer "Stopping ~d active timers of ~a." (length (active-timers handler)) identifier)
  -    (loop for thread in (active-timers handler)
  +    (v:warn :timer "Stopping ~d active timers of ~a." (length (schedulings handler)) identifier)
  +    (loop for thread in (schedulings handler)
             when (thread-alive-p thread)
               do (destroy-thread thread))))
   
  
positive.code:     (let ((*print-pretty* NIL))
        (format NIL "[Time Handler] ~s with ~d active timers expecting ~a.~%~
                   ~:[No docstring available.~;Docstring: ~:*~a~]"
                (identifier handler) (length (active-timers handler)) (arguments handler) (docstring handler)))))
  
  (defvar *unix-epoch-difference*
    (encode-universal-time 0 0 0 1 1 1970 0))
  
negative.code: (defun launch-timer (handler type delay arguments)
    (let ((thread) (launch-done NIL))
      (setf thread (make-thread #'(lambda ()
                                    ;; Yield until the launch has completed.
                                    (loop do (thread-yield) until launch-done)                                  
                                    (unwind-protect
                                         (with-simple-restart (skip-launcher "Skip the timer launcher entirely, essentially ending the scheduling.")
                                           (funcall (launcher-function handler)
                                                    thread #'(lambda () (timer-timeout type delay handler arguments))))
                                      (with-lock-held ((handler-lock handler))
                                        (v:trace :timer "Cleaning up ~a" thread)
                                        (setf (schedulings handler)
                                              (delete thread (schedulings handler))))))
                                :name (format NIL "Timer thread for ~a" handler)))
      (with-lock-held ((handler-lock handler))
        (push thread (schedulings handler)))
      ;; We can only set this now to ensure the thread definitely waits
      ;; with its self-removal until we've actually pushed it.
      (setf launch-done T)
  