114 |
Evaluate BODY with VAR bound to each car from LIST, in turn. |
Evaluate BODY with VAR bound to each car from LIST, in turn. |
115 |
Then evaluate RESULT to get return value, default nil. |
Then evaluate RESULT to get return value, default nil. |
116 |
|
|
117 |
\(dolist (VAR LIST [RESULT]) BODY...)" |
\(fn (VAR LIST [RESULT]) BODY...)" |
118 |
(declare (indent 1) (debug ((symbolp form &optional form) body))) |
(declare (indent 1) (debug ((symbolp form &optional form) body))) |
119 |
(let ((temp (make-symbol "--dolist-temp--"))) |
(let ((temp (make-symbol "--dolist-temp--"))) |
120 |
`(let ((,temp ,(nth 1 spec)) |
`(let ((,temp ,(nth 1 spec)) |
132 |
inclusive, to COUNT, exclusive. Then evaluate RESULT to get |
inclusive, to COUNT, exclusive. Then evaluate RESULT to get |
133 |
the return value (nil if RESULT is omitted). |
the return value (nil if RESULT is omitted). |
134 |
|
|
135 |
\(dotimes (VAR COUNT [RESULT]) BODY...)" |
\(fn (VAR COUNT [RESULT]) BODY...)" |
136 |
(declare (indent 1) (debug dolist)) |
(declare (indent 1) (debug dolist)) |
137 |
(let ((temp (make-symbol "--dotimes-temp--")) |
(let ((temp (make-symbol "--dotimes-temp--")) |
138 |
(start 0) |
(start 0) |