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