X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbug204-test.lisp;h=cb9764733ea5b1863e0389ea1cd978673ab2be50;hb=d7875c296a4988e9f27e2776237884deb1984c62;hp=c11cda98fd7e22372ae528c5b2c25eaefb874dcc;hpb=c831b2828176641e93a45d3fd643e9f58cd44a3f;p=sbcl.git

diff --git a/tests/bug204-test.lisp b/tests/bug204-test.lisp
index c11cda9..cb97647 100644
--- a/tests/bug204-test.lisp
+++ b/tests/bug204-test.lisp
@@ -1,9 +1,12 @@
-;;;; Test of EVAL-WHEN inside a local environment
+;;;; a test of EVAL-WHEN inside a local environment (which will be
+;;;; compiled and loaded, and have its side effects checked, by some
+;;;; other file which runs automatically as part of the test suite)
+
 (cl:in-package :cl-user)
 
 (macrolet ((def (x)
-             (push `(:expanded ,x) *bug204-test-status*)
-             `(push `(:called ,',x) *bug204-test-status*)))
+             (pushnew `(:expanded ,x) *bug204-test-status* :test #'equalp)
+             `(pushnew `(:called ,',x) *bug204-test-status* :test #'equalp)))
   (eval-when (:compile-toplevel)
     (def :compile-toplevel))
   (eval-when (:load-toplevel)