10

Собрать строку из списка символов

(defparameter *my-string* (make-array 0
                                      :element-type 'character
                                      :fill-pointer 0
                                      :adjustable t))
; *MY-STRING*

*my-string*
; ""

(dolist (char '(#\Z #\a #\p #\p #\a))
    (vector-push-extend char *my-string*))
; NIL

*my-string*
; "Zappa"
-----------