From 8e3054c784a05ea7125087ed74b7bccf73185a1c Mon Sep 17 00:00:00 2001 From: pdn Date: Sun, 16 Feb 2014 22:05:47 -0800 Subject: [PATCH] DO to DOTIMES --- src/list.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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 -- 1.7.10.4