list里字符串元素的拼接操作

自己写，就是遍历list，取出每一个string,然后拼接在一起，并且可能还需要加上,号这样的分隔符号。
重复写多麻烦，用join函数吧。

> (setf l '("a" "b" "c"))
("a" "b" "c")
> (join l ",")
"a,b,c"
> (join l "," true)
"a,b,c,"
最后一个参数true表示分隔符号,要加到最后面。