问用途/功能点“符号-名称”？

EN

让我们假设您想要编写一些协议，用于在两个不同的系统之间通过某种串行通道传输结构比特。

(defgeneric transmit-object (o stream))

符号的处理方法是什么？

(defmethod transmit-object ((o symbol) stream)
  ... (symbol-name o) ...)

特别是，在需要对符号进行推理的时候，您肯定不知道符号的名称，而且如果不使用symbol-name，您就无法编写这样的协议(或者某些绝对骇人听闻的黑客，比如将符号打印成字符串并使用该协议)。

对于symbol-plist，实现完全可以将各种信息保存在符号的属性列表中。我甚至不确定是否不允许实现(更聪明的版本)：

(defun symbol-value (s)
  (let* ((d (load-time-value (cons nil nil)))
         (v (get s secret-value-indicator d)))
    (when (eq v d)
      (error ...))
    v))

也许这是不允许的，但我不确定。当然，用这种方式保存函数定义曾经是相当常见的。

符号是物体。您可以创建它们并以编程方式传递它们。这些对象的属性之一是它们的名称，即字符串。Symbol-name是它的读取器(而不是访问器)。就这样。

在代码的表示中也使用符号。在本例中，它们由读取器创建并由编译器使用。然而，这并不是它们唯一的用途，而且规范也没有这样的假设。我希望这能解决你问题的核心。

下面是一个函数，给定一个符号，它返回一个被嵌入在同一个包中的符号，但它的名称是相反的：

(defun reverse-symbol (symbol)
  (intern (make-symbol (reverse (symbol-name symbol)))
          (symbol-package symbol)))

下面是一个函数，给定一个字符串指示符，返回指定的字符串：

(defun designated-string (string-designator)
  (ctypecase string-designator
    (string string-designator)
    (symbol (symbol-name string-designator))))

您还可以在宏和编译器宏中进行各种恶作剧，方法是检查给定形式的符号的名称，并应用一些约定(而不是…)。。

当你处理符号名的时候就没那么傻了。例如，在构建预处理器时--读取一些数据，将其转换为列表结构，然后一些代码正在处理这些列表，并在symbol-name为defun-my-ubermacro时触发一些附加逻辑。这正是格雷厄姆引用的--你把符号当作数据。

而且(在我看来)这样说是不正确的，当你不使用褶皱时，你通常不使用符号作为数据。Plist只出现在许多有用功能的地方。宏所做的很多事情都是将符号作为数据/名称处理。