定义一个名称保存在其他变量中的变量

Question

我需要定义一个名称包含在另一个变量中的变量。

下面的代码不起作用，它使用eval，因此不是很好的风格。

(defvar symbol "zap") 
(eval `(defvar ,symbol 100)) 
(print zap) 

Answer 1

首先 - 你确定你需要这样做吗？

现在，有了这样的方式 -

(defvar *symbol-name* "zap") 
(let ((symbol (intern *symbol-name*))) 
    (proclaim `(special ,symbol)) 
    (setf (symbol-value symbol) 100)) 
(print |zap|) 

注意|zap|通常需要用水管被引用，因为intern是区分大小写的，而默认readtable upcases符号默认。因此，如果您不引用，如(print zap)，则将其解释为(PRINT ZAP)，对于zap错误的情况。或者，您可以使用(intern (string-upcase *symbol-name*))来强化实习符号。

---

在看到您实际要做的事情后进行更新。

你绝对不想为此定义全局变量。将键（A1 ... H4等）映射到数字的数据结构就是您想要的。在这种情况下，您的密钥可以是符号或字符串。数据结构可以是散列表，plist或alist（以及其他选项）。例如，一个字符串键控的哈希表如下所示：

(defvar *table* (make-hash-table :test #'equalp)) 
(setf (gethash "A1" *table*) 42) 
(print (gethash "A1" *table*)) ==> prints 42 

Answer 2

为此目的使用散列表通常会更好。

Answer 3

如果你绝对想用全局变量来做到这一点，我怀疑SET和SYMBOL-VALUE（以及使用符号而不是字符串）可能会有诀窍。它绝对属于“嗯，是的，你可以这样做，但我不相信这是最好的方式”的领土，但。

然而，使用散列表或者（完全跳过存储空间，如果没有必要改变A1意味着更深入的行），您最好的办法是将字母和数字分开并计算相关价值。

Answer 4

使用SET：

CL-USER 13 > (defvar *some-symbol* '*this-is-some-symbol*) 
*SOME-SYMBOL* 

CL-USER 14 > (set *some-symbol* 42) 
42 

CL-USER 15 > *this-is-some-symbol* 
42 

，或者如果它是一个字符串：

(setf (symbol-value (find-symbol some-symbol-name)) 42)