357 |
(dolist** (situation (car args)) |
(dolist** (situation (car args)) |
358 |
(case situation |
(case situation |
359 |
(load (setq load-flag t)) |
(load (setq load-flag t)) |
360 |
|
(:load-toplevel (setq load-flag t)) |
361 |
(compile (setq compile-flag t)) |
(compile (setq compile-flag t)) |
362 |
|
(:compile-toplevel (setq compile-flag t)) |
363 |
(eval) |
(eval) |
364 |
|
(:execute) |
365 |
(otherwise (cmperr "The EVAL-WHEN situation ~s is illegal." |
(otherwise (cmperr "The EVAL-WHEN situation ~s is illegal." |
366 |
situation)))) |
situation)))) |
367 |
(let ((*eval-when-defaults* (car args))) |
(let ((*eval-when-defaults* (car args))) |