repo.or.cz
/
sbcl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Refactor CONSTANTP a bit more.
[sbcl.git]
/
tests
/
colorize-control-codes.lisp
blob
8bd15922f33869c8e4bef2317751fc3de6473eea
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
))