Pascal Costanza wrote:
Jeff Barnett wrote:
Does the Common Lisp spec say anything about whether the following is well defined given that the elements of "list" are unique:
(loop for x in list
when (p x)
do (setq list (delete x list)))
See http://www.lispworks.com/documentation/HyperSpec/Body/03_f.htm
But I wouldn't worry too much and just switch to a non-destructive version:
(loop for x in list
unless (p x) collect x into new-list
finally (setq list new-list))
Gauche Scheme:
(remove odd? (iota 22))
===>
(0 2 4 6 8 10 12 14 16 18 20)
| Sysop: | Amessyroom |
|---|---|
| Location: | Fayetteville, NC |
| Users: | 65 |
| Nodes: | 6 (0 / 6) |
| Uptime: | 08:16:28 |
| Calls: | 862 |
| Files: | 1,311 |
| D/L today: |
2 files (6,679K bytes) |
| Messages: | 264,942 |