anchor.diff:            (setf time-cache (- time-cache step-size))
             (min 1.0 (float (/ time-cache step-size))))))))
   
  +
   (def-t-expander each (delay &rest body)
     (let* ((start-test-name (gensym "start"))
            (expire-test-name (gensym "expired"))
  
positive.code:               (let ((,*progress-var* 1))
                  (declare (ignorable ,*progress-var*))
                  (progn ,@body))))))
  
  
  ;;----------------------------------------------------------------------------
  
negative.code:            `(macrolet ((before (&body b) `(:before ,@b))
                         (after (&body b) `(:after ,@b))
                         (then (&body b) `(:then ,@b))
  		       (until (&body b) `(:until ,@b))
                         (repeat (&body b) `(:repeat ,@b))
                         (each (&body b) `(:each ,@b)))
                ,body))))
  