concatenate тип-результата последовательность1 последовательность2 ... ⇒ соединённая-последовательность
Соединяет все последовательности в результирующую указанного типа. Исходные последовательности не модифицируются.
;; В список можно поместить всё что угодно. Последний аргумент - битовый вектор. (concatenate 'list "ABC" '(d e f) #(1 2 3) #*1011) (#\A #\B #\C D E F 1 2 3 1 0 1 1) (concatenate 'list) NIL (concatenate 'string '(#\a #\l #\l #\Space) "together") "all together" (concatenate 'string '(1 2 3) " " "together") Ошибка: числа не могут быть запакованы в строку!
(defun concat-strings (list) (apply #'concatenate 'string list))
(concat-strings '("абв" "где" nil "ёжз"))
"абвгдеёжз"