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