On Fri, Mar 14, 2014 at 11:58 AM, Alessio Stalla <alessiostalla@gmail.com> wrote:

At the top level, PROGN is treated as if each contained expression appeared at the top level. So generally wrapping a PROGN around the result is precisely what you need to do.

However, since I see an IN-PACKAGE form in your example... beware that that IN-PACKAGE form will NOT affect the following DEFUN, because the symbols in it will have been read long before the IN-PACKAGE is executed.

Yikes, I read too fast, did not see the in-package. Well, the "doing something else wrong" suggestion stands. :) But this works in Allegro CL:

(defmacro go4it (n)

`(progn

(in-package :mcna.db)

(defun forty2 () ,n)))

(go4it 42)

(print (forty2))

I put this in a source file in a library source with a different package, in a Lisp session where :mcna.db was already a Lisp package.

I do find supplying an in-package form in a macro expansion alarming, though. I never use it, but would use-package work?

-hp

On Fri, Mar 14, 2014 at 4:45 PM, Paul Tarvydas <paultarvydas@gmail.com> wrote:

What is the best way to write a macro that returns more than one form to the top level? E.g.

(in-package :xxx)
(defun ...)

I've been wrapping a progn around the result, but LW doesn't like it very much, and SBCL seems to hate it.

Thanks
pt

Kenneth Tilton

Fort Lauderdale, FL

http://tiltontec.com

http://socialalgebra.com