Re: eval-when

[Daniel L. Weinreb <DLW at MIT-AI>]

    (eval-when (load)
      (eval-when (eval load compile)
        <stuff>))

    Should it evaluate <stuff> at compile time?  I can think
    of arguments both for and against.

If this evaluates <stuff> at compile time, I would be very confused.
As I think of it, the entire inner eval-when form should only be
evaluated at load-time, and should be ignored at all other times.
This should work just like nested ifs:

(if (memq *time* '(load)
    (if (memq *time* '(eval load compile)
        <stuff>))