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)
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)