LOOP is clever enough to do this in a simpler way:
CL-USER> (defun foo (num)
(* num 10))
FOO
CL-USER> (loop for k below 10
collect (foo k))
(0 10 20 30 40 50 60 70 80 90)
CL-USER>
| Sysop: | Keyop |
|---|---|
| Location: | Huddersfield, West Yorkshire, UK |
| Users: | 741 |
| Nodes: | 16 (2 / 14) |
| Uptime: | 56:56:12 |
| Calls: | 12,446 |
| Calls today: | 1 |
| Files: | 15,192 |
| Messages: | 6,537,374 |