RosettaCodeData/Task/String-append/Emacs-Lisp/string-append-1.el

(defvar str "foo")
(setq str (concat str "bar"))
str ;=> "foobar"