anchor.diff:  (ql:quickload "cl-json" :silent t)
   
   (defpackage #:xlisp-test
  -  (:use #:cl #:lisp-unit)
  +  (:use #:cl)
     (:export #:test-exercise
              #:test-exercises
              #:problems-p
  
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: 
  (defun handle-results (results)
    "Handle lisp-unit's test-run-complete signal."
    (when (lisp-unit:failed-tests results)
      (lisp-unit:print-failures results)
      (record-problem results))
    (when (lisp-unit:error-tests results)
      (lisp-unit:print-errors results)
      (record-problem results)))
  
  