Stream 比较流

我需要检查给定的流是否是终端流。例如，使用

*标准输出*

时，我不使用

（相等（同义词流符号*标准输出*）*终端io*）

，但它返回零。
这很奇怪，因为

（同义流符号*标准输出*）

返回

*终端io*

---

有什么想法吗？感谢您的建议。

原因是

同义词流符号

（）返回一个符号，而求值

*终端io*

返回与全局变量关联的流

您只需引用流的名称即可检查哪个符号是正确的：

CL-USER> (eq (synonym-stream-symbol *standard-output*) '*terminal-io*)
T