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