lisp - 打印带有中缀符号的列表

Question

我想使用 format 将 s-expression 转换为带有中缀符号的字符串。如何使用 format 完成此操作？

例子;

(format t "<insert format controls here>" (1 2 3) '*)
=> "1 * 2 * 3"

Answer 1

此答案包含错误代码。

简单，只需使用 custom formatters :

(format t "~/acquire/~/disseminate/" '(1 2 3) '*)

它们的定义如下:

(let ((memory))
  (defun cl-user::acquire (stream list &optional colonp atsignp)
    (declare (ignore colonp atsignp stream))
    (setf memory list))
  (defun cl-user::disseminate (stream operator &optional colonp atsignp)
    (declare (ignore colonp atsignp))
    (format stream (concatenate 'string "~{~a~^ " (string operator) " ~}") memory)
    (setf memory nil)))

例如:

CL-USER> (format t "~/acquire/~/disseminate/" '(1 2 3) '*)
1 * 2 * 3

memory 变量在两个函数的词法范围内，这使它们能够进行数据通信。第一个存储列表，第二个使用它。如果您从不调用第二个函数(或第一个函数为 nil)，memory 将永远绑定(bind)到最后一个列表，这可能是个问题。另请注意，您可能会遇到并发问题。 坦率地说，这不是做你想做的最好的方法，但它可以完成工作 w.r.t.您的要求。