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: ;;; set *print-koan-progress* to t to list all completed koans before summary
  (defvar *print-koan-progress* t)
  
  ;;; debug-print directives
  (defvar *dp-loading* nil)
  
  ;;; Global state used to hold results of loading and processing koans
  (defvar *n-total-koans* 0)
  
  
negative.code:                            #+sbcl #:sb-ext)))
      (let ((*package* (find-package koan-package-name)))
        (load (concatenate 'string *koan-dir-name* "/" koan-file-name))
        (incf *n-total-koans* (length (list-tests))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Functions for executing koans ;;
  