From: Bulent Murtezaoglu
Subject: Re: loop ... until ... and then return this
Date: Sat, 04 Feb 2006 23:32:13 +0000
Message-ID: <87u0beya2q.fsf@p4.internal>

>>>>> "SR" == Stefan Ram <···@zedat.fu-berlin.de> writes:
[...]
    SR>   The intention is to return the first result of
    SR> "append-a-random-noun-to" that is not nil. Just for curiosity,
    SR> is there a more idiomatic way to write this?

(defun noun-phrase-start () 
  (loop thereis (append-a-random-noun-to (a-random-determiner))))

cheers,

BM