Common Lisp：获取角色的Unicode名称

Question

在CL中，我可以将字符的Unicode名称转换为字符串吗？有没有 接收#\α作为参数的函数将返回"GREEK SMALL LETTER ALPHA"？

Answer 1

使用cl-unicode库：

CL-USER> (cl-unicode:unicode-name #\α)
"GREEK SMALL LETTER ALPHA"
CL-USER> (cl-unicode:unicode-name 945)
"GREEK SMALL LETTER ALPHA"

Answer 2

CHAR-NAME的结果不是标准化的，但通常会得到：

? (char-name #\α)
"Greek_Small_Letter_Alpha"

在LispWorks中：

CL-USER 40 > (char-name #\α)
"U+03B1"

CL-USER 41 > (system::lookup-unicode-character-name #\α)
"GREEK SMALL LETTER ALPHA"