common-lisp - 在列表中加入字符串的规范方法是什么？

Question

我要转换 ("USERID=XYZ" "USERPWD=123")至 "USERID=XYZ&USERPWD=123" .我试过

(apply #'concatenate 'string '("USERID=XYZ" "USERPWD=123"))

这将返回 ""USERID=XYZUSERPWD=123" .

但我不知道如何插入“&”？以下函数有效，但似乎有点复杂。

(defun join (list &optional (delim "&"))
    (with-output-to-string (s)
        (when list
            (format s "~A" (first list))
            (dolist (element (rest list))
               (format s "~A~A" delim element)))))

Answer 1

使用 FORMAT .
~{和 ~}表示迭代，~A表示美观打印，~^ (又名 Tilde Circumflex 在文档中)表示打印 , 仅当有东西跟随它时。

* (format nil "~{~A~^, ~}" '( 1 2 3 4 ))

"1, 2, 3, 4"
*