anchor.diff:  
   ;; {TODO} can use func-name for block if tdefun
   (defun gen-time-function-body (name args body)
  -  (with-t-obj () (tprogn body)
  +  (with-t-obj () (tprogn body t)
       (let ((lbody (if expired-test
                        `(if ,expired-test
                             (cfunc:signal-expired)
  
positive.code:                             ,code))))) ;; this should be an if
       :local-vars let-forms
       :run-test t
       :expired-test (let ((expire-forms
                            (remove nil (mapcar #'t-expired-test processed-forms))))
                       (when expire-forms `(and ,@expire-forms)))
       :closed-vars (remove nil (mapcan #'t-closed-vars processed-forms)))))
  
  (defun tthen/repeat (forms &key repeat)
  
negative.code:             (block tlambda-implicit-block
                (tagbody tlambda-start
                   (return-from tlambda-implicit-block
                     ,lbody))))))))
  
  (defmacro tdefun (name args &body body) (gen-time-function-body name args body))
  (defmacro tlambda (args &body body) (gen-time-function-body nil args body))
  