anchor.diff:  
   (defmacro tlambda (args &body body)
     (let ((compiled (tcompile body)))
  -    `(let* (,@(mapcan #'closed-vars compiled))
  -       (labels ,(reverse (mapcan #'init compiled))
  +    `(let* (,@(mapcat #'closed-vars compiled))
  +       (labels ,(reverse (mapcat #'init compiled))
            (let ((func (lambda ,args ,(tbody compiled))))
              ,@(t-init-base compiled)
              func)))))
  
positive.code: ;; {TODO} add once, between, whilst
  ;; {TODO} if user fires expired inside body of clause the effect should be
  ;;        local
  
  (defclass result ()
    ((closed-vars :initarg :closed-vars :accessor closed-vars)
  
negative.code: 
  
  (defun tbody (compiled)
    (let ((start-tests (remove nil (mapcat #'start-test compiled)))
          (expire-tests (remove nil (mapcat #'expire-test compiled)))
          (funcs (remove nil (mapcat #'funcs compiled))))
      (if (and (null start-tests) (null expire-tests) (null funcs))
          `(let ((,*time-var* (,*default-time-source-name*)))
             (declare (ignorable ,*time-var*))
  