From: Rainer Joswig
Subject: Re: recursive macroexpansion
Date: Mon, 29 Jun 1998 00:00:00 +0000
Message-ID: <btrcqisz.fsf@lise.lavielle.com>

Sam Steingold <···@goems.com> writes:

> (defun macroexpand-r (form)
>   (if (atom form) form
>       (let ((res (macroexpand form)))
>         (cons (car res) (mapcar #'macroexpand-r (cdr res))))))

Not really. ;-)

> seems to do what I want, but I somehow think there is a built-in
> functionality I am missing.

Look for a code walker. LWW has one builtin. PCL used one.