文字列を N 回結合する関数ってありますか？

(defun foo (str num)
(let (i result)
(dotimes (i num result)
(setq result (concat result str)))))

こんなのを作るしかないんですかね？