This works:

  (let ((my-list '(1 2 3))
               (my-other-list '(4 5 6)))
    (format nil "~{~A~}"
     (append my-list my-other-list)))