Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!usc!orion.oac.uci.edu!ucivax!pazzani
From: pazzani@pan.ics.uci.edu (Michael Pazzani)
Newsgroups: comp.lang.lisp.franz
Subject: Re: Lisp Macros
Message-ID: <2831B4D2.9815@ics.uci.edu>
Date: 15 May 91 22:23:14 GMT
References: <1991May15.203735.3850@csusac.csus.edu>
Reply-To: pazzani@ics.uci.edu (Michael Pazzani)
Organization: UC Irvine Department of ICS
Lines: 15
Nntp-Posting-Host: pan.ics.uci.edu

In article <1991May15.203735.3850@csusac.csus.edu> cs16011@athena.ecs.csus.edu writes:
>
>Hello, I have got an exam question in my Franz Lisp class about whether
>macros can be recursive or not.  I have check my textbook and Franz Lisp
>Interpreter's online manual here on campus but found no mentioning about
>whether this is possible or not.  If macros can be recursive, can anyone
>please give me an example for supporting the claim?


(defmacro append* (&rest args)
    (if (null (cddr args))
	`(append ,@args)
      `(append ,(car args) (append* ,@(cdr args)))))

[Of course, this isn't necessary since append now takes more than two args].