如何在普通lisp中设置单个反斜杠的格式？

Question

目前，我正试图在GNU 2.49中获得... \hline的输出，但无法使格式正常工作。到目前为止，我一直试图得到一个反斜杠：

(format nil "\ ") => " "
(format nil "\\ ") => "\\ "
(format nil "\\\ ") => "\\ "

我认为双反斜杠会使它工作，为什么反斜杠不是在逃避其他反斜杠吗？

Answer 1

注意创建字符串与实际输出流之间的区别：

CL-USER 69 > (format nil "\\ ")
"\\ "                               ; result

CL-USER 70 > (format t "\\ ")
\                                   ; output
NIL                                 ; result

CL-USER 71 > (format *standard-output* "\\ ")
\                                   ; output
NIL                                 ; result

Answer 2

例如，见：

CL-USER> (write "\\" :escape nil)
\
"\\"

在上面，第一个反斜杠是您的字符串，打印没有转义反斜杠。返回的值是由REPL用标准io语法(.htm)打印的字符串，它转义字符串。

因此，您的字符串包含一个反斜杠，但其打印方式使其可以被读取，因此需要在输出字符串中转义反斜杠。

还请注意，使用零调用format和单个字符串将返回相同的字符串。

您可以检查字符串，例如，通过将每个字符映射到其名称：

(loop
   for input in '("\ " 
                  "\\ "
                  "\\\ ")
   collect (list :input input
                 :characters (map 'list #'char-name input)))

这意味着：

((:INPUT " " :CHARACTERS ("Space"))
 (:INPUT "\\ " :CHARACTERS ("REVERSE_SOLIDUS" "Space"))
 (:INPUT "\\ " :CHARACTERS ("REVERSE_SOLIDUS" "Space")))

或者，只需使用inspect

CL-USER> (inspect "\\hline")

The object is a VECTOR of length 6.
0. #\\
1. #\h
2. #\l
3. #\i
4. #\n
5. #\e