Add :application-type parameter for save-lisp-and-die on Windows.
[sbcl.git] / 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)))