Re: loop & finally - Naggum cll archive

Subject: Re: loop & finally
From: Erik Naggum <erik@naggum.no>
Date: 14 Sep 2002 21:42:48 +0000
Newsgroups: comp.lang.lisp
Message-ID: <3241028568637781@naggum.no>

* Software Scavenger
| On the subject of standard LOOP vs desires, I would like to be able to
| concatenate iteration sequences.  E.g. (loop as x in '(a b c) then from 1 to
| 3 then in '(d e f) collect x) ==> (a b c 1 2 3 d e f).

  Consider a function `range´

(defun range (from to)
  (loop for i from from to to collect i))

 You could use it like this:

(loop for x in `(a b c ,@(range 1 3) d e f) ...).

-- 
Erik Naggum, Oslo, Norway

Act from reason, and failure makes you rethink and study harder.
Act from faith, and failure makes you blame someone and push harder.