RosettaCodeData/Task/Repeat-a-string/Common-Lisp/repeat-a-string-1.lisp

(defun repeat-string (n string)
  (with-output-to-string (stream)
    (loop repeat n do (write-string string stream))))

(princ (repeat-string 5 "hi"))