3

只有当符号在lisp中还不是字符串时,有没有办法将符号转换为字符串?

它应该像这样工作:

(仅当转换'ABC)=>“ABC”

(仅当转换“ABC”)=>“ABC”

4

3 回答 3

8

使用功能STRING

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

CL-USER > (string 'FOO)
"FOO"
于 2012-06-15T21:59:40.070 回答
3

您可以使用 format 函数进行转换。当然它比列出的其他选项慢,但它可以处理其他数据类型,控制大写/小写等。因此,对于开发或代码的非内循环部分,这可能对您有用:

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> 
~          
于 2012-06-16T18:21:55.477 回答
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> 

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

于 2012-06-15T13:26:32.617 回答