1 ;;;; a test of EVAL-WHEN inside a local environment (which will be
2 ;;;; compiled and loaded, and have its side effects checked, by some
3 ;;;; other file which runs automatically as part of the test suite)
5 (cl:in-package
:cl-user
)
8 (pushnew `(:expanded
,x
) *bug204-test-status
* :test
#'equalp
)
9 `(pushnew `(:called
,',x
) *bug204-test-status
* :test
#'equalp
)))
10 (eval-when (:compile-toplevel
)
11 (def :compile-toplevel
))
12 (eval-when (:load-toplevel
)
13 (def :load-toplevel
)))
