Path: utzoo!mnetor!uunet!husc6!hao!ames!ucbcad!ucbvax!WILMA.BBN.COM!kanderso
From: kanderso@WILMA.BBN.COM
Newsgroups: comp.emacs
Subject: Re: A CL iteration macro, "while".
Message-ID: <8712222231.AA00242@ucbvax.Berkeley.EDU>
Date: 22 Dec 87 22:18:49 GMT
References: <13639@beta.UUCP>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 12

I can't believe this is really common lisp, it is certainly not a macro.
How about:

(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."
  `(prog ()
     again 
	(cond (,test-form
               ,@body
	       (go again)))))