anchor.diff:                                          :if (and override (third i))
                                           :collect `(setf ,(first i) (- ,(second i) (- (funcall *default-time-source*) ,expired-test)))
                                           :else 
  -                                        :collect `(setf ,(first i) ,(second i))))))
  +                                        :collect `(setf ,(first i) ,(second i)))))
  +                           local-vars)
                        (list expired-test
                              run-test
                              code
  
positive.code: ;; Time compiler syntax
  ;;------------------------------------
  
  ;;{TODO} 
  (def-time-condition and (&rest forms) nil 
    (let ((forms (mapcar #'time-syntax-expand forms)))
      (list `(and ,@(remove nil (mapcar #'first forms)))
  
negative.code:                           (cfunc:signal-expired)
                            ,code)
                       code)))
        `(let (,@(loop :for (a b) :in closed-vars
                    :collect (list a b)))
           (,@(if name `(defun ,name) '(lambda)) ,args            
              (block tlambda-implicit-block
                (tagbody tlambda-start
                   (return-from tlambda-implicit-block
                     (let ,local-vars
                       ,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))
  