Common Lisp程序化关键字

Question

Common Lisp中是否有一个函数将字符串作为参数并返回一个关键字？

示例:(keyword "foo")- >:foo

Answer 1

在大致正确的情况下给出的答案不能为问题的例子提供正确的解决方案.

考虑:

CL-USER(4): (intern "foo" :keyword)

:|foo|
NIL
CL-USER(5): (eq * :foo)

NIL

通常你想在实习之前将STRING-UPCASE应用于字符串,因此:

(defun make-keyword (name) (values (intern (string-upcase name) "KEYWORD")))

Answer 2

这是一个make-keyword打包关键字创建过程(intern将名称输入KEYWORD包)的功能.:-)

(defun make-keyword (name) (values (intern name "KEYWORD")))