X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fsequence.lisp;h=4b5a7598864d9712de43d150cf9d7ee055fc2770;hb=b1e6df4cc0e0c5162cc1c85a7977ae6f669b7a5f;hp=738995f20621a44cc154a3734de0948d09831347;hpb=c65b589ccfc3aec5971287b05d94e7882706efa2;p=jscl.git

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))