Lisp - 只有當字符串還不是字符串時纔將符號轉換爲字符串

Question

有沒有方法可以將符號轉換爲字符串，只要它不是lisp中的字符串？

它應該這樣工作：

（僅-如果轉換變量「ABC）=> 「ABC」

（僅-如果轉換變量 「ABC」）=> 「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> 
~