From 74f21cdb986001f15a889011698350de1dd51fe2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 9 May 2013 09:00:46 +0100 Subject: [PATCH] Use do-sequence --- src/sequence.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4