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: | 715 |
| Nodes: | 16 (3 / 13) |
| Uptime: | 19:20:26 |
| Calls: | 12,104 |
| Calls today: | 4 |
| Files: | 15,004 |
| Messages: | 6,518,092 |