tests/bug204-test.lisp

   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)
   4
   5 (cl:in-package :cl-user)
   6
   7 (macrolet ((def (x)
   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)))