tests/colorize-control-codes.lisp

   1 (defun ascii-color (color)
   2   (ecase color
   3     (:red 31)
   4     (:green 32)))
   5
   6 (defun %output-colored-text (text color &key bold)
   7   (format t "~c[~a~:[~;;1~]m~a~c[0m"
   8           #\Esc
   9           (ascii-color color)
  10           bold
  11           text #\Esc))