anchor.diff:    (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
  
positive.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))))
      (if *dp-loading* (format t "done loading ~A ~%" koan-file-name))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Functions for executing koans ;;
  
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)
  
  