1 ;;;; Test of EVAL-WHEN inside a local environment
2 (cl:in-package :cl-user)
5 (push `(:expanded ,x) *bug204-test-status*)
6 `(push `(:called ,',x) *bug204-test-status*)))
7 (eval-when (:compile-toplevel)
8 (def :compile-toplevel))
9 (eval-when (:load-toplevel)
10 (def :load-toplevel)))