Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!ucbvax!paris.Berkeley.EDU!larus
From: larus@paris.Berkeley.EDU (James Larus)
Newsgroups: comp.lang.lisp
Subject: Re: Common Lisp Macro Expander Wanted
Message-ID: <23539@ucbvax.BERKELEY.EDU>
Date: 7 Apr 88 16:37:52 GMT
References: <49@spar.SPAR.SLB.COM>
Sender: usenet@ucbvax.BERKELEY.EDU
Lines: 11

How about:

	(defun macroexpand-all (f)
	  (cond ((atom f) f)
		((and (symbolp (car f)) (macro-function (car f)))
		 (macroexpand-all (macroexpand f)))
		(t (mapcar #'macroexpand-all f))))


/Jim
larus@ginger.Berkeley.EDU
ucbvax!larus