anchor.diff:                                                    ,deadline-var))
               :init `(,init-name (,*init-arg*) ;; last argument is always time overflow
                                  (setf ,start-var ,*init-arg*
  -                                     ,deadline-var (+ ,*init-arg* ,deadline)))
  +                                     ,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*)
  
positive.code: (defun tbody (compiled)
    `(let ((,*time-var* (,*default-time-source*)))
       (labels (,@(mapcan #'start-test compiled)
                ,@(mapcan #'expire-test compiled)
                  ,@(mapcan #'init compiled)
                  ,@(mapcan #'funcs compiled))                
         (prog1
             ,(improve-readability `(progn ,@(mapcar #'body compiled)))
  
negative.code:             :start-test `(,start-test-name () (when (>= ,*time-var* ,after-var)
                                                  ,after-var))
              :expire-test `(,expire-test-name () nil)
              :init `(,init-name (,*init-arg*)
                                 (setf ,after-var (+ ,*init-arg* ,delay)))
              :body `(when (and (not (,expire-test-name)) (,start-test-name))
                       (let ((,*progress-var* 1))
  