anchor.diff:                             (v:warn :timer "ERROR: ~a" err)
                              (when *debugger*
                                (invoke-debugger err)))))
  -             (funcall function))))
  +             (with-simple-restart (skip-timer-call "Skip calling the timer. May try again if it is a looping schedule.")
  +               (loop until (with-simple-restart (retry-timer-call "Retry calling the timer.")
  +                             (apply (handler-function handler) arguments) T))))))
       (ecase type
         ((:date :time :once :when)
          (inner (if (consp delay) (car delay) delay)))
  
positive.code: (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)
            when (thread-alive-p thread)
              do (destroy-thread thread))))
  
  
negative.code:                (parse-delay every)
                 (if until (parse-delay until) -1)))))))
  
  (defun timer-timeout (type delay handler arguments)
    (flet ((inner (time-target)
             (v:trace :timer "Timing ~a seconds" (- time-target (get-universal-time)))
             (loop while (< (get-universal-time) time-target)
  