(let* ((l1 (list "abc" "xyz"))
       (l2 (mapcar (lambda (str) (format "%s" str)) l1)))
  (setf (car l1) "str")
  (list l1 l2))