X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Flist.lisp;h=8efb95a7d2cf75ae9e010f33930ff8e3890b395d;hb=8e3054c784a05ea7125087ed74b7bccf73185a1c;hp=368d0980966ce73f2caba6d6ff83d625243aee80;hpb=f0a14f3e363b6d0cf1c30635f3d732b7bc0b15a4;p=jscl.git

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