ないんじゃないかな、こんなのやってみたけど
(defun X (s n) (apply 'concat (make-list n s)))