anchor.diff:  (defun hash-table-values (table)
     "Return a list of TABLE's values in arbitrary order."
     (let ((results '()))
  -    (maphash (lambda (key value) 
  -	       (declare (ignore key))
  -	       (push value results)) 
  -	     table)
  +    (maphash (lambda (key value)
  +               (declare (ignore key))
  +               (push value results))
  +             table)
       results))
   
   (defun run-trial (test-fn vars generators)
     "Run one trial of a FOR-ALL test."
     (let* ((values (mapcar #'generate generators))
  -	 (bindings (mapcar #'list vars values)))
  +         (bindings (mapcar #'list vars values)))
       (let-dfv ((*logger* (test)
  -	        (call-next-function
  -		 (update-bindings test 
  -				  (append (test-bindings test) bindings)))))
  +                (call-next-function
  +                 (update-bindings test
  +                                  (append (test-bindings test) bindings)))))
         (apply test-fn values))))
   
   (defun generate (generator)
  
positive.code:   (defmacro define (binding &body body)
      "Like Scheme's top-level DEFINE, more or less."
      (cond ((symbolp binding)
  	   `(defparameter ,binding ,@body))
  	  (t (let ((fn (first binding))
  		   (params (rest binding)))
  	       (if (and (stringp (first body))
  			(not (null (rest body))))
  		   `(defparameter ,fn
  		      (lambda ,params ,@body)
  		      ,(first body))
  		   `(defparameter ,fn
  		      (lambda ,params ,@body))))))))
  
  (define (a-boolean)
    (= 0 (random 2)))
  
negative.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)))
  
  