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)