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:                                (format nil "~A-test" exercise-name)))
          (example nil)
          (exercise nil))
      (signal-results)
      (unwind-protect
           (handler-case
               (progn
  
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)))
  
  