Path: utzoo!mnetor!uunet!husc6!uwvax!rutgers!sdcsvax!ucbvax!LANL.GOV!roberts%studguppy
From: roberts%studguppy@LANL.GOV ("Doug Roberts @ Los Alamos National Laboratory")
Newsgroups: comp.emacs
Subject: A CL iteration macro, "while".
Message-ID: <8712222235.AA03290@studguppy.lanl.gov>
Date: 22 Dec 87 22:35:44 GMT
References: <8712222223.AA21157@hc.dspo.gov>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 10

Or yet another alternative:

(defmacro while (test-form &body forms)
  "This macro evaluates test-form, and if the result is non-nil
	   all subsequent forms will be iteratively evaluated until
	   test-form evaluates to nil."
  `(do () ((not ,test-form))
     ,@body))

--Doug