Common Lisp Programmatic關鍵字

Common Lisp中是否有一個將字符串作爲參數並返回關鍵字的函數？Common Lisp Programmatic關鍵字

實施例：(keyword "foo") - >:foo

2008-10-17 nathan

這是一個make-keyword函數，它將關鍵字創建過程（intern的名稱包裝到KEYWORD包中）打包。 :-)

(defun make-keyword (name) (values (intern name "KEYWORD")))

2008-10-17 11:31:29

差不多，但不完全。在創建關鍵字時，還必須確保將其值綁定到自身。 – Vatine 2014-06-06 06:14:13

@Vatine我只有SBCL才能測試，而在SBCL中，`（symbol-value（intern「FOO」「KEYWORD」））`已經具有正確的值。此外，亞歷山大也使用相同的方法實施它。 – 2014-06-09 14:37:49

-5

(intern "foo" "KEYWORD") -> :foo

其他串/符號轉換和符號和包的詳細討論見Common Lisp Cookbook的Strings section。

2008-10-17 11:22:37

的名稱需要在「關鍵字」包被扣留是一個關鍵字。例如（intern「FOO」「KEYWORD」） – 2008-10-17 11:24:28

啊是的。（intern「foo」「KEYWORD」）工作得非常好。謝謝。 – nathan 2008-10-17 11:30:30

在我的回答中，我將它打包成一個整潔的小功能，您可以享受。 :-) – 2008-10-17 11:33:39

在大致正確的情況下給出的答案並不能爲問題的例子提供正確的解決方案。

考慮：

CL-USER(4): (intern "foo" :keyword) 

:|foo| 
NIL 
CL-USER(5): (eq * :foo) 

NIL

通常你想實習之前將字符串UPCASE適用於字符串，即：

(defun make-keyword (name) (values (intern (string-upcase name) "KEYWORD")))

2009-02-17 08:52:24 skypher

有一個在Alexandria庫make-keyword功能，雖然它保存大小寫以得到你想要的東西，然後你必須首先處理字符串。

2012-08-25 01:03:37

在本例中它也與空格的字符串（由點代替）涉及：

(defun make-keyword (name) (values (intern (substitute #\. #\space (string-upcase name)) :keyword)))

2013-03-27 11:47:26

回答