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: 
  (defmacro tlambda (args &body body)  
    (let ((compiled (tcompile body)))
      `(let* (,@(mapcan #'closed-vars compiled)
              (func (lambda ,args ,(tbody compiled))))
         ,@(t-init-base compiled)
         func)))
  
  (defmacro tdefun (name args &body body)
    (let ((compiled (tcompile body)))
      `(let ,(mapcan #'closed-vars compiled)
         (defun ,name ,args ,(tbody compiled))
         ,@(t-init-base compiled)
         ',name)))
  
  (defmacro before (deadline &body body)
    `(tlambda () (before ,deadline ,@body)))
  
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))
  