[Ecls-list] LOOP error

[Stelian Ionescu]

When compiling this function from KMRCL

(defun remove-keyword (key arglist)
  (loop for sublist = arglist then rest until (null sublist)
     for (elt arg . rest) = sublist
     unless (eq key elt) append (list elt arg)))

ECL complains that "Iteration in LOOP follows body code" but the way I
interpret section 6.1.4 of the Hyperspec is that termination clauses are
*not* considered to be body clauses, so I think that LOOP shouldn't
signal an error here

SBCL, CMUCL, Clisp, GCL and ABCL all accept that and only Clisp signals a
warning about it

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20080203/19a13d46/attachment.sig>