anchor.diff:  
   
   (defun progress-failure-message (expression message &rest arguments)
  +  "Indicates one more failed test, with a formatted MESSAGE and ARGUMENTS."
     (incf *failure-count*)
     (vector-push-extend #\! *report-string*)
     (unless *current-test-printed-p*
  
positive.code: 
  
  (defun progress-start ()
    (setf *success-count*  0
          *failure-count*  0
          *last-success-p* nil
  
negative.code: 
  
  (defmacro define-test (name parameters &body body)
    "Like DEFUN, but wraps the body in test reporting boilerplate.
  cf. TESTING."
    (let ((mandatory (loop
                       :for param :in parameters
                       :until (member param lambda-list-keywords)
  