如何在LISP中成为读者宏来阅读原始字符串（即后斜线是字面意思不是逃生字符）

Question

写下此r“ c：\ data”

在Python中，您可以在LISP中 ？即，我想要一个具有相同功能的读取器宏，因此我不再需要在Windows路径中逃脱后斜线。我不想使用前向斜线，因为Windows中的大量命令不了解它们。

Answer 1

例如

(defun read-literal-string (stream delimiter arg)
  (declare (ignore arg))
  (loop for char = (read-char stream nil stream)
        when (eq char stream)
          do (error "hit end of stream")
        until (char= char delimiter)
        collect char into chars
        finally (return (coerce chars 'string))))

(set-dispatch-macro-character #\# #\" #'read-literal-string)

，现在

> #"fo\o"
"fo\\o"

> #"foo\"
"foo\\"

显然将更仔细地写一个真实的版本