anchor.diff:                       #'(lambda (x) (equalp :pass x))
                        (second k-result))))
       (if all-pass-p
  -        (format t "~A has expanded your awareness.~%" koan-name)
  -        (format t "~A requires more meditation.~%" koan-name))))
  +        (format t "[32m~A has expanded your awareness.~%[0m" koan-name)
  +        (format t "[31m~A requires more meditation.~%[0m" koan-name))))
   
   (defun print-koan-group-progress (kg-name kg-results)
     (format t "~%Thinking about ~A~%" kg-name)
  
positive.code: (defun koan-status-message (koan-status)
    (if (find :incomplete koan-status)
         (return-from koan-status-message
           "  A koan is incomplete.~%"))
    (if (find :fail koan-status)
         (return-from koan-status-message
           "  A koan is incorrect.~%"))
    (if (find :error koan-status)
         (return-from koan-status-message
           "  A koan threw an error.~%"))
  
negative.code:     (format t "You have not yet reached enlightenment ...~%")
      (format t (koan-status-message koan-status))
      (format t "~%")
      (format t "[1mPlease meditate on the following code:~%[0m")
      (format t "   File \"~A/~A.lsp\"~%" *koan-dir-name* (string-downcase filename))
      (format t "   Koan \"~A\"~%" koan-name)
      (format t "   Current koan assert status is \"~A\"~%" (reverse koan-status))))
  