From: David Vázquez <davazp@gmail.com>
Date: Thu, 9 May 2013 08:00:46 +0000 (+0100)
Subject: Use do-sequence
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=74f21cdb986001f15a889011698350de1dd51fe2;p=jscl.git

Use do-sequence
---

diff --git a/src/sequence.lisp b/src/sequence.lisp
index 738995f..4b5a759 100644
--- a/src/sequence.lisp
+++ b/src/sequence.lisp
@@ -114,9 +114,8 @@
 
 (defun vector-remove-if (func vector negate)
   (let ((out-vector (make-array 0)))
-    (dotimes (i (length vector))
-      (let* ((element (aref vector i))
-             (test (funcall func element)))
+    (do-sequence (element vector i)
+      (let ((test (funcall func element)))
         (when (if negate test (not test))
           (vector-push-extend element out-vector))))
     out-vector))