anchor.diff:  (defun tbody (compiled)
     `(let ((,*time-var* (,*default-time-source*)))
        (labels (,@(mapcan #'start-test compiled)
  -              ,@(mapcan #'expire-test compiled)
  -                ,@(mapcan #'init compiled)
  +              ,@(mapcan #'expire-test compiled)                
                   ,@(mapcan #'funcs compiled))                
          (prog1
              ,(improve-readability `(progn ,@(mapcar #'body compiled)))
  
positive.code:             :start-test `(,start-test-name () (when (>= ,*time-var* ,after-var)
                                                  ,after-var))
              :expire-test `(,expire-test-name () nil)
              :init `(,init-name (,*init-arg*) ;; last argument is always time overflow
                                 (setf ,after-var (+ ,*init-arg* ,delay)))
              :body `(when (and (not (,expire-test-name)) (,start-test-name))
                       (let ((,*progress-var* 1))
  
negative.code:                                                   ,deadline-var))
              :init `(,init-name (,*init-arg*) ;; last argument is always time overflow
                                 (setf ,start-var ,*init-arg*
                                       ,deadline-var (+ ,*init-arg* ,deadline))
                                 ,@(loop :for c :in compiled-body
                                      :if (caar (init c))
                                      :collect `(,(caar (init c)) ,*init-arg*)))
              :body `(when (not (,expire-test-name))
                       (let ((,*progress-var* 
                              (float (- 1.0 (/ (- ,deadline-var ,*time-var*)
  