1 (in-package :lambda-utils
)
3 (defmacro dovector
((var vector
) &body body
)
4 (let ((index (gensym)))
5 `(loop for
,index from
0 to
(1- (array-dimension ,vector
0))
6 for
,var
= (aref ,vector
,index
) do
,@body
)))
8 (defmacro doindex
((index vector
) &body body
)
9 `(loop for
,index from
0 to
(1- (array-dimension ,vector
0))
