Just another update

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

@@ -1,5 +1,3 @@
 (defun repeat-string (n string)
   (with-output-to-string (stream)
     (loop repeat n do (write-string string stream))))
-
-(princ (repeat-string 5 "hi"))

Task/Repeat-a-string/Common-Lisp/repeat-a-string-2.lisp

@@ -1 +1,9 @@
-(make-string 5 :initial-element #\X)
+(defun repeat-string (n string
+                     &aux
+                     (len (length string))
+                     (result (make-string (* n len)
+                                          :element-type (array-element-type string))))
+  (loop repeat n
+        for i from 0 by len
+        do (setf (subseq result i (+ i len)) string))
+  result)

Task/Repeat-a-string/Common-Lisp/repeat-a-string-3.lisp

@@ -0,0 +1 @@
+(princ (repeat-string 5 "hi"))

Task/Repeat-a-string/Common-Lisp/repeat-a-string-4.lisp

@@ -0,0 +1 @@
+(make-string 5 :initial-element #\X)