Common Lisp中是否有一个函数将字符串作为参数并返回一个关键字?
示例:(keyword "foo")
- >:foo
在大致正确的情况下给出的答案不能为问题的例子提供正确的解决方案.
考虑:
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")))
这是一个make-keyword
打包关键字创建过程(intern
将名称输入KEYWORD
包)的功能.:-)
(defun make-keyword (name) (values (intern name "KEYWORD")))