Я хочу сделать что-то вроде:
(setf list '(1 2 3 4 5 6))
(format t "~A some text here ~A ~A ~A more text here ~A ~A" list)
И пусть вывод будет
1 текст здесь 2 3 4 текст здесь 5 6
Как я могу сделать это без вызова (nth 1 list) (nth 2 list) и т.д.?