anchor.diff:             `(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))))
  
positive.code:               (let ((,*progress-var* 1))
                  (declare (ignorable ,*progress-var*))
                  (progn ,@body))))))
  
  
  ;;----------------------------------------------------------------------------
  
negative.code:           (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"))
  