Используйте элементы списка в функции формата

Question

Я хочу сделать что -то вроде:

(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 список) (NTH 2 List) и т. Д.?

Answer 1

Пытаться

(apply #'format t "~A some text here ~A ~A ~A more text here ~A ~A" list)

Answer 2

(format t "~{~A some text here ~A ~A ~A more text here ~A ~A~}" list)