From: pdn <pnathan@vandals.uidaho.edu>
Date: Mon, 17 Feb 2014 06:05:47 +0000 (-0800)
Subject: DO to DOTIMES
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=8e3054c784a05ea7125087ed74b7bccf73185a1c

DO to DOTIMES
---

diff --git a/src/list.lisp b/src/list.lisp
index 368d098..8efb95a 100644
--- a/src/list.lisp
+++ b/src/list.lisp
@@ -202,11 +202,8 @@
   (when (< size 0)
     (error "Size must be non-negative"))
   (let ((newlist))
-    (do ((i 0))
-        ((= i size))
-      (push initial-element newlist)
-      (incf i))
-    newlist))
+    (dotimes (i size newlist)
+      (push initial-element newlist))))
 
 (defun map1 (func list)
   (with-collect