Add MAKE-LIST.

[jscl.git] / src / list.lisp

diff --git a/src/list.lisp b/src/list.lisp
index 7a06dd7..368d098 100644 (file)
--- a/src/list.lisp
+++ b/src/list.lisp
@@ -197,6 +197,17 @@
     (when (eql tail object)
       (return-from tailp t))))
 
+(defun make-list (size &key (initial-element nil))
+  "Create a list of size `size` of `initial-element`s."
+  (when (< size 0)
+    (error "Size must be non-negative"))
+  (let ((newlist))
+    (do ((i 0))
+        ((= i size))
+      (push initial-element newlist)
+      (incf i))
+    newlist))
+
 (defun map1 (func list)
   (with-collect
     (while list