anchor.diff:  
   
   (defun tbody (compiled)
  -  (let ((start-tests (remove nil (mapcan #'start-test compiled)))
  -        (expire-tests (remove nil (mapcan #'expire-test compiled)))
  -        (funcs (remove nil (mapcan #'funcs 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*))
  
positive.code: (defun merge-results (results &optional first-overrides-body-form)
    (let* ((result (empty-result)))
      (setf (closed-vars result)
            (remove-duplicates (mapcan #'closed-vars results)))
      (setf (start-test result)
            (remove-duplicates (mapcan #'start-test results)))
      (setf (expire-test result)
            (remove-duplicates (mapcan #'expire-test results)))
      (setf (funcs result)
            (remove-duplicates (mapcan #'funcs results)))
      (setf (init result)
            (remove-duplicates (mapcan #'init results)))
      (if first-overrides-body-form
          (setf (body result) (body (first results)))
          (setf (body result) `(progn ,@(mapcar #'body results))))
  
negative.code: (defmacro defun-t (name args &body body)
    (unless name (error "temporal function must have name"))
    (let ((compiled (tcompile body)))
      `(let ,(remove nil (mapcat #'closed-vars compiled))
         (labels ,(reverse (remove nil (mapcat #'init compiled)))
           (defun ,name ,args ,(tbody compiled))
           ,@(t-init-base compiled)
           ',name))))
  