anchor.diff:                                 (format nil "~A-test" exercise-name)))
           (example nil)
           (exercise nil))
  -    (signal-results)
  +    (lisp-unit:signal-results)
       (unwind-protect
            (handler-case
                (progn
  
positive.code: 
  (defun handle-results (results)
    "Handle lisp-unit's test-run-complete signal."
    (when (failed-tests results)
      (print-failures results)
      (record-problem results))
    (when (error-tests results)
      (print-errors results)
      (record-problem results)))
  
  
negative.code:                (setf exercise (load-package test-exercise-path))
                 (babble "Loaded exercise tests ~S" exercise)
                 (inform (format nil "Running tests for ~S" example))
                 (lisp-unit:run-tests :all exercise))
             (lisp-unit:test-run-complete (condition)
               (handle-results (lisp-unit:results condition)))
             (error (condition) (record-problem condition)))
        (dolist (package (list example exercise))
          (when package (delete-package package))))))
  