gistfile1.lisp

;; objsは文字列のリストに限らず任意のオブジェクトのリスト
(defun join (separator objs)
  (format nil "~{~a~#,1^~a~}" (mapcan (lambda (s) (list s separator)) objs)))

;; separatorが固定なら多少わかりやすい。というかこのケースならformatを直接書くだろう。
(defun join-by-comma (objs)
  (format nil "~{~a~^, ~}" objs))

#|
[6]> (join "-" '(tic tac toe))
"TIC-TAC-TOE"
[7]> (join-by-comma '(tic tac toe))
"TIC, TAC, TOE"
|#