anchor.diff:              (progn
                 (when *report-progress*
                   (format *test-output-stream* "~%PROGRESS:~%========="))
  -              (setf *queued-test-reports* (list) *last-clunit-report* *clunit-report*)
  +              (setf *queued-test-reports* (list)
  +                    *last-clunit-report* *clunit-report*)
                 (execute-test-case test-case))
             (cancel-unit-test ()
               :report (lambda (s) (format s "Cancel unit test execution."))
  
positive.code: 
  (defun queue-test-case ()
    (when *report-progress*
      (format *test-output-stream* "[QUEUED]")))
  
  (defun skip-test-case ()
    (when *report-progress*
  
negative.code:         (:skip
           (skip-test-case))
          (:queue
           (queue-test-case))))))
  
  (defun get-test-case (name)
    "Retrieves the  TEST-CASE instance associated  with the key  NAME in
  