Question

有没有办法将符号转换为字符串，只要它在lisp中不是字符串？

它应该像这样工作：

（only-if-convertion'ABC）=＆gt; “ABC”

（only-if-convertion“ABC”）=＆gt; “ABC”

Answer 1

使用函数STRING。

CL-USER > (string "FOO")
"FOO"

CL-USER > (string 'FOO)
"FOO"

Answer 2

CL-USER> (defun symbol-or-string-to-string (x)
       (typecase x
         (symbol (symbol-name x))
         (string x)
         (otherwise (error "Wrong type"))))
SYMBOL-OR-STRING-TO-STRING
CL-USER> (symbol-or-string-to-string "foo")
"foo"
CL-USER> (symbol-or-string-to-string 'foo)
"FOO"
CL-USER> (symbol-or-string-to-string #())
; Evaluation aborted.
CL-USER>

但重复转换它的想法听起来很奇怪。你能说明你为什么要这么做吗？

Answer 3

您可以使用format函数进行转换。虽然它比列出的其他选项慢，但它可以在其他数据类型上工作，控制upcase / downcase等。所以对于开发或代码的非内部循环部分，这可能对你有用：

CL-USER>
(format nil "~a" "str")
"str"
CL-USER>
(format nil "~a" 'str)
"STR"
CL-USER> 
(format nil "~(~a~)" 'str)
"str"
CL-USER>
(format nil "~(~a~)" "str")
"str"
CL-USER> 
~

Lisp - 仅当符号不是字符串时才将符号转换为字符串

3 个答案: