anchor.diff:  
   
   (defmacro test (compare expression expected &optional places format-control &rest format-arguments)
  +  "Deprecated, use CHECK instead."
     (warn "~S is deprecated, use CHECK instead." 'test)
     `(check ,compare ,expression ,expected ,places ,format-control ,@format-arguments))
   
  
positive.code: 
  
  (defun progress-failure-message (expression message &rest arguments)
    (incf *failure-count*)
    (vector-push-extend #\! *report-string*)
    (unless *current-test-printed-p*
  
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)
  