anchor.diff:  (defun run-koan-group-named (koan-group-name)
     ;; Executes the koan group, using run-koans defined in lisp-unit
     ;; returning a test-results object.
  -  (if *dp-loading* (format t "start running ~A ~%" koan-group-name))
     (run-koans (package-name-from-group-name koan-group-name)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:   (let* ((koan-name (string-downcase (string koan-group-name)))
           (koan-file-name (concatenate 'string koan-name ".lsp"))
           (koan-package-name (package-name-from-group-name koan-group-name)))
      (if *dp-loading* (format t "start loading ~A ~%" koan-file-name))
      (unless (find-package koan-package-name)
        (make-package koan-package-name
                      :use '(#:common-lisp
  
negative.code: ;;; set *print-koan-progress* to t to list all completed koans before summary
  (defvar *print-koan-progress* t)
  
  ;;; Global state used to hold results of loading and processing koans
  (defvar *n-total-koans* 0)
  
  