From: Barry Margolin
Subject: Re: Side-effects via EVAL-WHEN
Date: 
Message-ID: <21kqdiINNafg@early-bird.think.com>
In article <·····················@jpl-devvax.jpl.nasa.gov> ·······@@aig.jpl.nasa.gov writes:
>;;; CLtL2 says this approach is wrong
>(defmacro foo ()
>  ;done at either compile-time for compiled files or
>  ;;load-time for source files, but not both situations
>  (do-side-effects)
>  ;;expansion is different 
>  `(do-foo-expansion))

(defmacro foo ()
  `(progn
     (eval-when (:compile-toplevel :load-toplevel)
       (do-side-effects))
     (do-foo-expansion)))
-- 
Barry Margolin
System Manager, Thinking Machines Corp.

······@think.com          {uunet,harvard}!think!barmar