Beginnings of the new compiler

[jscl.git] / src / sequence.lisp

diff --git a/src/sequence.lisp b/src/sequence.lisp
index 738995f..4b5a759 100644 (file)
--- 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))