[英]Lisp - Convert symbol to string only if not already a string
有沒有辦法將符號轉換為字符串,只要它不是lisp中的字符串?
它應該像這樣工作:
(only-if-convertion'ABC)=>“ABC”
(only-if-convertion“ABC”)=>“ABC”
使用STRING
功能。
CL-USER > (string "FOO")
"FOO"
CL-USER > (string 'FOO)
"FOO"
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>
但重復轉換它的想法聽起來很奇怪。 你能說明你為什么要這么做嗎?
您可以使用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>
~
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.