anchor.diff:        (funcall fn)))
   
     (defmacro wrap-each (wrapper &body wrappees)
  -    "Perform each of the WRAPPEES as if surrounded by WRAPPER (with 
  -the literal symbol WRAPPEE inside WRAPPER being the hole where the 
  -wrappee appears).  This is useful for factoring out common setup/teardown 
  +    "Perform each of the WRAPPEES as if surrounded by WRAPPER (with
  +the literal symbol WRAPPEE inside WRAPPER being the hole where the
  +wrappee appears).  This is useful for factoring out common setup/teardown
   code for a sequence of tests without compromising their isolation."
       ;; TODO: use a macrolet for a cleaner expansion?  Make wrappee a
       ;; parameter?
       `(progn ,@(mapcar (lambda (wrappee)
  -			`(symbol-macrolet ((wrappee ,wrappee))
  -			   ,wrapper))
  -		      wrappees)))
  +                        `(symbol-macrolet ((wrappee ,wrappee))
  +                           ,wrapper))
  +                      wrappees)))
   
     (defmacro only-if (flag test)
       "Perform the TEST only if FLAG is true, otherwise return a SKIPPED
  
positive.code:   "Log a test outcome, with appropriate interactive side effects."
    (when (and *break-on-failure* flopped (not (eq flopped 'skipped)))
      (cerror "Run the remaining tests."
  	    "Test failed: ~S~a" name (capture-stdout (funcall detail))))
    (show-progress flopped)
    (funcall *logger* (make-test :name name :flopped flopped :detail detail)))
  
  
negative.code: (define (an-integer)
    (- (random (+ *size* *size* 1)) *size*))
  
  (define (a-real)
    (- (random (float (* 2 *size*)))
       *size*))
  
  