projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)))
(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))
(when (if negate test (not test))
(vector-push-extend element out-vector))))
out-vector))