如何使Lisp输入区分大小写

如何解决如何使Lisp输入区分大小写

我正在用Lisp编程。我正在使用的功能是将两个列表附加在一起，并且可以正常工作。

但是，输出还以大写字母形式以及何时返回。我使用了转义符号，小写字母用'|'包围符号。这是一个示例：

“输入您的第一个列表”

（a b）

“输入其他列表”

（\ a \ b）

输出：（（A B | a | | b |）

我希望它是（a b a b）。

有没有办法输入不同的东西或编写一个函数来解决这个问题？ 我当前的REPL将输入存储为变量，通过函数运行它，然后输出它。谢谢！

解决方法

默认情况下，所有符号都以大写形式插入。例如，当您编写defun时，它在内部被读为DEFUN，即符号名称为字符串"DEFUN"的符号。

临时有两种方法可以覆盖此读取行为：您可以使用\来对符号中的单个字符进行转义，或者可以通过将它们括在管道{{1中来}}。输入时使用转义字符，并且可以是任何个字符。 |…|，其符号名称为|This is a valid symbol.|。

因此，它们每个都成为符号名称为“ Abc”的符号：

"This is a valid symbol."

现在， printer 以如下方式打印符号：当 reader 读入它们时，它们是同一符号。因此，如果符号名称中包含任何小写或非组成字符，则需要以上述方式之一对它们进行转义。我的SBCL使用最后一个选项。

您可以通过readtable自定义读取/打印行为。例如，您可以将readtable-case设置为a\b\c a|bc| |Abc| ：

:preserve

如果现在运行(defun foo () (let ((*readtable* (copy-readtable *readtable*))) (setf (readtable-case *readtable*) :preserve) (print (append (read) (read))))) ，然后输入(foo)和(a b)，则首先打印(A B)，然后REPL将返回的列表打印为(a b A B)因为我们确保只更改实际readtable的词法范围副本。

您可以在Hyperspec中阅读此内容并进行一些尝试。如果您有实际要解决的问题，我们将必须查看如何最好地解决。