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: | 766 |
| Nodes: | 16 (2 / 14) |
| Uptime: | 12:06:57 |
| Calls: | 12,762 |
| Calls today: | 6 |
| Files: | 15,362 |
| Messages: | 6,557,087 |